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In the majority of cases, a PLM is used to 
analyze a Specific error that caused a 
compile-time dump or an erroneous result. 
The following is therefore intended to 
assist the programmer in obtaining from 
this dump all information he requires to 
locate the specific section of the PLM in 
which he is interested. Using the descrip- 
tive text, the flow charts, and the program 
listing, he can then find out what error 
caused the compiler to produce the dump or 
the erroneous result so that he may take 
the appropriate corrective action. 


Conventions on Register Usage 


1. If an interface routine is called, 
registers 0 and 1 serve as parameter 
registers (refer to the description of 
the individual interface routines in 


the section Compiler Interface). 


2. Register 9 serves as input area reg- 
ister for IJSYSIN during phases A00, 
A00D, and A25. 


3. Register 10 serves as output area reg- 
ister for IJSYSPH during phases A00, 
A00D, and G55 (for punching). 


4, Register 11 serves as output area reg- 
ister for IJSYSLS during all listing 
phases. 


5. Register 12 is used for any reference 
to the communication region. 


6. Register 13 is not used by the phases, 
but as save area register for LIOCS. 


7. Register 14 serves as return register 
in case of subroutine Calls. 


8. Register 15 is used both as base reg- 
ister in the phases and as entry point 
register when calling a subroutine. 


Entry Points in the Communication Region 


Register 12 points to the beginning of the 
communication region. The absolute address 
of entry points in the communication region 
can be found in the Linkage Editor storage 
map. 


The following entry points in the com- 
munication region are of interest in case 
of a compile-time dump: 


KSAVE1: This area contains return addresses 
of the last interface call in the 
following order: 
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register 14: points to the routine 
that was last active, 


register 15 

register 0 

register 1 

register  2z 
K5PH: This 8-byte area normally contains 
the name of the phase currently in 
Storage. The phase name is stored 
as follows: 





P L / I x x x b 
D7 D3 61 C9 yy yy yy 40 


The last four bytes contain the 
actual phase name, e.g., E25 or, in 
hexadecimal notation, C5SF2F540. 
Phases DOO, D05, D10, and D11 form 
an exception. For these phases, 
the name can be found at X'108' 
(register 12). 

It should be noted that the actual 
phase currently in storage may be 
either C95 or D11 if K5PH contains 
the name C95, To determine which 
phase is actually in storage, 
locate the start address of the 
phase and compare it with the list- 
ing. 


If the contents of KTETA are less 
than those of KTETA+4, SYS002 is 
currently used as text input medium 
and SYS003 as output medium, 


KTETA: 


IJKMTS: Contains the start address of the 
table space. 


IJKMBL: Contains the buffer length for text 
I/O. 


IJKMBS: Contains the start address of the 
buffer area. 


IJXA04: IS the address of the table direc- 
tory (TABTAB). 


For detailed information on the format 
of the communication region refer to the 


section Compiler Interface. 


Note: The interface routines are used by 
all phases. Therefore, they are not des- 
cribed in each phase, but in the separate 
section Compiler Interface. For a list of 
all interface routines refer to Figures 7 
and 8 of that section. The names of inter- 
face routines start either with IJK or Z. 
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ORGANIZATION OF THE PUBLICATION 


Due to its size, this book has been divided 
into three volumes. For the reader's con- 
venience, volume 1 contains all of the 
descriptive text, whereas volumes 2 and 3 
contain the flow charts. Thus, the text 
and the corresponding flow chart (s) may be 
used synoptically. The form numbers of the 
three volumes are as follows: 


Volume 1: Y33-9010 
Volume 2: Y33-9011 
Volume 3: Y33-9012 


The individual phases are presented in 
the order of their appearance within the 
compiler. The compiler interface (which, 
most probably, will have to be looked up 
quite frequently in many of the phases) is 
described in a separate section to make it 
Stand out. The appendices provide ref- 
erence information taken out of the corres- 
ponding phase description to improve the 
readability of the text and to make the 
information easily accessible. 


The heading of each phase description 
gives the phase name, the function (in 
parentheses), and -- separated by two dash- 
es -- the identification of the correspond- 
ing general flow chart, e.g., 

PHASE PL/IA45 (CHARACTER STRINGS) -- EM 

In the description of the individual 
routines of a phase, the flow chart for the 
routine, if any, is indicated by the flow 
chart identification, separated from the 
routine name by two dashes, rom the routine 
name by two dashes, e.g., 


INIT1 -- XY 

The use of the individual flow chart 
symbols is explained in detail at the 
beginning of each of the flow chart 
volumes. 


Figures are numbered sequentially, 
starting at 1 in each section. 
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INTRODUCTION 


The DOS/TOS PL/I compiler is designed to 
compile source programs written in the PL/I 
Subset language. A set of library subrou- 
tines that are part of the component is 
used as control routine for the execution 
of PL/I programs in the DOS/TOS environ- 
ment. 


The language implemented is the language 
described in the SRL publication PL/I Sub- 
set Lanquage Specifications, Form C28-6809. 
Further restrictions and implementation- 
defined features are listed in the SRL 


publication IBM System/360 Disk and Tape 


Operating Systems, PL/I Programmer's Guide, 
Form C24-9005. This publication also des- 


cribes the Disk and Tape Operating Systems 
as the environment of the PL/I compiler. 


The DOS/TOS PL/I compiler is a multi- 
phase, multi-pass compiler. Input to the 
compiler is read from the logical unit 
SYSIPT. The compiler output is produced on 
the logical unit SYSLST. Object programs 
are produced on SYSPCH or SYSLNK. Three 
work files are used by the compiler. All 
three work files may be either on tape (DOS 
and TOS) or on disk (DOS only). On DOS, a 
Second compiler version that allows SYSIPT, 
SYSLST, and SYSPCH to be 2311 DASD extents 
is available. The version used is 
determined at system generation time. The 
compiler version that allows system logical 
units to be DASD extents requires 12K of 
main storage. Switching between tape and 
disk work files on DOS is automatic at open 
time. 


Parts of the first phase (PL/I) remain 
in main Storage as a control routine during 
execution of the other phases of the com- 
piler. Their function is the execution of 
I/O operations for work files and inter- 
phase communication. A special smaller 
control routine is used during execution of 
the extremely long phases DOO to D10 which 
do not use the table file SYS001. 


The PL/I library is a set of relocatable 
routines and transient core-image library 
routines. The library is used at object 
time for: 

1. Monitoring object program execution, 
2. Performing input/output operations, 


3. Performing object time conversions, and 


4. Built-in functions. 


IBM SYSTEM/360 DOS/TOS PL/I PLM 


The relocatable library routines are 
cataloged into the relocatable library and 
loaded by the autolink feature. Six 
library routines are cataloged into the 
core-image library. These routines are 
loaded at execution time into a transient 
area of the PL/I library to perform func- 
tions that are not frequently used, e.g., 
opening of files, etc. Their phase names 
Start with $ to ensure storage in the pri- 
vileged region of the core-image library. 
An additional routine ($$BPLOSE) is to be 
executed in the systems logical transient 
area when closing PL/I files. 


For detailed information on the library 
subroutines refer to the library subrou- 
tines PLM named on the cover page. 


The storage used by the compiler is 
divided into the following 4 parts (see 
Figure 1): 


1. Control routine 
2. Compiler phases 
3. Table area 

4. Buffer area 


O cp US uec Eme 1 
| | 
| | 
| Control Routine | 
| | 
| | 
Pje ł 
| | 
| | | 
| Compiler Phases | 
| | 
| | 

6.75K [---—---—-—--—-------------—--—-—------—----- ] 
| | 
| Table Area 6*256 bytes 
8.25K [------------------—---—-----—---------- 1 
| 
| Buffer Area 7*256 bytes | 
| 
10K t--—--—-—-—---—-—--—--—--—-----—------—--------—--—-— J 


Figure 1. Storage Used by PL/I Compiler 
The last part of the control routine 
area is the table directory. Part of this 

area can be overlaid by the first phases 
that use only a few of the tables, The 
table area is used for processing by com- 
piler phases that have no table handling. 
Some phases use less than 7 buffers and can 
therefore use part of the buffer area, 
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T T T 

| |Tab. | Buff. | 
| |Module | | | | 
| Name | Name | [Length|End [Area [Use |No. 
}------- i------- ————Á—— a ł------ ł----- ł------ ł----}-----]4 
| PL/I |IJXA00 |DOS control routine and initialization {|5016 [5016 |1896 |N | O 

IJXAOOD|DOS control routine and initialization {|5426 |5426 |3534 |N | 0 

| [with system files on disk | | | | | 
| |IJXAO0 |TOS control routine and initialization [4224 |4224 [2688 |N | O 
|PL/IA10|IJXA10 |Overlay for tape work files (DOS only) | 898 | 898 | NA | N | 0 
is |Elimination of blanks and comments, | | | | | 
| | |replacement of keywords ¡6004 ¡9118 |1280 | N | 4% 
| PL/IA30|IJXA30 |Replacement of identifiers 13124 [6238 | 674 | T | 7 
|PL/IA35|IJXA35 |Pictures [5700 [8256 | 704 |N | 5 
|PL/TA45|IJXA45 |Character-string replacement [3234 [5950 | 962 | T | 7 
|PL/IA50|IJXA50 |Scan block structure 13012 [5728 |1184 |N | 7 
|PL/IA60|IJXA60 |Syntax 1 [5120 [7676 | 772 | N | 7 
|PL/IA65|IJXA65 |Syntax 2 14748 [7304 {1144 |N | 7 
|PL/IB10|IJXB10 |Declaration scan 1 [2264 (4980 |1932 | T | 7 
| PL/IB15|IJXB15 [Declaration scan 2 [3528 [6244 668 | T | 7 
| PL/IB20|IJXB20 |Symbol table construction 1 |3704 |6420 | 492 | T | 7 
| PL/IB25|IJXB25 |File declarations ¡3804 |6484 | 428 | T | 7 
| PL/IB30|IJXB30 [Symbol table construction 2 (diagnostic)|2592 ]5308 |1604 | T | 7 
| PL/IB4O|IJXB40O [Symbol table construction 3 | | | | | 
| | | (structures, etc.) 2604 [5320 [1592 | T | 7 
|PL/IB70|IJXB70 |Symbol table construction 4 (contextual | | | | | 
| | |declarations) 13660 |6376 | 536 | T | 7 
|PL/IB75|IJXB75 |BUILTIN versus contextual declarations | 1568 4284 |2628 | T | 7 
|PL/IB80|IJXB80 |Symbol table construction 5 (implicit | | 
| | | declarations) ono | 6208 704 | T | 7 
| PL/IB90]IJXB90 |Prestatement generation 1 | 3072 2788 TER | T | 7 
|PL/IB92|IJXB92 |Prestatement generation 2 |3196 5912 |1000 | T | 7 
|PL/IB95|IJXB95 |Array table construction 1736 [4416 |2304 | T | 7 
| PL/IB97|IJXB97 |External name table construction 2736 |5452 |1460 | T | 7 
| PL/ICOO|IJXCOO |Symbol table listing [3230 [5946 | 966 | T | 7 
| PL/IC25|IJXC25 |IF scan [2956 |5672 |1280 | T | 7 
| PL/IC30|IJXC30 |Constant processing 1 [3020 [5736 |1176 | T | 7 
|PL/IC35|IJXC35 |Block sorting ¡3084 [5764 | 956 | T | 7 
|PL/IC50|IJXC50 [I/O scan 1 [3558 [6274 | 638 | T | 7 
| PL/IC55|IJXC55 |1/0 scan 2 [3684 [6400 | 512 | T | 7 
| PL/IC60]IJXC60 |I/O scan 3 [38040 [6520 | 392 | T | 7 
|PL/IC65|IJXC65 ]|I/O scan 4 [3748 [6464 | 448 | T | 7 
|PL/IC85|IJXC85 |DO scan 1 |3276 1593561 356 |T j| 7 
| PL/IC86[IJXC86 |DO scan 2 13676 [6356 | 556 |T | 7 
| PL/IC95|IJXC95 [Switch to small control routine [1032 [3748 {3164 | T | 7 
[PL/IDOO|IJXDOO |Statement decomposition [5472 [6976 [23687 | N | 3.5 
| PL/IDOS|IJXDOS5 |Conversion, precision, storage types [7400 [8888 | 7121 | N | 2.5 
[PL/IDTO|IJXD10 |Macro generation 1 [6856 [8360 | 9841 | N | 3.5 
|PL/ID11|IJXD11 [Macro generation 2 [4226 [17026 |2318 | N | 3.5 
|PL/ID15|IJXD15 |Evaluation of subscripts [3784 {5500 [2948 | N | 7 
[PL/ID17|1JXD17 [Generation of linkage to library [5082 [7798 |1162 | N | 5 
|PL/ID20|IJXD20 |Special built-in functions [5184 [7900 [1060 |N | 5 
| PL/ID4O|IJXD4UO [ON generation 13940 |6656 [23047 | N | 5 
|PL/ID70|IJXD70 [Constant processing 2 (conversion) I4344 |7060 | 620 | T/2] 7 
| PL/ID75|IJXD75 |I/O macro generation 1 13716 (6432 [2016 |N | 7 
[PL/ID80|IJXD80 |I/O macro generation 2 [2632 [5348 [3100 | N | 7 
AWCE Bona cT a a a «nouo PEPA De qoo PEREZ 
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EE OGR ARA FATE REI unen DEUS BOCA Op 0-74 5 AW] ed 
| PL/IE25 ]IJXE25 Ímain Diagnostic | 3762 [6478 | 434 |T | 7 | 
|PL/IE25A|IJXE26 |Messages | 1200 [6470 | - |= | = | 
| PL/IE25B|IJXE27 |Messages | 1200 [6470 | - | dicm | 
|PL/IE25C|IJXE28 |Messages | 1200 [6470 | - p m- 1 | 
| PL/IE25D|IJXE29 [Messages | 1200 [6470 | - WI dom | 
|PL/IE25E|IJXE30 |Messages | 1200 [6470 | - | qom | 
|PL/IE25F|IJXE31 |Messages | 1200 [6470 | - | SĘ | 
|PL/IE25G|IJXE32 |Messages | 1200 |6470 | - Es nose | 
| PL/IE25H|1JXE33 |Messages | 1200 [6470 | - pa dq. | 
| PL/IE25I|1JXE34 |Messages | 1200 [6470 | - MINE E. | 
| PL/IE25J|IJXE35 |Messages | 960 [6230 | 240 |- | - | 
|PL/IE50 |IJXE50 |Code generation 1 | 5308 [8024 | 424 |N | 7 | 
|PL/IE60 |IJXE60 |Code generation 2 | 4688 |7404 |10442 | N | 7 | 
|PL/IEGOA|IJXE61 |Macro library (overlay) | 2933 17217 112312 |= | = | 
|PL/IF25 |IJXF25 |Sorting of variables and constants 3860 [6576 | 592 | T3 | 6 | 
| PL/IF35 |IJXF35 [Optimization of constants | 3032 [5748 |1164 | T | 7 | 
|PL/IF75 |IJXF75 |Storage allocation 2708 [5424 {1488 | T | 7 | 
|PL/IF90 |IJXF90 |Construction of offset table | 2214 |4930 |1982 | T | 7 | 
|PL/IF95 |IJXF95 |Code generation for offset > 4K | 2360 [5076 |1836 | T | 7 | 
|PL/IGOO |IJXGOO |GOTO optimization | 3914 [6630 | 464 | T | 7 | 
|PL/IGO1 |IJXGO1 |Insertion of label offsets | 2216 [4896 |2766 | T | 7 | 
[PL/IG15 |IJXG15 [Final offset preparation | 3488 [5204 | 420 | T | 7 | 
| PL/1G17 |IJXG17 |File generation 1 | 5060 |7776 {1952 |N | 2 | 
| PL/IG17B|IJXG17B|File generation 2 (DTFMT) | 4902 [7618 {2210 |N | 2 | 
| PL/IG17D[|IJXG17D|File generation 3 (DIFSD) | 4854 |7570 |2258 | N | 2 | 
| PL/IG17E|IJXG17E|File generation 4 (DTFSD) | 3262 [5978 |3750 |N | 2 | 
| PL/IG17R|IJXG17R| File generation 5 (REGIONAL (1) ) | 4770 17486 |2234 | N | 2 | 
|PL/IG17S|IJXG17S|File generation 6 (REGIONAL (3) ) | 5446 {8162 |1566 |N | 2 | 
|PL/IG20 |IJXG20 |Produce file module, rearrange | 1912 |4628 |2284 | T | 7 | 
| | |SYS001 | NEM | 
| PL/IG25 |IJXG25 |Generate ESD | 3148 |5864 |1048 | T | 7 | 
|PL/IG30 |IJXG30 |Generate TXT, RLD, END | 2624 [5340 |1572 |T | 7 | 
|PL/IG31 |IJXG31 |Final diagnostic | 2838 |5454 |4170 | N | 1 | 
|PL/IG4O |IJXG4O0 |Object code listing | 4420 [7136 |1824 |N | 5 | 
| PL/IG55 [conca (Erna output | 4402 |7118 |1842 | N | 3 | 
PA AC AA A PRE PROCE E Al-222--2-42222-2-jb.-22-2422-2-4.2.----] 


| 1 SEA an stack. 
|? Includes 10-byte parameter from PL/IE25. 
|3 Shifted up one buffer. 


|^ 2 buffers are used by Program at the beginning of the phase. 


Figure 2. List of Phases (Part 2 of 2) 


Figure 2 lists all phases including 
their function, length, and maintenance 
area. The entry in the column Tab. Use 
specifies whether the table area is used 
for table handling (T) or for other purpos- 
es (N). The number of 256-byte blocks used 
as buffers is given in the last column. 


The starting point of the compiler is 
assumed to be zero in this list. The DOS 
version not supporting system files on disk 
is assumed in this table. The maintenance 
area includes the area required for the 
control routine. 


If more than 10K are available to the 
compiler, the remaining storage is used to 
increase the table area (maximum used is 


64K) and the buffer length (maximum 1536 
bytes per buffer). This increases the 
compiler performance considerably. 


The I/O flow during compilation is shown 
in Figure 3. 


PL/I object programs including library 
subroutines, IOCS modules, and static stor- 
age form one or more phases. Automatic 
Storage is allocated beginning at the end 
of the longest problem program phase up to 
the end of storage available to background 
programs. Start and end addresses of auto- 
matic storage are taken from the DOS/TOS 
communication region and are handled by a 
PL/I library subroutine. 
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The compiler is built up of about 70 phas- 
es, which may be grouped into five logical 
parts referred to as packages. 


In this package, the programmer-written 
source text is transformed into a text 
string, the format of which is oriented to 
the logical structure of a PL/I program. 
This means that language elements such as 
statements, prefixes, identifiers, delimi- 
ters, etc. are translated into a represen- 
tation that permits the relatively simple 
recognition of that association. 


Redundant information (blanks and 
comments) is deleted from the text string, 
The non-executable DECLARE statements are 
also deleted. The information contained 
therein is transferred to the corresponding 
identifiers in the text string where they 
occur. 


The program string is syntactically 
checked and diagnostie information for 
errors, if any, iS inserted. 


The syntax of the PICTURE attribute is 
checked and the information required either 
for further processing or during execution 
at object time is provided. 


A symbol table is constructed. It is 
listed if listing is specified in the 
OPTION job control statement. 


The compiler also constructs tables for 
character constants, names, files, external 
names, and arrays. 


nas EN CS ED Z AO e iim OO 


AS the result of the processing in package 
1, the source text is now a statement- 
oriented text string. 


This package of phases processes the IF, 
I/O, and DO statements. Processing of this 
group of statements requires special phases 
Since these statements all possibly contain 
expressions, the handling of which involves 
a considerable programming effort. The 
above statements are scanned and the 
expressions prepared for further processing 
in package 3. 


The IF statements are expanded into 
Simple statements that can be processed in 
package 3. Branch and label-definition 
macros are generated. 


LOGICAL PARTS OF THE COMPILER 


The I/O statements are semantically 
checked, and DO loops are generated for 
repetitive specifications. For ail I/O 
Statements containing the FILE option, the 
identity of the information given in the 
file declaration (from the FILE table) and 
that in the FILE option is checked. The 
I/O statements are then prepared to be 
Sequentially processed in package 3. 


The DO statements are decomposed into 
Simple statements. Branch and label- 
definition macros similar to those in the 
IF phase are generated and inserted in the 
program string. 


In addition, blocks are ordered 
Sequentially in this package. 


Package 3 (Phases DOO - D80) 


All executable statements are processed in 
this package. The statements that were 
preprocessed in package 2 are now finally 
processed. The result of this processing 
is a text string consisting of elements 
that do not refer to statements but to 
Separate operations. The text elements 
that represent these operations are called 
macros. 


Array and structure assignments are 
decomposed. 


Expressions are reordered in reverse 
Polish notation. The necessity for data 
type conversions is determined and the 
conversions are prepared by macros. In 
addition, macros are generated to give each 
Variable the storage type required for 
particular operations, e.g., register, 
Working storage, etc. Registers are allo- 
cated for operands that are to be reg- 
isters. The appropriate library call macro 
is generated for built-in functions imple- 
mented by library routines. 


Subscripts are evaluated. If the sub- 
Scripts are constants, they are evaluated 
at compile time. Otherwise, the appropri- 
ate macro is generated for use at object 
time. 


ON entries that contain the ON and pre- 
fix information are generated to be includ- 
ed in static storage. 

Conversion of constants is performed at 
compile time. 
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If errors are detected in the program 
string, the corresponding diagnostic messa- 
ges are printed, if specified, 


Assembler-type code is generated from 
the macros. The selection of the macros 
depends on the type of the macro, the stor- 
age class of the operands of the macro, and 
further information contained in the 
macros. 


A model instruction dictionary is used 
to furnish additional information indepen- 
dent of the information contained in the 
macro. 


Indirect addressing is assigned for 
operands that have the attributes external, 
parameter, or controlled. 


ao —Ó—nÓ — m Á—— MM MÀ e ———— e € e 


This package is referred to as the assem- 
bler of the compiler because its functions 
are similar to those of an assembler. 


14 


Storage is allocated for variables and 


constants. 


Constants are optimized. 


Final machine instructions 
by changing the format of the 
instructions and by replacing 
of the assembler instructions 
ister and displacement. 


are generated 
assembler 

the operands 
by base reg- 


Code for branches and addressing beyond 
the scope of 4K-blocks is generated. 


The required tables are generated for 


each file. 


Note: The logical flow of the compiler is 





illustrated in Figure 1. 
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THE TEXT STRING DURING COMPILATION 


The general concept for the representation 
of the text string is that the text string 
consists of text elements whose first byte 
(the key) contains the meaning of the ele- 
ment. The keys may be either X'En' or 
X'Fn'. X'En' is used for text elements 
with fixed length; X'Fn' is used for text 
elements with variable length. For the 
latter category, the two following bytes 
give the length of the element. 


During compilation, the text passes the 
following five main states: 
1. Source text (phases A25 - B95) 


2.  Statement-oriented text 
E25) 


(phases C25 - 


3. Macros (phases E50 - E61) 


4, Assembler code (phases F25 - G15) 


5. Final output (phases G17 ~ G55) 


Source Text 


This is the initial status of the text 
String. The source program is taken as it 
is written by the programmer. 


After deleting redundant information, 
e.g., blanks and comments, and translating 
the machine-dependent external code into an 
internal code, the individual language 
elements are replaced. First, the iden- 
tifiers that look like keywords are 
replaced by 3-byte keys. The remaining 
identifiers are replaced by 3-byte internal 
names.  Delimiters are replaced during the 
Syntax phases by their 3-byte keys. 


DECLARE statements are deleted from the 
text string. The information contained 
therein is partially transferred to pre- 
Statements that are constructed to precede 
the statements. 


Statement-oriented Text 
At this stage, a Statement may consist of 
the following items: 


1. Each statement is introduced by a 
6-byte statement identifier with the 
key X'EO'. 


2. The statement identifier may be 
followed by a table that contains the 
attributes of the declared variables. 
The attribute table has the key X'F4', 
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Sequence of macros. 


£v c 


AR 
NY 


3. Items 1 and 2 (where item 2 is 
optional) may be followed by a table of 
the constants declared in the corres- 
ponding statement. The constant table 
has the key X'F3', 


4. The statement body consists of a 
sequence of 3-byte elements, each of 
which represents either an identifier 
or a keyword. 


5. Each statement is terminated by a 
6-byte "end of statement" (EOS) has the 
key X'EA'. 


6. The statement i ae of the 
elements listed under items 1 through 
5) may be followed by 2-byte error 
indicators giving the errors that were 
detected in the preceding statement. 
The error indicator has the key X'EB'. 


This form of the text string is changed 
by deleting the statement attribute tables 
and replacing each statement body by a 
The replacement of the 
statement bodies is performed in several R 
steps. This means that specific phases a 
process only specific statements, whereas No 
the remaining statements are passed 
unchanged to the next phase. At this 
Stage, the status of the text string is 
therefore not uniform. 


For some operations, generated variables 
are used as additional required storage, 
e.g., for the result of an operation. 
Definitions of such generated variables 
(with the key X'FO0') are inserted into the 
text string. 


For a limited time, additional informa- 
tion may be inserted into the text string, 
e.g., to mark an element as interesting or 
not interesting for some other phase (s). 


Macros 
The statement body is replaced by one or 


more macros. Each macro represents a par- 
ticular operation. Macros have tne key 


X'F2'. The format of the individual macros 
is fixed (see General Description of Phases 


E50 - E61). The macros contain the infor- 
mation required for generating the assem- 
bler code. 


The definition of the individual macros 
is such that each macro is either associat- Co 
ed with a fixed set of code, or the selec- "OE 
tion of the required code is possible only 
by means of the operands of the macro. 
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The error indicators are deleted from 
the text string at the same time the macros 
are replaced by assembler code. 


Assembler Code 


After the assembler code has been generat- 
ed, the text string consists of the follow- 
ing: 


1. Statement identifiers as just des- 
cribed. 


2. Assembler code. 

3. Generated variables as just described. 
4. Constant tables as just described. 

5. End of statement as just described. 


Assembler code elements have the key 
X'F6'. Two types of instructions are used: 
machine instructions and pseudo instruc- 
tions for communication with the assembler 
(phases F25 - G55). The machine instruc- 
tions refer to the IBM System/360 machine 
instructions, to which they are equal 
except for the format of the operands. The 
format of the assembler code is described 
under General Description of the Phases E50 
- E61. 


The constant tables and generated varia- 
bles are deleted from the text string after 
Storage allocation. The first three bytes 
of all assembler code elements (X'F6xxxx') 
are also deleted. 


After storage has been allocated, it is 
possible to replace the operands of the 
assembler code by base register and dis- 
placement. Thus, the assembler instruc- 
tions are expanded by insertion of the 
address of a symbolic given operand (base 
and displacement) after the corresponding 
Operand. Most of the pseudo instructions 
furnish information for this change and are 
deleted after the expansion. Only the 
instructions defining or reserving storage 
(DC X, DS) remain in the text string. 


The static storage for the program is 
given a format similar to the pseudo 
instructions and is joined to the program 
string that consists of the assembler 
instructions. 


This format of the text string is the 
last step on the way to the final output. 


Final Output 


The final output of the compiler consists 
of two modules, each of which consists of 
ESD, TXT, and RLD cards, and an END card. 
The first module is produced for all of the 
file declarations; the second module is 
produced for the program with the static 
Storage. The TXT cards are generated from 
the assembler instructions and the static 
Storage. 


The system file accommodating the final 
output of the compiler depends on the 
Options specified in the OPTION job control 
Statement. 
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COMPILER INTERFACE 


A OC RAD a EI EEE A O A CEE RELY AA RO 


The logical I0CS provided by the DOS/TOS is 
used for input and output of data during a 
compilation. For this purpose as well for 
loading a new phase, the compiler control 
routines (interface) are provided to com- 
municate between the compiler phases and 
the operating system. The interface mainly 
consists of subroutines to be called by the 
individual phases. Each subroutine causes 
DOS/TOS to perform a specific function 
requested by a phase. 


These subroutines form the main body of 
the compiler control program, which con- 
tains a communication region used by the 
phases. Some of the subroutines, together 
with the communication region, are part of 
phase A00/A00D and reside in storage 
throughout the compilation. (For excep- 
tions refer to phase C95.) The main func- 
tions of these subroutines are: 


l. To load a new phase from the core-image 
library on SYSRES. 


2. To handle the input text stream on 
SYS002 or SYS003; 


3, To handle the output text stream on 
SYS002 or SYS003; 


4. To write information on SYS001 for 
intermediate storage; 


5. To read information intermediately 
Stored on SYS001. 


Alternating from phase to phase, the 
logical units SYS002 and SYS003 serve as 
input or output medium. The three logical 
units SYS001, SYS002, and SYS003 must 
always be assigned to physical units of the 
Same device type (disk or tape). The 
device type may be changed from job to job. 


The internal communication area 
(interphase communication region) provided 
in the control program is used for communi- 
cation between different phases. 


Macro instructions may be used in a 
compiler phase to branch through a branch- 
ing vector in the interphase communication 
region to one of the interface routines in 
the compiler control program. 


Some compiler phases require data input 
or output in addition to that mentioned 
above. These functions pertain to the 
input of the source program, output of 
listings, writing the object module either 
on SYSPCH or on SYSLNK for compile-and-go. 
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A special routine is provided for each of 
these functions. It is assembled together 
with the phase requesting the function. 
The functions of these routines and the 
names of the logical I/O units used are 
listed below: 


1. Input of PL/I source program from 
SYSIPT; 


2. Output listing of source program on 
SYSLST; 


3. Output listing of the offset table on 
SYSLST; 


4. Output listing of error messages on 
SYSLST; 


5. Output listing of source program sym- 
bols and external references on SYSLST; 


6. Output listing of generated object 
program on SYSLST; 


7. Output of generated object module on 
SYSLNK; rA 


8. Output of generated object module on Sow 
SYSPCH. 


The logical unit SYSLNK must always be 
assigned to a physical unit of the same 
device type as SYSRES (disk or tape). The 
device type is fixed at system generation 
time.  SYSIPT, SYSLST, and SYSPCH may be 
assigned to different device types. The 
assignment of these three units may be 
changed from job to job. The file specifi- 
cations for these units are of the type 
DTFCP, which provides device independence. 
The user can control the bypassing of some 
output for listings or object modules by 
means of appropriate parameters in the 
OPTION card. 


Some special control routines can be 
inserted into a compiler phase by means of 
appropriate macro instructions. These 
routines serve for input and output of 
table information on the device assigned to 
SYS001 and for moving a record of any 
length into the available storage area. 


Storage Layout During Compilation 


Storage allocation during compilation is 
illustrated in Figure 1. It is assumed 

that at least 10K (excluding the storage A 
required by the DOS/TOS) is available for i 
compilation of PL/I programs. The area 

occupied by the DOS/TOS is followed by an 
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area of 2.6K for the compiler control pro- 
gram and logical IOCS routines used by it. 
The table directory (184 bytes) which con- 
tains information on tables used during 
compilation is contained in this area. The 
area provided for the compiler phases is 4K 
bytes long. It is followed by the Table 
Area and the Buffer Area. If more than 10K 
bytes are available for the PL/I compiler, 
the entire additional storage area is allo- 
cated to the Table and Buffer Areas. 


A O RR 1 
| | 
| | 
| 16K DOS/TOS 
| | 
| | 
0 | | 
| 
LIOCS | 
| | 
| | 
1.5K p----------------------------------- 4 
| Table Directory (184 bytes) | 
A year ł 
| 
{ Control Program | 
| | 
| | 
2.7K + MIU UT a IPS kę A E cr ELS Pe CLE TELLS ae C Y e ABET PO E TT oe ee ag ET w UNA GT. 1 
| | 
| | 
| Compiler Phases | 
| | 
6.7K | 
| 
| Table Area | 
| | 
| 
| Buffer Area | 
| | 
10K | | 
A a TE 4 


Storage Layout During Compila- 


AS shown in Figure 1, the begin address 
of the Table Area is always 6.7K bytes 
higher than the start address of the stor- 
age available during compilation. The 
length of the Table Area and the start 
address of the Buffer Area are calculated 
in the Initialization routine of this phase 
as follows: The Buffer Area (see Figure 2) 
is partitioned into seven buffers of equal 
length. The first five buffers serve as 
WOrk areas for the compiler phases. The 
remaining two buffers are used as input and 
output areas for overlapped processing of 
text information. The length of the Buffer 
Area is the sum of the individual buffers 
plus 9 bytes. (These 8 bytes serve a spe- 
cial use during compilation.) The length 
of a single buffer depends on the total 
Storage available during compilation. The 
minimum length is 256 bytes, which results 
in a minimum Buffer Area length of 256 x 7 
+ 8 bytes = 1800 bytes. 


The minimum buffer length is always 
taken for an available storage size from 
10K to 14K. The minimum storage for both 
the Table and the Buffer Area is: 10K - 
2.5K - 4K - 184 bytes = 3.4K. Thus, the 
minimum length of the Table Area is 3.4K - 
1800 bytes = 1600 bytes. 


For the tape version, the length of a 
single buffer is extended by 256 bytes for 
each additional 4K available storage until 
the length reaches 1536 bytes (for 30K 
storage). This is shown in Figure 3. If 
more than 30K is available, the buffer 
length remains at 1536 bytes and the entire 
additional storage is allocated to the 
Table Area to reduce the time required for 
compilation. 


For the disk version, the buffer length 
increases similarly (see Figure 3). To 
avoid unused track space as far as possi- 
ble, the maximum buffer length for the disk 


tion (for 16K) version is 1536 bytes. 
cu DEL C c cC CM m MMC ECC MM MMC M MEME CM EE NL E MMC S CO UM DE 1 
| Overall Storage Requirements about 3.3K | 
pares een ROSS PROGR Se eee eee | "So oO => a NÓ 1 
| Table Area Buffer Area | 
| ------------------------------------------ po ppp p 
| [Work |Work|work|workiwork| IIZO FIZO | 
l |Area|Area|Area|Area|Area|8 Bytes |Area|Area| 
| |2 |3 |4 |5 | [1 |2 | 
AA A PES IE E er RE ZOE OB cos Ss Se ek EELE E eget y 33 


Table and Buffer Areas 
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Figure 3.  Partitioning of Storage for Buffer and Table Areas 
Communication with the Control Routines communication region to be assembled in the 
compiler phase without storage being 
The routines of the compiler interface that assigned to it. During the Initialization 
remain in storage together with the inter- routine, the start address of the communi- 
phase communication region are called by cation region is loaded into register 12. 
use of special macro instructions. The If a USING instruction is given at the 
expansion of each of these macro instruc- beginning of each phase, this register can 
tions contains a branch to the correspond- be used as base register for addressing the 
ing routine through a branching vector in communication region. 
the interphase communication region. 

The main purpose of the communication The interphase communication region 
region is to accommodate information to be shown in Figure 4 can be logically divided 
exchanged between phases. It is part of into four parts. The first part is the 
the control section IJXA01 in phase A00 or branching vector that contains branch 
AO00D and assembled by the macro instruction instructions to the individual interface 
IJKCO INTERF. If the parameter INTERF is routines always contained in storage. Most co 


omitted, a dummy section for this region is 
assembled. This is done in every compiler 
phase to cause each symbol specified in the 
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of the macro instructions provided for use 
in the compiler phases generate a branch to 
this branching vector. 
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B |IJKAGI READ RECORD FROM TEXT INPUT IN OVERLP 
B |IJKAGO READ RECORD FROM TEXT OUTPT IN OVERLP 
B |IJKANT GET RECORD IDENTIFICATION (I,O,T) 

B |IJKAPH ROUTINE FOR END OF PHASE 

B |IJKAPI WRITE RECORD ON TXT INPUT IN OVERLP 

B |IJKAPO WRITE RECORD ON TEXT OUTPUT IN OVERLP 
B |IJKAPT ROUTINE FOR POINTW 

B |IJKARN RESET END IDENTIFICATION FOR SYS001 

B |IJKAWT WAIT FOR COMPLETION (I,O,T) 
B 
B 
B 
B 
B 
B 
B 
B 


i m — MÀ — M an | 


|IJKATIN READ RECORD FROM SYS001 IN NONOVERLP 

|IJKATOUT WRITE RECORD ON SYS001 IN NONOVERLP 

| IJKAMN MOVE RECORD NORMALLY | 
|IJKAGINO READ RECORD FROM TEXT INPUT IN NOOV | 
|IJKAGONO READ RECORD FROM TEXT OUTPUT IN NOOV | 
|IJKAPINO WRITE RECORD FROM TEXT INPUT IN NOOV | 
|IJKAPONO WRITE TEXT RECORD ON TXT OUTPUT IN NOOV | 
IJKAPTR ROUTINE FOR POINTR | 


|IJKMTT |DC |A(IJXAOJ) ADDRESS OF TABTAB 
|IJKMTS [DC |A(IJXAOM) ADDRESS OF TABLE SPACE 


ORZEŁ ZEP GOO ZAD ZO O AZORY ZZA DOZ ERZE O MEL E a ZZA DA RZA ZE AA ŻE RADAN RE A KARE 4 
[COMMUNICATION BYTES | 

| IJKMLB |DC |8r'0' LIBRARY USAGE BYTES | 
| IJKMBS |DS |F BUFFER AREA START ADDRESS | 
|IJKMPR [DS |F BUFFER FOR PRINT REGISTER | 
|IJKMPC |DS |F BUFFER FOR PUNCH REGISTER | 
| 

| 





|IJKTAB |DC |A(0) RECORD IDENTIFIER FOR TABTAB ON SYS001 
|IJKMVC |DC |H'256' VARIABLE COUNTER 
|IJKMNN |DC |H'0' INTERNAL NAME OF THE ADDRESS CONSTANT FOR THE ORIGIN OF COMPILATION 


|IJKMWC |DC |H'O' COUNTER FOR GENERATED VARIABLES WITH UNKNOWN ATTRIBUTES 
|IJKCSL [DC |H'O' LENGTH OF CHARACTER STIRNGS 
IIJKPAG {DC |E'1' PAGE NUMBER FOR LISTING 





OREW AR A oni Roi LE 
|IJKMJT |DC |F'O'JOB INFORMATION BITS | 
| | BIT 0 SYSIN HAS BEEN CALLED | 
| | BIT 1 ERRORS IN CURRENT COMPILATION | 
| | | BIT 2 ARRRAYS IN CURRENT COMPILATION | 
| | | BIT 3 STRUCTURES IN CURRENT COMPILATION | 
| | | BIT 4 ARRAY EXPRESSIONS IN CURRENT COMPILATION | 
| | | BIT 5 I/O IN CURRENT COMPILATION | 
| | | BIT 6 FILE ATTRIBUTE IN CURRENT COMPILATION | 
| | | BIT 7 INITIAL ATTRIBUTE IN CURRENT COMPILATION | 
| | | BIT 8 DEFINED ATTRIBUTE IN CURRENT COMPILATION | 
| | | BIT 9 SYSPRINT HAS BEEN CALLED | 
| | BIT 10 PICTURE ATTRUBUTE IN CURRENT COMPILATION | 
| | BIT 11 INDICATES MAIN PROCEDURE | 
| | | BIT 12 CALLS FOR LIBRARY ROUTINES IN COMPILATION | 
| | | BIT 13 DO LOOPS IN CURRENT COMPILATION | 
| | | BIT 14 TABLE DICTIONARY ON SYS001 | 
| | | BIT 15 OUTPUT LISTING STARTED | 
| | | BIT 16 TYPE OF WORK FILE MEDIA DURING COMPILATION 0 FOR TAPE | 
| | | BIT 17 IF ON, SYS002 IS THE CURRENT TEXT INPUT MEDIUM | 
| | | BIT 18 INDICATES ONSYSLOG | 
| | | BIT 19 FORMAT LABELS IN CURRENT COMPILATION | 
| | | BIT 20 BUILT-IN FUNCTIONS IN CURRENT COMPILATION | 
| | BIT 21 NEED FOR INDIRECTLY CALLED LIBRARY ROUTINES | 
| | | BITS 22 - 26: RESERVED | 
| | | BIT 27 SKIP BIT FOR PHASE C25 | 
| | BIT 28 SKIP BIT FOR PHASES C50-C55 | 
| | | BIT 29 SKIP BIT FOR PHASE C85 | 
| | | BIT 30 SKIP BIT FOR PHASES C60-C65 | 
| | | BIT 31 SKIP BIT FOR PHASE C65 | 
pS NR 1 

| 

| 

| 

| 

| 

| 

| 

J 


ES 


|IJKDCW |DC |Y (0) DECLARED VARIABLE COUNTER INCL. CONST. 
LL c ine doas deer usec uud AA a tsi cu uuu eem aC M E La E IA 


Figure ü. Assembly Listing of the Interface Communication Region (Part 1 of 2) 
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pere BOT e uc CI p nuc INA ZN ON w. MITES SN EPI UDINE UI Edd. 1 
|IJKMIP |DS |5H INTERPHASE COMMUNICATION BYTES | 
|IJKMBL |DC |Y (256) BUFFER LENGTH | 
|IJKMBC |DC |X'00' BLOCK COUNTER | 
|IJKMCH |DC |CL6'CL2-0' | 
}~------ E ------- == ---- $$ on nnn nee 
| | |TABLE KTETA FOR INTERFACE HOUSEKEEPING | 
| | feo -------- == --- 22 A no-no nn nnn nnn nn nnn nnn nnn nnn nnn nnn ene i 
|KTETA |DC |A(KSYS002) POINTER FOR TEXT INPUT | 

[DC JA (KSYS003) POINTER FOR TEXT OUTPUT | 
|KSYS001|DC [A(IJSYSO1) ADDRESS OF FILE TABLE FOR 5Y5001 | 
| |DC |F'O' RESERVED FOR LINE NUMBER. MAINTENANCE | 
| IDC |F'O' END KEY FOR INFORMATION ON SYS001 | 
| [DC [x'18000000' INDICES | 
|KSYS002|DC |A(IJSYSO2) ADDRESS OF FILE TABLE FOR SYS002 | 
| [DS |F ADDRESS OF I/O AREA FOR SYS002 | 
| [DC |F'O* END KEY FOR INFORMATION ON SY5002 | 
| [DC |X"18000000" INDICES | 
[KSY5003|DC |A(IJSYS03) ADDRESS OF FILE TABLE FOR SYS003 | 
| [DS |F ADDRESS OF I/O AREA FOR SYS003 | 
| [DC |F'0' END KEY FOR INFORMATION ON SYS003 | 
| {DC [x'18000000' INDICES | 
ļ------- MH AAA a nn nnn w oo 1 
| | | SAVE AREAS | 
| MM I 
| |DS |OD | 
|KSAVE1 |DS |F SAVE AREA FOR REGISTER | 
|KSAVE2 |DS |F SAVE AREA FOR REGISTER | 
|KSAVE3 |DS |F SAVE AREA FOR REGISTER | 
|KSAVE4 |DS |F SAVE AREA FOR REGISTER | 
|KSAVE5 |DS |F SAVE AREA FOR REGISTER | 
|KSAVE6 |DS |F SAVE AREA FOR REGISTER | 
|KSAVE7 |DS |F SAVE AREA FOR REGISTER | 
|KSAVE8 |DS |F SAVE AREA | 
|KSAVE9 |DS |F SAVE AREA | 
|------- E —M——ÓÓ————X 1 
| | |SYMBOLIC NOTATION FOR REGISTERS | 
| | pe---------------------------------------------~-------------- ~-~----------- { 
|ZREGO |EQU|O | 
[ZREG1 |EQU]1 | | 
|ZREG2 |EQU|2 | 
|ZREG3  |EQU|3 | 
|ZREG10 |EQU]| 10 | 
|ZREG11 |EQU|11 
ZREG12 |EQU| 12 
ZREG14 |EQU| 14 | 
|ZREG15 |EQU|15 | 
ļ------- E -=-= T-——------------ 1 
| | |TABTAB DESCRIPTION | | 
| | | NAME TABLE DESCRIPTION | PHASE TO PHASE | 
[------- }---}---------------------------------------------------------- }---------------- { 
|ZTABOO |EQU[000 CARTAB CHARACTER CONSTANT TABLE | A45 G15 | 
|ZTABO1 |EQU|008 NAMTAB NAME TABLE | A25 COO | 
|ZTABO2 |EQU| 168 SYMTAB SYMBOL TABLE | B10 F90 | 
| ZTABO3 ERE 024 FILTAB FILE TABLE | B25 G17 | 
|ZTABO4 |EQU|O32 EXTTAB EXTERNAL NAME TABLE | B97 G25 | 
|ZTABO5 |EQU[040 ARYTAB ARRAY INFORMATION TABLE | B95 D15 | 
|ZTAB07 |EQU|056 DSTAB DS TABLE | F25 F90 | 
|ZTAB08 |EQU|064 CONTAB CONSTANT TABLE | F35 G15 | 
|2TAB11 |EQU|O88 OFFTAB FINAL OFFSET TABLE F90 G15 | 
|ZTAB16 |EQU!128 CARDS CARDS FOR FINAL OUTPUT | G20 G55 | 
|ZTAB18 |EQU|144 FORMTAB FORMAT LABEL TABLE | C60 D15 | 
|ZTAB21 |EQU{016 LITAB LIOCS TABLES | A00 G55 
|ZTAB19 |EQU|152 CONEQU EQUATE TABLE | F35 F90 
|ZTAB19 |EQU|152 LABTAB LABEL OFFSET TABLE GOO G25 
bee TER Se cc li A M erf T ORO o J 
Figure 4. Assembly Listing of the Interface Communication Region (Part 2 of 2) 
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The second part consists of communi- 
cation bytes. These are various DC entries 
where information is exchanged from phase 
to phase. This part further includes 
entries for the work buffer length, the 
start address of the Table and Buffer 
Areas, and the TABTAB address. The entry 
IJKMJT contains job information bits which 
indicate special features of the source 
program to be compiled, e.g., structures, 
etc. 


The third part is a register save area 
used by the individual interface routines. 


The fourth part is a string of EQU 
Statements specifying register names and 
offsets of TABTAB entries. 


Note: The base register (register 15) is 
saved by the subroutines. Therefore, no 
reloading of the base address is required 
in the compiler phase after a macro 
instruction has been issued. 





The functions of SYS002 and SYS003 (text 
input and output, respectively) are normal- 
ly switched at the end of a compiler phase. 
This switching is done by means of the 
table KTETA, which is part of the communi- 
cation region and contains file specifi- 
cation information for SYS001, SY5002, and 
SYS003. The format of this table is shown 
in Figure 4. The table contains one 4-word 
entry for each of the work files. The 
contents of each ü-word entry are described 
below. 


The first word contains the address of 
the file definition table. The second word 
contains the address of the I/O area used 
(for SYS002 and SYS003 only). For over- 
lapped I/O operation, the same I/O area is 
always assigned to one of SYS002 and 
SYS003. The third word contains the record 
identifier for the last record written on 
the file. It is changed whenever the end 
key for the information written must be 
Saved. The first byte of the fourth word 
contains housekeeping flag-bytes (see Fig- 
ure 5). Bytes 3 and 4 are used to accommo- 
date the available track length. 


The first two words of KTETA contain 
pointer addresses. Each address points to 
one of the 4-word entries for SYS002 and 
SYS003. The first one of these pointers 
represents text input, the second rep- 
resents text output. Switching of the I/O 
functions for these units simply consists 
of an exchange of these first two words in 
KTETA. 


The use of this table is discussed in 
more detail in the description of the indi- 
vidual control routines. One of the main 


functions of the control routines is the 
Setting, resetting, and testing of flag 
bits in KTETA. 


l 
| 
| 
1 
I 
| 
| 


T 
| Bit 0 | Index for writing | 
| Bit 1 | Index for end of file | 
| Bit 2 | Index for first read call | 
| Bit 3 Index for rewinding | 
| Bit 4 Index for checking | 
| Bit 5 | Index for POINTW | 
| Bit 6 | Index for NOTE | 
| Bit 7 | Index for POINTR | 
AAA A A da L ED TEZA J 


Figure 5. Flag Bits Used in KTETA 

The information to be exchanged between 
phases is stored in the form of tables 
written on SYS001. A communication table, 
referred to as TABTAB and following the 
Interface area, is provided for accessing 
these tables. Each table is pointed to by 
an 8-byte entry in TABTAB. Each entry 
contains the information shown in Figure 6. 


mem -— ete —— z u w alee — ape eee es ee ee 4 — i me a— A 4 eee Aa Gp A ee eee A A M E AA CUP O cue wom A W ee i ma 


1 [Bit 0 = 1 indicates that the table 
is on SYS001 


[Bit 1 = 1 indicates that that table 
| is in storage 
[Bit 2= 1 


been started 
2 Identifier of the first table 
|record on SY5001 
5--6 |Number of records on SYS001 for the 
| table | 
1==8 inen Of a record on SY5001 | 


| | 
| | 
| | 
| | 
| indicates that transfer | 
| | to or from SYS001 has | 
| | 
| | 
| | 
| | 
| 

| 


Figure 6. Format of Entries in TABTAB 
Two special routines (ZTIN and ZTOUT) 

are provided for reading and writing tables 
or part thereof on SYS001. If these rou- 
tines are to be used, the entry for record 
length must have been specified by the 
compiler phase. The housekeeping on the 
other TABTAB entries is explained in the 
discussion of the individual routines. 


Interface Structure for DOSXTOS Versions 


The structure of the interface differs 
according to the DOS/TOS version used. The 
differences are as follows: 


1. The work files used for the tape ver- 
sion are of the form DTFMT, MTMOD. The 
Same is used for the disk version if 
the work files are assigned to tapes. 
DTFSD, SDMOD is used if the work files 
are assigned to disks. For the disk 
version, file tables and modules for 
DIFSD, SDMOD are loaded. During the 
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initialization, the type of work files ||  [--------- 





r | rasa AC M M A ee 1 — 
is tested and, if necessary, tables and {Routine |Calling Macro Instruction | pa 
modules for tape work files are loaded F--------- p---------------- we ee | NO 
(phase A10) to overlay the previous | IJKAWT | IJKWT | 
ones. Thus, the user may change his [--------- E ] 
assignments for work files on tape or | IJKANT |IJKNT | 
disk from job to job if he used the [--------- $e —-— -- —-~------ 
disk version. |IJKAPTR* |IJKPTR | 

|IJKAPT*  |IJKPT | 

2. If the work files are assigned to disk, [--------- -.------------------------------ q 
a flag bit is set in the interphase | IJKAPH |IJKPH | 
communication region during Initializa- [--------- -.------------------------------ 4 
tion, and a conditional branch instruc- | IJKASI*  |IJKGI | 
tion in the control routine for text |IJKAGO*  |IJKGO | 
input (IJKAGI) is changed to an uncond- |IJKAGINO* |IJKRI | 
itional branch. |IJKAGONO* | IJKRO 

|IJKAPI*  |IJKPI 

3. For the disk version, the file paramet- |IJKAPO*  |IJKPO | 
er DISK=YES is always specified for the | IJKAPINO*|IJKWI l 
file IJSYSLN. For the 32K disk ver- | IJKAPONO* | IJKWO | 
Sion, the same parameter DISK-YES is [--------- Sn A A 4 
specified for the files IJSYSIN, IJSYS- | IJKAMN |IJKMN | 
IS, and IJSYSPHa © — ^  * ^ Dukes ei ——ÁÁ—————Á—— ] 

RE |Contained in ZTIN | 

4. The output listing header lines differ | | (see Figure 8) | 
for the disk and tape versions. This [--------- pT2.-.----------------------------- 1 
implies differences in the listing |IJKATOUT |Contained in ZTOUT | 
phases. | | (see Figure 8) | 

A es La o E | 

LIOCS Modules Used by the Interface [*=Routine with more than one entry point. | 

AAA ILE LL eu tie J 

The logical LIOCS modules used by the com- Figure 7. Interface Routines Called by 

piler are included during the Linkage Edi- Macro Instructions == 

tor run; they are not assembled together 
with the phases. The routines listed in Figure 7 inter- Na 
nally use the following subroutines: KGET- 

The module name for the files IJSYSIN, NOTE, KREAD, KCHECK, and K2CHECK. (The 
IJSYSLS, and IJSYSPH is IJJCPO for the tape last two names are entry points of the same 
version and the 16K disk version; it is routine.) 

IJJCPDO for the 32K disk version. 

The module name for the file IJSYSLN is Note: KCHECK and K2CHECK are entry points 
IJJCPO for the tape version and IJJCPDO for of the same routine. 
both disk versions. 

The second class of routines comprises 

The module name for work files is all routines that can be assembled in the 
IJGWZNZZ for disk work files, and IJFWZNZZ phase either directly or by means of macro 
for tape work files. instructions. These routines are called 

inside the phases by appropriately branch- 

The work file module is always in stor- ing to them. The names of these routines 
age; the other modules are in storage only and the corresponding macro instructions to 
together with the phases needing them, and include them are listed in Figure 8. 
overlaid by other phases. 

(eee pi A dd dc M cM E 1 

| Routine | Macro for Assembly | 

}---~------- }----~--------~---------------- 1 

INTERFACE ROUTINES USED BY COMPILER PHASES | ZTIN |  IJKTI 

| ZTOUT | IJKTO 

There are two classes of routines. The ZMO | IJKMO | 

first class comprises routines that remain ZRCD | = | 
in storage during the entire compilation |  ZPRNT > | 

(with the exceptions described in phase | ZLEDI | = | 

C95). They are called by macro instruc- | ZPCH | - | 

tions in the compiler phases. t----------- di MMMMMMMMMMMM M J 

The names of the routines and the cor- Figure 8. Interface Routines Assembled 
responding macro instructions are listed in In-Line either Directly or by 
Figure 7. Macro Instructions 
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The source programs for ZRCD, ZPRNT, 
ZLEDI, and ZPCH are part of the correspond- 
ing phase source program. 


The functions of all interface routines 
and the corresponding macro instructions 
are explained in the following sections. 


KCHECK, K2CHECK -- AF 


When this subroutine is called, register O0 
(KCHECK) or register 2 (K2CHECK) contains 
the address of a work file item in KTETA. 
If necessary, the subroutine issues a CHECK 
macro instruction for this work file. For 
correct housekeeping on the record iden- 
tifier in the LIOCS, this CHECK macro 
instruction must be given only once after 
each read or write operation. The check 
index (a flag bit in KTETA) is used to 
check whether the CHECK macro instruction 
is required. 


When this subroutine is called, register 2 
contains the address of a work file item in 
KTETA. The subroutine performs some house- 
keeping and issues a NOTE macro instruc- 
tion. If a first call is performed after a 
write operation, the record identifier 
obtained by NOTE is saved in KTETA together 
with the information for available track 
length. If a further call is performed 
after a write operation, no further NOTE is 
issued, but the information saved in KTETA 
is returned as for the preceding call. If 
a call is performed just after reposition- 
ing of the work file (in IJKAPH), a zero is 
returned in register 1 for the record iden- 
tifier. This zero, if used in calling 
IJKAPT or IJKAPTR, causes a POINTS macro 
instruction to be issued. 


KREAD -- AF 


KREAD merely is the expansion of a work 
file read macro instruction. 


IJKAWT -- AG 


This routine is called by a compiler phase 
to wait for the completion of a read or 
write operation on a work file. On return, 
all register contents are unchanged. The 
macro for calling is IJKWT with one of the 
parameters I, O, or T. 


The parameters I, O, and T specify text 
input, text output, and table medium, res- 
pectively. The macro expansion is a load 
instruction loading the address of a work 
file item in KTETA into register 0, and a 
branch-and-link instruction that branches 
to the branching vector in the interphase 
communication region. An example for the 
macro expansion is: 


L ZREGO,KTETA 
BAL ZREG14,32 (ZREG12) 


IJKAWI performs the wait function by using 
the subroutine KCHECK. 


IJKANT -- AG 


This routine is called to obtain the actual 
record identifier. This may be repeated 
Several times after a read or write opera- 
tion. On return, register 0 contains the 
available track length (useful after writ- 
ing on disk only), register 1 contains or 
the record identifier. The other registers 
remain unchanged. The macro for calling is 
IJKNT with one of the parameters I, O, or 
Ta 


The parameters I, O, and T specify text 
input, text output, and table medium, res- 
pectively. An example for the macro expan- 
sion is: 


L ZREGO,KTETA*l 
BAL ZREG14,8 (ZREG12) 


IJKANI performs the NOTE function by using 
the subroutines KCHECK and KGETNOTE. 


IJKAPTR, IJKAPT -- AG 


This routine performs a POINTW (IJKAPT), a 
POINTR (IJKAPTR) or a POINTS operation (see 
description below) on a work file. On 
return, all register contents are 
unchanged. The macro instructions for 
calling are either IJKPT or IJKPTR with one 
of the parameters I, O, or T. 


The parameters I, O, and T specify text 
input, text output, and table medium, res- 
pectively. 


If one of these macros is given in a 
compiler phase, register 1 must contain the 
record identifier of the record to be 
pointed to (as obtained after a NOTE). If 
IJKPT is given, register 0 must contain the 
available track length only if a write 
command follows this pointing. An example 
for the macro expansion of IJKAPTR is: 


L ZREGO,KTETA*U 
BAL ZREG14,64 (ZREG12) 


The first instruction loads the address of 
a Work file item in KTETA into register 0, 
the second instruction branches to the 
branching vector. An example for the macro 
expansion of IJKAPT is: 


STH ZREGO0,KSAVE7 
L ZREGO,KTETA+4 


BAL ZREG14,24 (ZREG12) 


The first instruction saves the contents of 
register 0, which may be the available 


Compiler Interface 27 


PL/I PLM 8 


IBM Confidential 


track length. The two other instructions 
are as Shown for IJKAPTR. 


The routine first calls the subroutine 
KCHECK. Then a test is made to determine 
whether the record identifier in register 1 
is zero. If it is zero, a POINTS is 
issued, otherwise a POINTR or a POINTW, 
depending on the calling macro instruction. 


Eventually, some flag bits are reset if 
a point was done with the actual end key 
Stored in KTETA. 


IJKAPH, KREP -- AH 


The routine IJKAPH is normally used at the 
end of a compiler phase. It fetches a new 
compiler phase if requested by the calling 
program and repositions SYS001 and/or 
SYS002, if required. Moreover, the func- 
tions of SYS001 and SYS002, as regards text 
input and output, can be switched. 


If rewinding or Switching is requested 
by the calling program, register 0 must 
contain a Specified number according to the 
following convention: 


«register 0> = 0 No rewinding, no switch- 


ing 

«register 0» = 1 Rewind input medium, no 
Switching 

«register 0> = 2 Rewind output medium, no 
Switching 

«register 0> = 3 Rewind both media, no 
Switching 

«register 0» = 4 No rewinding, switching 

«register 0> = 5 Rewind input medium, 
switching 

«register 0> = 6 Rewind output medium, 
switching 

<register 0> = 7 Rewind both media, 
switching 


If a new compiler phase has to be 
fetched, register 1 must contain the 
address of a 4-byte character string that 
contains the last three character bytes of 
the phase name (right-aligned). Note that 
all compiler phase names differ in the last 
three characters only. 


The routine first rewinds the text 
media, if necessary, using the subroutine 
KREP. It then switches their functions, if 
required. Finally, some housekeeping is 
done and a FETCH macro instruction is given 
if a new phase is required by the calling 
program. 


If a write operation was the last opera- 
tion performed on a text medium, the actual 
end key for this medium is saved prior to 
rewinding. 


The routine IJKAPH can be called by the 
keyword macro instruction: 
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IJKPH NEWPH=,REW=ALL | I |O,SWITCH=NO 


If a new phase is required, the keyword 
NEWPH must be specified followed by an 
equal sign and the three ending characters 
of the phase name. If NEWPH is not speci- 
fied, no phase is fetched, and the routine 
returns to the calling program. For rew- 
inding, the keyword REW may be specified 
followed by an equal sign and one of the 
parameters NO, ALL, I, or O. The meaning 
Of these parameters is: 


NO No medium must be rewound 
ALL Both media must be rewound 


I The actual input medium must be 
rewound 

O The actual output medium must be 
rewound 


If REW= with a parameter is not speci- 
fied in the macro instruction, both media 
are automatically rewound. For switching 
of functions, the keyword SWITCH is speci- 
fied followed by an equal sign and one of 
the parameters YES or NO. The meaning of 
these parameters is: 


YES Switching is performed 
NO Switching is not performed 


If SWITCH= with a parameter is not spec- 
ified, switching is done automatically. 


IJKAGI , IJKAGO, IJKAGINO, IJKAGONO -- AI, AJ 


This routine is used to read records from a 
work file medium. It can be called by 
various macro instructions. Each macro 
instruction provides a branch to a specific 
entry point by means of the branching vec- 


tor. The correspondence is: 

[^m quce ZER TE S ESTEE 1 
|Macro | | | 
|Instruction|Entry Point|Function | 
| IJKGI | IJKAGI |Overlapped input | 
| | |from text input | 
| | | medium. | 
| IJKGO | IJKAGO |Overlapped input | 
| | [from text output | 
| | medium. | 
| IJKRI | IJKAGINO Non-overlapped | 
| | |input from text | 
| | | input medium. | 
| IJKRO | IJKAGONO |Non-overlapped | 
| | |input from text | 
| | {output medium. | 
que RE dll otl ac: | NOZ A Oe J 


When one of these macro instructions is 
given in a compiler phase, register 1 must 
contain the address of the area where the 
new record is required. For IJKRI and 
IJKRO, this is the input area for reading; 
for IJKGI and IJKGO, this is the work area. 
Note that overlapped input means that the 








e 


Sa 


ii 





PL/I PLM 8 


IBM Confidential 


record is available after returning from 
this routine, whereas non-overlapped input 
means that reading in the indicated area is 
started on return from the routine. 


Some indices and pointers for KTETA are 
set first, depending on the entry point 
used. Then (only on the disk version, see 
Initialization)a test is made to determine 
whether a POINTW operation for the same 
file preceded this call. If so, a dummy 
read is performed to position the medium 
for reading. 


For overlapped working, a test is made 
to determine whether reading in the over- 
lapped mode has already been started. If 
this is not the case, a first record is 
read into the input area. 


Before moving this record into the work 
area, the routine waits for completion of 
the preceding read operation. Finally, a 
new reading is started, and the routine 
returns to the calling program. 


For non-overlapped working, the routine 
checks for completion of any previous oper- 
ation. Then, a new read operation into the 
input area indicated in register 1 is 
Started. 


Note: Each starting of a new read opera- 
tion is preceded by a test to determine 
whether the work file medium is positioned 
at the end of the information written on 
it. If it is, the routine returns without 
having started a new read operation. 


The entry point at box G2 in flowchart 
AI is used by the routine IJKATIN to read a 
table record from IJSYS001 in non- 
overlapped mode. 


The routine normally returns with 
register 0 set to 0. However, if no more 
records are available, register 0 contains 
a 1. All other registers are unchanged. 


IJKAPI, IJKAPO, IJKAPINO, IJKAPONO -- AK 


This routine writes records on a work file. 
It can be called by various macro instruc- 
tions. Each macro instruction provides a 
branch to a specific entry point by means 
of the branching vector. The correspon- 
dence is shown below. 





[output on text 
|output medium. 


Coe er Fr Tin ee quc A 1 
Macro [Entry Point|Function | 
IJKPI |IJKAPI |Overlapped output | 
| | [on text input | 
| | | medium. 
| IJKPO | IJKAPO | Overlapped output | 
| | lon text output | 
| | | medium. | 
|IJKWI |IJKAPINO |Non-overlapped | 
| | {output on text | 
| | |input medium. | 
| IJKWO | IJKAPONO | Non-overlapped | 
| | | 
| | | 
L 


When one of these macro instructions is 
given in a compiler phase, register 1 must 
contain the address of the area from where 
the new record has to be read. Each macro 
expansion is a branch-and-link instruction 
that branches to the branching vector. For 
IJKWO and IJKWI, this is the output area 
for writing; for IJKPI and IJKPO, this is 
the work area. 


Non-overlapped output means that writing 
from the output area is started on return 
from the routine.  Overlapped output means 
that the output record is first moved from 
the work area to the output area used by 
the interface. Output is then started from 
there before returning. 


The routine sets some indices and poin- 
ters in the table KTETA depending on the 
entry point used. It checks for completion 
of any previous operation on the same file. 
A test is made to determine whether a 
POINTW is required for the file to position 
the medium at the end of the information 
actually written on it. If so, a POINTW is 
issued with the end key saved in KTETA. 
This end key is saved on each NOTE after a 
write operation. No POINTW is required if 
a write or rewind command was given last. 
This concept allows the compiler phases to 
interrupt the writing by some intermixed 
reading. 


After this test, a record is moved from 
the work area to the output area if over- 
lapped working was requested. Writing is 
then started and the routine returns with 
all register contents unchanged. 


IJKAMN -- AL 


This routine is used to move a record of 
any length from one area to another. Over- 
lapping of the form that the start address 
of the TO area lies inside the FROM area is 
not allowed. The routine first moves sin- 
gle 256-byte records until a field shorter 
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than 256 bytes remains to be moved. The 
residual moving length is then calculated 
and moving is performed. If the whole 
length on calling is zero, no moving is 
performed by the routine. 


IJKAMN can be called in the source pro- 
gram of the compiler phase by the macro 
instruction IJKMN. The macro expansion 
consists of a branch-and-link instruction 
that branches to the branching vector in 
the interphase communication region, e.g.: 

ZREG14,44 (ZREG12) 
The following register contents must have 
been provided: 


register 0 - total field length, 

register 1 - start address of the TO field, 

register 2 - start address of the FROM 
field. | 


On return from the routine, registers 1 
and 2 contain the end addresses +1 of the 
corresponding fields. The content of reg- 
ister 0 is undefined. All other registers 
remain unchanged. 


IJKATIN -- AL 


This routine is called by ZTIN in the com- 
piler phase to read a record from SYS001 in 
non-overlapped mode. On calling, the 
address of the input area is contained in 
register 1. This address and the maximum 
table record length are supplied to the 
subroutine KREAD. The routine then branch- 
es to some entry point of IJKAGINO. There 
is no macro instruction to call this rou- 
tine. 


IJKATOUT -- AL 


This routine is called by ZTOUT in the 
compiler phase to write a record on SYS001 
in non-overlapped mode. On calling, the 
address of the output area is contained in 
register 1, the length is contained in 
register 0. The register contents are 
supplied to the routine IJKAWI. The rou- 
tine then branches to some entry point of 
IJKAPINO. There is no macro instruction to 
call this routine. 


ZTIN -- AM 


The symbolic start address of this routine 
is ZTIN. It can be called into the source 
program of a compiler phase by the macro 
instruction IJKTI. On branching to the 
routine, the following register contents 
must have been provided: 


«register 0» - Number of records to be 
read, 

Start address of the read-in 
area of the records, 
Relative address of the 
entry in TABTAB. 


«register 1» 


«register 2» 
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A table can be read from SYS001 in sev- 
eral steps, i.e., by branching to ZTIN C 
Several times for the same table. If a d 
table is to be read in from its beginning, 
bit 2 of the corresponding TABTAB entry 
must be set to zero prior to branching to 
the routine. In all other cases, it must 
be set to one. 


The routine first tests whether bit 2 of 
the TABTAB entry is zero. If it is, the 
following steps are performed: 


1. If a write operation was the last oper- 
ation on SYS001, the last record writ- 
ten is first identified by a NOTE macro 
instruction; the identifier is saved 
for writing on SYS001 at a later time. 


2. Bits 1 and 2 of the TABTAB entry are 
set to 1. 


3. SYS001 is repositioned according to the 
record identifier found in the TABTAB 
entry, provided that this record iden- 
tifier is less than the identifier for 
the last record written on SYS001. If 
the record identifier is higher, com- 
piling is terminated with an error 
dump. Then the reading of the single 
records is started. 


The routine normally returns to the 
calling program when reading of the last 
record has been started. Thus, a limited 
overlapping of I/O and processing is possi- 
ble. 


C) 


A test is made for each record to be 
read to check that it is not located beyond 
the end of information written on SYS001. 
If this test matches for each record, the 
routine returns with register 0 set to 0. 
If this test does not match for a new read- 
ing, ZTIN is terminated immediately and 
returns with register 0 set to 1. 


The routine ZTIN performs its I/O func- 
tions by calling routines in the compiler 
control program. The record length is the 
physical record length for each record 
read. 


ZTOUT -- AN 


The symbolic start address of the routine 
is ZTOUT. It can be called into the source 
program of a compiler phase by the macro 
instruction IJKTO. On branching to the 
routine, the following register contents 
must have been provided: 


«register 0» End address of the output 
area+1, 

<register 1> = Start address of the output 
area, 

Relative address of the 


entry in TABTAB. 





<register 2> 
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If the beginning of a table is to be 
written on SYS001, bit 2 of the correspond- 
ing TABTAB entry is set to zero prior to 
branching to ZTOUT. In this case, the 
identification for the first record written 
is saved in TABTAB after this record has 
been written on SYS001. In all other 
Cases, bit 2 of the TABTAB entry is set to 
1. 


Prior to starting the write operation, 
the routine checks whether the end address 
in register 0 is less than or equal to the 
start address or whether the record length 
RL stored in the TABTAB entry is not in the 
range 18 < RL < 3500. The compilation is 
terminated with an error dump if these 
conditions occur. 


After the first record has been written 
on SYS001, bit 2 in the TABTAB entry is 
checked for zero. If it is zero, the fol- 
lowing is done prior to the next write 
operation: 


1. The record identification for the 
record just written is saved in the 
TABTAB entry; 


2. The number of records written for the 
table on SYS001 is set to 1 in the 
TABTAB entry; 


3. Bits 0 and 2 of the flag byte in TABTAB 
are set to 1. 


The length of the records written is 
determined by the TABTAB entry. The rou- 
tine normally returns after having started 
the writing of the last record. The length 
of this record is at least 18 bytes. 


ZRCD -- AO 


This routine is used to read source cards 
and to print lines on SYSLST. Reading and 
printing is done in overlapped mode. 


This routine uses ZPRNT as a ubroutine 
for printing. Each line is 120 characters 
long. For reading, the routine contains 
the two I/O areas used for overlapped read- 
ing. 


On each call but the first, the routine 
writes a line and then reads a card. On 
the first call, only the first card is 
read. On each return from the routine, 
register 10 points to the start address of 
an alternative input area where a card has 
been read in. Register 11 points to the 
Start address of an alternative output area 
where the record for output on SYSLST can 
be built. 


The logical IOCS used for reading is of 
the type DTFCP, CPMOD. The branch address 


for the end-of-file condition is ELCO10 in 
phase A25. 


ZLEDI -- AO 


This routine is used to write a record on 
SYSLNK in non-overlapped mode. Only one 
output area of the length 322 bytes is 
used. This output area is located in the 
Buffer Areas otherwise used as IO areas 
for text input and output. Its start 
address is equal to the start address of 
the two Buffer Areas. Each output record 
is 322 bytes long (4 cards). The first two 
bytes of the output record contain the 
number of logical records (4) and the 
length of a single logical record (80), 
respectively. This control information is 
provided by the phase. 


On return from ZLEDI, the output is 
completed and a new record can be built in 
the output area. 


ZPCH Ss AO 


This routine is used to produce a record on 
SYSPCH in overlapped mode. The length of 
each output record is 81 characters, the 
first character being a control character 
for stacker selection. 


Two 80-byte I/O areas are specified for 
overlapped output in the uppermost Buffer 
Area otherwise used as I/O area for text 
input and output. No text input or output 
is performed during execution of a phase 
that contains ZPCH. Register 10 is used to 
point to the IZO area where the next record 
for output on SYSPCH can be built by the 
phase. This register must not be changed 
by any phase using ZPCH. 


On each return from the routine, reg- 
ister 10 points to an alternate I/O area. 


Prior to the first branch to ZPCH, the 
compiler phase must issue the macro 
instruction IP to load register 10 with the 
address of the first I/O area where the 
phase can build the first output record. 
The expansion of the IP macro instruction 
153 


E ZREG10,IJKMPC 
LA  ZREG10,1 (ZREG10) 


IJKMPC is an entry in the communication 
region and contains the output area address 
for the first output on SYSPCH. This 
address is stored during initialization. 


ZPRNT, HESUB -- AP 


The routine ZPRNT is used for any output on 
SYSLST. The routine automatically provides 
header lines and subheader lines on each 
page, using the subroutine HESUB. 
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Each header line contains compiler name, start address of the TO field is higher 


program number, change level, job name, and than that of the FROM field, the field is a 
page number. The content of the subheader moved step by step from the right to the NU 
line depends on the compiler phase. left. The move length for a single step is 
thereby calculated according to the follow- 
Each line is 120 characters long. Writ- ing formula: Move Length - Min (256, field 
ing of single lines is done in overlapped | length, address difference). This move 
mode. Therefore, two I/O areas are speci- length implies a correct moving for any 
fied in the fifth work buffer. Register 11 field overlapping. 
is used as I/O register to point to the 
output area where the next record can be 
built by the phase for output on SYSLST. LOGICAL IOCS FOR THE TAPE VERSION 
This register must not be changed by the 
phase containing ZPRNT. On each return Work Files SYS001, SYS002 and SY5003 
from the routine, register 11 points to an 
alternate I/O area. The register content The first control section of phase A00 
is saved in the entry IJKMPR in the inter- contains the DTFMT tables for these work 
phase communication region at the end of files . The name of this control section 
the initialization and at the end of any is IJXAOO. 
listing phase. 
| The file specifications are the same for 
Prior to the first branch to this rou- all three work files, e.g., 
tine, the compiler phase must issue the 
macro instruction IJKIL. The expansion of IJSYS01 DTFMT BLKSIZE = 3072 
this macro instruction is: DEVADDR = SYS001 
EOFADDR = K001EOF 
L ZREG11,IJKMPR NOTEPNT = YES 
LA ZREG11,1 (ZREG11) RECFORM = UNDEF 
OI IJKMJT-*1,X'01' TYPEFILE - WORK 
MODNAME = IJFWZNZZ 
The first instruction loads the register 
with the saved content, The register then For IJSYS002 and IJSYS003, the blocksize 
points to the control character position. entry is BLKSIZE = 1536. yz 
The second instruction causes the register C n 
to point to the first position of informa- The address of the input or output area RZ 
tion to be given out. The last instruction is specified in the expansion of the res- 
sets a flag bit for printing in the inter- -pective READ or WRITE macro instruction. 
phase communication region, this flag bit The file specification implies non- 
is tested at phase end in the routine overlapped working. Thus, overlapping, if 
IJKAPH for end of phase. any, is done by the control routines. 
ZMO -- AQ The logical IOCS module is not assembled 
in phase A00; it is included during linkage 
This routine is used to move a record of editing. 


any length from a FROM field to a TO field. 
The two fields may overlap. The routine is DTFCP Files for SYSLST, SYSIPT, SYSPCH and 
assembled in the source program of a com- SYSLNK 
piler phase by the macro instruction IJKMO. 
For device independence, the logical IOCS 
It can be called in the phase by branch- used for these files is of the type DTFCP, 
ing to ZMO. There is the following conven- CPMOD. 
tion on register contents for calling: 
The file specifications for the print 





register 0 contains the field length, file IJSYSLS are assembled in phase A00 in 
register 1 contains the start address of the control section IJXA01. This DTFCP 
the TO field, table remains in storage throughout the 
register 2 contains the start address of entire compilation (for exceptions see 
the FROM field. phase C95). The file specifications are: 
On return, registers 1 and 2 contain the | IJSYSLS DTFCP DEVADDR = SYSLST 
end address+1 of the corresponding fields. IOAREA1 = KTETA 
The content of register 0 is undefined. IOAREA2 = KTETA 
All remaining registers are unchanged. RECSIZE = 121 
TYPEFLE = OUTPUT 
The routine first tests whether the IOREG = 11 
start address of the TO field is lower than 
that of the FROM field. In this case, the The module IJJCPO is included in all 


routine IJKMN is called for moving. If the printing phases during linkage editing. 
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The addresses of the two 1/0 areas are 
fixed in the Initialization routine. 
Output for listing is always done in over- 
lapped mode, using two I/O areas and reg- 
ister 11. 


The file specifications for the input 
file IJSYSIN are assembled in phase A00 in 
the control section IJXA06. This DTFCP 
table serves for input during phase A25. 

It is further used for closing the file 
IJSYSIN in the last compiler phase. It is 
therefore written on SYS001 in phase A30 in 
order to save storage during the other 
compiler phases. The file specifications 
are: 


IJSYSIN DTFCP DEVADDR = SYSIPT 
IOAREA1 = KTETA 
IOAREA2 = KTETA 
RECSIZE = 81 
EOFADDR = ELCO10 
TYPEFLE = INPUT 
IOREG = 9 


The module IJJCPO for this input and for 
listing is included in phase A00 during 
linkage editing. It is not overlaid during 
phase A25. Input is done in overlapped 
mode using two input areas and register 9. 
The input areas are fixed in the Initiali- 
zation routine. 


The file specifications for the punch 
output file IJSYSPH are assembled in the 
control section IJXA06. After this file is 
opened in the Initialization routine, the 
file table is written on SYS001 to save 
storage. It is reloaded into storage by 
phase G55 for punching and closing the 


file. The file specifications are: 

IJSYSPH DTFCP DEVADDR = SYSPCH 
IOAREA1 = KTETA 
IOAREA2 = KTETA 
RECSIZE = 81 
TYPEFLE = OUTPUT 
IOREG = 10 


The module IJJCPO for this output is 
included in phase G55 during linkage edit- 
ing. Output is done in overlapped mode 
using two output areas and register 10. 

The output areas are fixed in the Initiali- 
zation routine. 


The file specifications for IJSYSLN are 
assembled in the control section IJXAO06. 
After this file is opened in the Initiali- 
zation routine, the file table is written 
on SYS001 to save storage. It is reloaded 
into storage by phase G55 for link file 
output and for closing the file. The file. 
specifications are: 


IJSYSLN DTFCP DEVADDR = SYSLNK 
IOAREA1 = KTETA 
RECSIZE = 322 
TYPEFLE = OUTPUT 


The module IJJCPO for this file is the 
same as for the punch file. Output is done 
in non-overlapped mode. The address of the 
output area is fixed in the Initialization 
routine. The first two bytes of the output 
record contain the number of logical 
records (4) and the length of a single 
record (80), respectively. 


LOGICAL IOCS FOR THE DISK VERSIONS 


Work Files SYS001, SYS002 and SYS003 


Disks will normally be used as work files 
for the disk versions. Therefore, the 
first control section of phase A00 (DOS 
16K) or A00D (DOS 32K) contains the DTFSD 
tables for these work files. This control 
Section is named IJXA00 (DOS 16K) or 
IJXAO0D (DOS 32K). 


The logical IOCS module named IJGWZNZZ 
and used for these work files on disk is 
not assembled in phase A00 or phase AOOD, 
but inciuded during linkage editing. Dur- 
ing the Initialization routine, the con- 
figuration is tested for tape media for 
these work files. If tapes are specified, 
phase A10 is loaded at the location of the 
tables and the module for the work files 
(see phase A10). The file specifications 
are the same for all three disk work files, 


e.g., 


IJSYS001 DTFSD BLCKSIZE = 3072 
DEVICE = 2311 
EOFADDR = KOO1EOF 
NOTEPNT = YES 
RECFORM = UNDEF 
TYPEFLE = WORK 
DELETFL = NO 
MODNAME = IJGWZNZZ 


For IJSYS002 and IJSYS003, the blocksize 
entry is BLCKSIZE = 1536. 


DTFCP Files for SYSIPT, SYSLST, SYSLNK, and 
SYSPCH 


The handling of these files is similar to 
that of the tape version. The exception is 
the parameter DISK = YES in some file 
specifications. This parameter is always 
given for the link file IJSYSLN. For the 
other three files, it is only entered for 
DOS 32K. Whenever I/O functions are 
requested for a file with the parameter 
DISK = YES, the module IJJCPDO instead of 
IJJCPO is included during linkage editing. 


Compiler Interface 33 


PL/I PLM 8 


IBM Confidential 


PHASES PL/IAO0, A00D, A10 (INITIALIZATION) -- AR | Ex 


© 





The first phase loaded during a PL/I compi- p[7-7-—--—-.T--------------------------------- 1 
lation is either PL/IAOO (for DOS 16K and | IJXA00 *| LIOCS tables for work files | 
TOS) or PL/IAOOD (for DOS 32K). Phases A00 | E----—----------------------------- 4 
and A00D contain | Eo | 
| | SD module IJGWZNZZ** | 
the interphase communication region, | p---—------------------------------ 4 
a fee tee ——— 
peer |Save area for LIOCS (72 bytes) | 
the interface, and | 2s FR eee --- - - - - -- - - -- - - - - -- - + +--+ | 
J Interphase communication region | 
the initialization routine. | -——————————-—--—--------------------— 4 
| | 
Phases A00 and AOOD differ in the DTF | | | 
tables and modules. | |Control routines that are always | 
| | in storage 
The PL/I compilation starts with the | | | 
Initialization routine that performs some | | 
preparation for the entire compilation. If | | [--------------------------------- | 
the disk version is used and tape drives iron |LIOCS table for IJSYSLS 
are assigned to work files SYS001, SYS002, | [p--------------------------------- | 
and SYS003, the Initialization routine |IJXA05 |TABTAB | 
calls phase A10 to overlay the DTF tables | -}----------------~—------~--------- 4 
and module for disk work files. | poo e ooo 4 
| |CP module IJJCPO*** | 
| }--------------------------------- { 
Storage Map of Interface A00 for Disk 16K t------- pQ--——-—---------------------------- 1 
|IJXA06 |LIOCS table for IJSYSIN | T 
The object module of A00 consists of 3 | [--------------------------------- 1 AB: 
control sections. The first section | |LIOCS table for IJSYSPH | Ma 
(IJXA00) contains the LIOCS tables for work | .-------------------------------- | 
files and the module IJGWZNZZ, which is | |LIOCS table for IJSYSLN | 
called from the relocatable library by the [0 NN nn nnn nnn mmm 4 
Linkage Editor, | 
| {Initialization 
The second section (IJXA01) contains the | | | 
Save Area for LIOCS, the interphase com- [------- Lu oo 1 
munication region, the control routines | * for 32K disk : AOOD | 
which are always in storage, the LIOCS |** for tape : MT module IJFWZNZZ | 
table for SYSLST, the area reserved for eet for 32K disk : IJJCPDO | 
TABTAB, and the CP module, which is called *t------------—-----------------------------— J 
from the relocatable library by the Linkage 
Editor. Figure 1. Storage Map of IJXA00 for 16K 
Disk 
The third section (IJXA06) contains the 
LIOCS tables for IJSYSIN, IJSYSPH, and Initialization for Tapes -- AS 
IJSYSLN and the Initialization routine. 
This routine has two principal functions: 
After opening the files, the tables for Storage allocation during PL/I compilation 
IJSYSPH and IJSYSLN are written on SYS001 . and opening of files. Storage allocation 
during the initialization; they are reload- and some housekeeping functions depend on 
ed into storage by the final output phases the type of the work file. Therefore, the 
of the compiler. Thus, the storage area routine shown in flow chart AS is used both 
can be overlaid by all other compiler phas- in the tape version and in the disk version 
es. The same applies to the table for with tape work files. Opening of files is 
IJSYSIN after phase A25. identical for the disk and tape versions. 
The load point for most phases is IJXAOS For tape work files, the initialization 
+ 4, Exceptions may be looked up in the begins with rewind commands for SYS001, 
Linkage Editor mapping for the compiler. SYS002, and SYS003. All program mask bits 
are Set to 1; they will not be reset during 
For a Schematic representation for the the compilation. The buffer length is 
Storage layout for phase A00 see Figure 1. calculated and stored in the communication 
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region entry IJKMBL. The formula for the 
calculation is as follows: 


1536 if available core 
Storage more than 30K 


Buffer length 


Buffer length 256 (1+FLOOR ( --------- )) 


where AVC is available core storage. 


The remaining part of the initialization 
is identical for the tape and disk ver- 
sions. It is discussed here together with 
the disk versions. 


Initialization for Disk Versions -- AT, AU 


As mentioned under Initialization for 
Tapes, part of this initialization is com- 
mon to both the disk and the tape versions. 
The initialization has two principal func- 
tions: storage allocation during PL/I com- 
pilation and opening of files. 


If the work files are tapes, the routine 
flowcharted in AS is used for storage allo- 
cation. If disks are used, the following 
is done: The program mask bits are set to 
1. They will not be reset during the com- 
pilation. The buffer length is calculated 
and stored in the communication region 
entry IJKMBL. The rules for calculation 
are given below. 


xpi dc MM NUI DM CQ ME INEA EA. 
[Available Core Storage (AVC) | Buffer | 
l | Length | 
| -----~----~---~---~--------- ł------------ 1 
| AVC > 30K | 1536 | 
| 22K < AVC < 30K | 1024 | 
| 18K < AVC « 22K | 768 | 
| 14K < AVC « 18K | 512 | 
| 10K < AVC < 14K | 256 | 
Eni A ZA A OE A koza c 


Initialization for Tape and Disk Versions 
-- AU 


The addresses of the I/O areas for SYS002 
and SYS003 are calculated and stored in 
KTETA. These addresses depend on the 
uppermost available core storage address 
and the buffer length, The addresses for 
the files IJSYSLS, IJSYSIN, IJSYSPH and 
IJSYSLN are calculated and stored in the 
corresponding DIFCP tables. 


The addressing concept is as follows: 
The two output areas for printing lie in 
succession in the fifth work buffer, begin- 
ning at its lower limit. The two input 
areas for reading lie in succession in the 
first output area otherwise used for 
SYS002. The output areas for the link and 
punch files lie in corresponding succession 
also in the first output area otherwise 
used for SYS002. The length of the tables 
depends on whether or not the parameter 
DISK = YES is specified. 


The address of the entire Buffer Area is 
then calculated and stored in the inter- 
phase communication region entry IJKMBS. 


The opening of files depends on the Job 
Control options given for the list, punch, 
and link files. If none of the options for 
these files are given, the job is terminat- 
ed and a warning message is produced on 
SYSLST. 


If any option is specified, the corres- 
ponding files are opened with their work 
files. Before fetching the next compiler 
phase (A25), the contents of registers 10 
and 11 are saved in the communication 
region, and the LIOCS tables for the files 
IJSYSLN and IJSYSPH are written on SYS001. 
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PHASE PL/IA25 (REPLACEMENT OF KEYWORDS) -- BA 


Phase A25 has the following functions: 


1. to read the PL/I source program into 
storage; 


2. to list the source program if the LIST 
option is on; 


3. to count the statements and to print 
the number of the first statement per 
printed line; 


4. to eliminate the comments from the 
Source text and to replace them by one 
blank; 


5. to replace (if the 48-character set is 
used) the combinations period-period 
and comma-period by colon and semico- 
lon, respectively, and the alphabetic 
operators GT, GE, NE, NG, NL, LE, LT, 
NOT, OR, AND, and CAT by their 
60-character equivalents. No 
replacements are performed within 
quotes. Moreover, the combination 
comma-period is not replaced, i.e., not 
interpreted as an end-of-statement 
delimiter if it is followed by a digit; 


6. to translate the source text into the 
internal code shown in Figure 1; 


—€———— M pena ee es ee 
| left | 
| 

|half-byte | 
| | 
|right |0 1 2 3 4 5 6 7 8 9 A 
}---------- }---------------------------------- 
| 0 |0 Gw b | 
| 1 | 1 H X ; 
| 2 |2 I. Y 4 
| 3 |3 J Z ( 
| 4 |4 K $) 
| 5 |5 L # , 
| 6 |6 M a ' 
| 7 | 4 N = + 
| 8 8 O = 
| 9 | 9 P 1 
| A | A Q u * 
| B | B R à / 
| C IC S £4 = 
| D |D T à > 
| E | E U ? < 

F F V ! 6 
NM [rv ot DIN 


|Note: The free space in this table may be occupied by an 
[extended character set, e.g., KATAKANA. The characters EO 


|to FF are reserved for internal keys. 
Figure 1. Table Describing the Internal Code 
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7. to replace all identifiers that physi- 
cally look like PL/I keywords by 3-byte 
keyS (all other identifiers are 
replaced in phase A230); 


8. to eliminate redundant blanks from the 
Source text (the remaining blanks are 
eliminated in phase A30); and 


9. to terminate the source program by the 
J-byte end-of-program key (FFFFFF). 


Phase Input 


The input of this phase is the PL/I source 
program, which is provided in card-image 
format. Each card consists of 80 columns. 
Column 1 must be blank except for the last 
card, which is the DOS/TOS end-of-data-file 
card. Columns 2 to 72 are assumed to con- 
tain the source text. Columns 73 to 80 are 
not used. 


Input Processing 
To translate the source text into the 


internal code, a translate table of 256 
bytes is used. This table describes an 
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isomorphism from the external into the 
internal code. 


The cards are read one by one into a 
card area. The source text is then scanned 
by means of several translate-and-test 
tables. An end-of-card mark (X'FF') is set 
in column 73, 


TRT table 1 contains non-zero function 
bytes for alphabetic characters, semicolon, 
quotation mark, slash, end-of-card mark and 
-- if the 48-character set is used -- for 
comma and period. This table is used to 
scan statements, the beginning of which has 
already been detected. 


TRT table 2 contains only one non-zero 
function byte for the end-of-card mark. It 
is used to scan for the end of a comment or 
a string constant. Function bytes for 
asterisk or quotation mark are moved into 
the table as required. 


table. All keywords of equal length are 
grouped together. The groups are arranged 
according to their lengths. Each group is 
preceded by two bytes that contain the 
length and the number of keywords the group 
consists of. The keyword table forms the 
first part of the identifier table and, due 
to its size, is divided into two records. 
Every keyword is assigned a current number, 
Starting at one for each record. This 
number and the record number (0 or 1) are 
part of the key the keyword is replaced by. 
X'80' is added to the current number if the 
keyword begins with the letter I - N. 


The contents of records 0 and 1 of the 
keyword table are shown in Figures 2 and 3. 
Some Space is left open in the table for 
additional keywords. This space is filled 
with blanks. 


A table of the same format as the key- 
word table is used to replace text written 


TRT table 4 contains zero function bytes 


for all alphanumeric characters. 
This table is used to scan 


bytes are # 0. 


for the end of an identifier. 


All other 


TRT table 5, which is used to find the 
first significant character of a statement, 
contains a zero function byte only for the 


blank. 


All other characters except slash 


and end-of-card mark are mapped into the 


Same non-zero function byte. 
comments are replaced by one blank. 


The Keyword Table 


Blanks and 


in the 48-character set. 


Phase Output 


The text output is a continuous stream of 


delimiters, 


identifiers, constants, and 


keywords, the last being represented by 
3-byte keys of the following format: 


byte 0: 


identifier key - X'E1' 


byte 1: record number (0 or 1) 


byte 2: bit 


0-21: the corresponding key- 


word begins with the 
letter I,J,K,L,M, or N. 


bits 1-7: current number. Number- 

Whether or not an identifier is a keyword ing starts at 1 for each 
is determined by means of the keyword record. 
RENE cL E e C tc A LL M c C MEA de 3 
| First Record: | 
| ~------~----7---~-~--~-~~ 7--------+=-- CC ROA O 
| B 0001|KEY 0097 | LOW 00A8 |SINH 003F | ELSE 0051|INDEX OOF4| 
|E 0002|SET 0018 | SUM 0029 |MARK 00CO|SIZE 0052|PRINT 0075| 
| A 0003|BIT 0019|ALL 002A |CHAR 0041 | READ 0053|ROUND 0076 
|F 0004 | END 001A|ANY 002B | HIGH 0042 | OPEN 0054|FIXED 0077 
| X 0006|GET 001B| |BOOL 0043 | EDIT 0055|FLOAT 0078| 
|L 0008|PUT 001C|SIGN 0034 | PROD 0044 | PAGE 0057|LABEL  00F9| 
|V 0009|ABS 001D|CEIL 0035 | POLY . 0045 | LINE 00D8|ENTRY  007A| 
|R 000A|MAX 009E | LOG2 00B6 |DATE 0046 | INRO 00D9|BEGIN  007B| 
|U 000B|MIN 009F | ATAN 0037 |FILE 0047 | FROM 005A|KEYED  OOFC| 
| | MOD 00A0 | TAND 0038 | TIME 0048 | SKIP 005D|LEAVE  OOFE| 
| DO 000D|EXP 0022 | SIND 0039 | NULL 00C9 | MAIN 00E0|WHILE  007F| 
| GO 000E|LOG 00A3 | COSD 003A | CALL 004A | | | 
| TO 000F|TAN 0024 | TANH 003B | ADDR 004B | TRUNC 0070] | 
| BY 0010|SIN 0025 | SORT 003C | GOTO 004D|LOG10 00F1 | | 
| IF 0091|COS 0026 | ERFC 003D | THEN 004E | ATAND 0072| | 
| ON SR hid Kika DOSE SHOE AE 0073 | | 
PARZENIE: OKE RZE IE ERZE: EEE ROEE. ct E COP ete ae ee J 


Figure 2, 


Contents of the Keyword Table (Record 0) 
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| Seconá Record: | (f ^ 
wa a ty ne Ww, 
| WRITE 0101]NOSIZE 01A3| BUFFERS 0141| PRECISION 0163 | 
| CLOSE 0102|MEDIUM 01A5|REWRITE 0142 | BACKWARDS 0164 | 
| INPUT 0183 | CREATE 0126|DISPLAY 0143 | KEYLENGTH 01E5| 
| BASED 0104] | | | 
| REPLY 0105] FORMAT 0127| OPTIONS 0145| 
| ERROR 0107|DIVIDE 0128 | RETURNS 0146 | SEQUENTIAL 0167 
| FLOOR 0108] SUBSTR 0129| ENDFILE 0147 | UNBUFFERED 0168| 
| LEAVE 0189|REPEAT 012A | KEYFROM 01C9| ZERODIVIDE 0169 | 
| | SYSIPT 012C| OVERLAY 0 14A| CONVERSION 016A| 
| UNSPEC 0110| SYSLST 012D| ENDPAGE 014B| NOOVERFLOW 0 1EB| 
|VERIFY 0111|SYSPCH 012E| CONTROLLED 016C| 
| STRING 0113| COLUMN 012F| INTERNAL 01CC 
| RECORD 0114] | EXTERNAL 014D|CONSECUTIVE 016F | 
| LOCATE 0195| | REGIONAL 014F | ENVIRONMENT 0170| 
| UPDATE 01]6|DECIMAL 0135|ONSYSLOG 0150 | NOUNDERFLOW 01F1 
| STREAM 0118|PICTURE 0126| OVERFLOW 0152| 
| BINARY 0119] BUILTIN 0137|BUFFERED 0156 | NOCONVERSION 01F3| 
|STATIC 011A|ALIGNED 0138 | TRANSMIT 0158 | EXTENTNUMBER 0174 | 
PACKED 011B|INITIAL 01B9| PAGESIZE 0159| NOZERODIVIDE 0 1F5| 
OUTPUT 011C| INDEXED 01BA| | 
| DIRECT 011D| DECLARE 013B| CHARACTER 015E|FIXEDOVERFLOW 0177| 
| SYSTEM 011F| POINTER 013C| AUTOMATIC 015F| INDEXMULTIPLE 01F8| 
| RETURN 0120| DEFINED 013D| KEY LENG TH 01E0| NOFIXEDOVERFLOW  01FB| 
| REVERT 0121| NOLABEL 01BE| PROCEDURE 0161| | 
[LENAN a I 013F | UNDERFLOW 0162| | 
AAA ET OE ZOB ee ZDZ OI A | ORT ——— —— —Á— AL A II 
Figure 3, Contents of the Keyword Table (Record 1) 
DESCRIPTION OF ROUTINES byte is found, the preceding source text is A 
moved into the output buffer, and control R 


Initialization -- BB 


This is the beginning of the main routine. 
It initializes pointers, switches, etc., 
and reads in the first card of the source 
text. 


ELCO -- BC 


Secondary entry point: ELCO10 

This is part of the main routine. It scans 
for the first significant character of the 
first or next statement (comments and 
blanks are bypassed). Control is trans- 
ferred to FSTN after the first character 
has been found. 


Secondary entry point: ELCO10 

This entry point is used if the DOS/TOS 
end-of-data-file card has been reached. 

The phase is terminated and IJKPH is called 
to read in the next phase. 


FSTN -- BD 


This is part of the main routine. It 
counts the statements and moves the number 
of the first statement per line into print 
positions 1 - 6, right-aligned. It per- 
forms the scan over the statement by means 
of TRT table 1. When a non-zero function 
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is transferred to one of the following 
routines depending on the character found. 


FSLA -- BE 


If a slash is found, the next character is 
tested for *. If it is not, the routine 
returns 'false' to 4(LINK). If it is an 
asterisk, the end of a comment is searched 
for. The comment is replaced by a blank 
and the routine returns 'true' to (LINK). 


FCOM -- BF 


This subroutine is called if the 
48-character set has been specified and a 
comma has been found in the source text. 

If the comma is followed by a period that 
is not followed by a digit, control is 
transferred to FSEM. Otherwise, control is 
returned to the calling program. 


Secondary entry point: FSEM 

This entry point is used to move a 
Semicolon into the output area. Control is 
transferred to ELCO. 


FQUO -- BG 
The subroutine scans for the end of a 


String constant and moves the constant into 
the output buffer. 
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FPER -- BH 


This subroutine is called if the 
48-character set has been specified and a 
period has been found in the source text. 
If the period is followed by another 
period, the two periods are replaced by a 
colon. 


FCMB -- BI 
Calling sequence: 


BAL LINK,FCMB 
DC XL1'character 1' 
DC XL2'character 2' 


Input parameter: 
R1 points to the card area (character 1). 


Output parameters: 

R1 points to the character following char- 
acter 1 in the source text. 

RR = R1-1 if return 'false'. 


The routine tests if character 1 in the 
card area is followed by character 2. If 
necessary, a new card is read and character 
1 is moved into column 1 of the card area. 
The routine returns 'true' to 6(LINK) if 
character 1 is followed by character 2. 
Otherwise, it returns 'false' to 2(LINK). 


FNCA -- BK 
Secondary entry points: ZRCD, FNCAO05 


This subroutine reads a new card into the 
card area (if an end-of-data-file condition 
arises, control is transferred to ELCO10) 
and prints the preceding card. The new 
Card is moved into print positions 20 - 99. 
All other positions are cleared to blank. 
If column 1 of the new card does not con- 
tain a blank, print positions 7 to 20 are 
filled with asterisks. Then pointers, 
Switches, etc., are initialized, and con- 
trol is returned to the calling routine. 


FKEW -- BL, BM 


This subroutine is called if the first 
character of an identifier has been found 
in the source text (card area). After the 
length of the identifier has been deter- 
mined (if necessary, new cards are read 
in), the identifier is compared with all 
keywords of equal length. If a matching 
entry is found, the corresponding 3-byte 
key is moved into the output buffer. Oth- 
erwise, the identifier is moved unchanged 
unless the 48-character set has been speci- 
fied and the identifier is a 48-character 


operand. In the latter case, the 
60-character equivalent is moved into the 
output buffer. 


FTKW -- BN 


Input parameters: 
RLEN - length of identifier. 


PTAB address of one of the two records of 
the keyword table or of the 
48-character operands table. 

PID = address of the identifier to be 


compared. 


Output parameters: 

RKEY - current number of the keyword the 
identifier matches with (if any 
match has been found). 

unchanged. 

unchanged. 


PID 
RLEN 


The subroutine compares the identifier with 
every keyword of equal length. If no 
matching entry is found, the routine 
returns 'false' to O(LINK). Otherwise, it 
returns 'true' to 4 (LINK).  RKEY is ini- 
tialized with 1 and increased accordingly 
whenever a keyword or a group of keywords 
is skipped. 


FKBU -- BO 


Input parameters: 

RKEY: current number of the keyword (part 

of the 3-byte key the keyword is replaced 

with). 

KEY: = X'E100..' or X'E101..' , depending 

on whether the keyword is contained in the 
first or the second record. 


RKEY is stored in the third byte of KEY, 
which is then moved into the output buffer. 


Secondary entry point: FWBU 

This entry point is used to move source 
text into the output buffer. If the entire 
text does not fit into the buffer, the 
buffer is filled with the first part of the 
text to be moved. The buffer is then put 
out on text medium. The remaining part of 
the text is moved into the buffer, left- 
justified. 


Input parameters: 


RR — address of source text 

R1 = end address of source text + | 
POUT = pointer of output buffer 
BULIM - end address of output buffer 


Output parameters: 
R1 
next free address in output buffer 


mu 
zo 
UL li 
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PHASE PL/IA30 (REPLACEMENT OF IDENTIFIERS) -- CA 


Phase A30 has the following functions: 


1. To build the name table NAMTAB and to 
put it onto SYS001. 


2. To replace all identifiers that were 
not replaced in phase A25 by 3-byte 
keys. 


3. To eliminate all redundant blanks from 
the source text. 


4. To put out the LIOCS table for SYSIPT 
as the third record of LITAB (the first 
two records were put out in phase A00). 


Phase Input and Output 


The text input is a continuous stream of 
delimiters, constants, and identifiers. 
The identifiers physically identical with 
keywords were replaced by 3-byte keys in 
phase A25. 


The text output is a continuous stream 
of delimiters (blanks have been 
eliminated), constants, and identifiers. 
The identifiers are represented by 3-byte 
keys of the following format: 


byte 0 : identifier key = X'E1l' 

byte 1 : record number (0 or 1 if keyword, 
otherwise 2 2) 

byce 2 : bit 0 = 1 : the corresponding 


identifier begins with one of the 
letters I-N 

bit 1-7 : current number starting 
at 1 for each record. 


Interface with Other Phases 


1. The begin and end address of the LIOCS 
table for SYSIPT is referred to by the 
external symbols IJKA06 and IJKAO07, 
respectively. The table was generated 
by phase A00 and is still in storage. 


2. The addresses of the two records of the 
keyword table are referred to by the 
external symbols REC1 and REC2. The 
keyword table was generated by phase 
A25 and is still in storage. 


3. The third record of LITAB is noted and 
the information stored in KSAVE8. It 
is used in phase G55. 


4. The second record of NAMTAB is noted 


and the information stored in IJKMIP+4, 
It is used in phase B25. 
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5. If the keyword PICTURE appears in 
the source text, the job-information 
bit 10 is set to 1. 


6. Phase A35 is skipped if the keyword 
PICTURE does not appear in the source 
text. 


7. Phase A45 is skipped if there are no 
character strings in the source text. 


Format of the Name Table NAMTAB 


The name table consists of at least two 
records, each of which is 1024 bytes long. 
The first two records are the keyword table 
described in phase A25. All other records 
consist of up to 127 entries and are 
terminated by an end-of-record key (X'FF'). 
The individual entries have the following 
format (which differs from that of the 
first two records) : 


L 
I 


length of the following identifier - 1 
the identifier itself in internal code 


u it 


DESCRIPTION OF ROUTINES d 


cu 


Initialization -- CB 


This is the beginning of the main routine. 
The LIOCS table for SYSIPT is put out on 
SYS001 as the third record of LITAB.  IJKNT 
is called and the NOTE information is 
stored in KSAVE8. It is tested whether any 
option other than LIST is specified. If 
not, phase G31 is called to terminate the 
compilation. 


The keyword table is put out on SYS001 
as the first two records of NAMTAB. IJKNT 
is called and the NOTE information is 
stored in IJKMIP+4. Pointers, switches, 
etc., are initialized and two records of 
text input are read. The record informa- 
tion table RECT is built up. It contains 
information on the records of NAMTAB which 


are built up in the table space.  RECT has 
the format shown below: 
A TES T"1 
A |C [IN [A [eC [N | A |F| 
Llc ee bee eee hee dd 
A = address of the begin of one of the 
records 
C = current pointer (initial value = A. 
Subsequently it points to the next 
free entry within the record). 
N = record number 
F = end of table = X'FF' 


The last A before F is used as end 
address of the last record. 
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SS 


BIDE = CC, 0D. CE 


This is part of the main routine. The 
input is scanned by means of a TRT table 
for digits, letters, periods, blanks, quo- 
tation marks, identifier keys, and end-of- 
program key. All other characters are 
bypassed. If one of the characters listed 
is found, the bypassed text is moved into 
the output buffer. It is tested whether 
the input pointer points to an address of 
the first buffer (FPIN), and one of the 
following actions is taken depending on 
what character is found: 


1.  End-of-program key: 
Control is passed to FEND. 


2. Quotation mark: 
The end of the string is searched for 
and the entire string is moved into the 
output buffer. The scan continues. 


3. Identifier key: 
The identifier key is moved unchanged 
into the output buffer. 


4. Blank: 
This and all following blanks are 
Skipped. They are not moved into the 
output buffer. 


5. Letter: 
The identifier beginning with the let- 
ter found is compared with all iden- 
tifiers contained in the name table. 
If a matching entry is found, the iden- 
tifier is replaced by the corresponding 
key. If not, the identifier is incor- 
porated into the table and replaced in 
the source text by the identifier key. 
The current number of the identifier 
key is the number of the entry in the 
relative record. If the table space is 
full, the identifier is moved unchanged 
into the output buffer, and the over- 
flow switch is set to 1. 


6. Digits: 
If the digit found is the first digit 
of a floating-point constant, the E is 
replaced by the corresponding 3-byte 


key. If it is followed by a B (binary 
constant) the B is replaced according- 
Lys 

FEND -- CF 


This is the end of the main routine. It is 
called if the end-of-program key is found. 
The key is moved into the output buffer, 
and the buffer is put out on text output 
medium. The name table is put out on. 
SYS001 in records of 1024 bytes. 


If the overflow switch is on, e.g., if 
not all identifiers have been replaced yet, 
control is transferred to INITOA for a 
further pass over the source text. If the 
overflow switch is off, the next phase is 
called. Phase A50 is called if there are 
no character strings in the source program. 
Phase A45 is called if the keyword PICTURE 
does not appear. Phase A35 is called in 
all other cases. 


EPIN- == 06 


FPIN is called each time the input pointer 
is increased. This routine ensures that 
the input pointer always points to an 
address within the first of the two input 
buffers. Whenever the input pointer 
exceeds its range, the contents of the 
second buffer are moved into the first one, 
and a new record is read into the second 
buffer in overlapped mode. 


The end of a program is indicated by the 
end-of-program key X'FF'. If, however, the 
ending quotation mark of a string constant 
is missing, this key cannot be detected 
since a character string may contain any of 
the 256 characters. It is therefore neces- 
Sary to test for an end-of-file condition 
after every call of IJKGI. If the end of 
the file has been reached, the last record 
in the first buffer is processed and con- 
trol is transferred to FEND the next time 
FPIN is invoked. 


FMBU -- CH 
Secondary entry point: FMBUS 


Input parameters: 
RR : (general register) 
text. 
source text * ]. 
POUT : pointer of output buffer. 
BULIM : end address of output buffer. 
put parameters: 


address of source 


Out- 


Output parameters: 

RR : = R1. 

POUT : points to the next free address in 
the buffer, 


This routine moves the source text into the 
output buffer. If not all the bytes to be 
moved fit into the buffer or if they do 
exactly fit, the buffer is filled with the 
first part of the text to be moved. The 
buffer is then put out on text output medi- 
um and the rest, if any, is moved into the 
buffer, left-justified. 
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PHASE PL/IA35 (PICTURES) -- CZ 





This phase, which is called by phase A30 if Sterling Pictures 
the identifier PICTURE is detected in the 
input stream, has the following functions: 
The output format of sterling pictures is 
1. To check whether a picture is syntacti- shown in Figure 2. 
cally correct; 


2. To determine the precision and the Decimal Fixed Pictures (Zoned) 
attributes of the data item represented 
by the picture and to pass this infor- 


mation to subsequent phases; If a decimal fixed picture contains the 
picture characters 9 and V only, it is 

3. To transform each decimal fixed-point possible to determine the precision of the 
and decimal floating-point picture into data item and then to eliminate the 
an "Edit Pattern" and a "Pseudo picture. This data type is given the 
Program" and to produce additional internal attribute ZONED. The output for- 
information on precision, sign charac- mat of zoned decimal fixed pictures is 
ters, etc., of the corresponding data shown in Figure 4. 


item. This is done to considerably 
reduce the library subroutine require- 


ments and to speed up the object time Decimal Fixed Pictures (Zoned (T)) 
picture editing. 


Phase Input If a decimal fixed picture contains the 

picture characters 9, V, and T only, it is 
The source text used as input is in the possible to determine the precision of the 
format described as output in phase A30. data item and then to eliminate the pic- 
Thus, there are no blanks between syntacti- ture. This data type is given the internal K^ 
cal units, and all identifiers are rep- attribute ZONED (T). The output format of DN. 
resented by 3-byte keys. zoned (T) decimal fixed pictures is shown 


in Puigure 5. 


OUTPUT FORMATS 
Other Decimal Fixed Pictures 
The output format of the individual PICTURE 
items is described in the following. 
The output format of decimal fixed pictures 
Character-String Pictures other than zoned or zoned (T) is shown in 
Figure 6. 
Since character-string pictures can only 
contain the picture character X, it is 
possible to determine the length of the Decimal Float Pictures 
data item and then to eliminate the pic- 
ture. The output format of character- 
string pictures is shown in Figure 1. The output format of decimal float pictures 
is shown in Figure 8. 
Byte 





| 2 3 4 5 6 7 8 
espa] w E 
( ) 


3-byte element Length of the data item in 
CHARACTER hexadecimal form 
(each byte of W contains one 
decimal digit in internal code) 





Figure 1. Output Format of Character- 
String Pictures 
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( il Byte 





( ) ( ) 


Number of 
fractional digits 


Number of digits in the pounds 
field + number of fractional 
digits in the pence field + 3 


3-byte element FIXED 
3-byte element STERLING 
Final ’ of the picture 
Picture string (for details see Figure 3) 
Width of the numeric field (in binary form) 
3-byte element PICTURE 


Figure 2. Output Format of Sterling Pictures 


Byte 





| V ———— 


G Sterling pictures characters 


Length of picture (in binary form) 


Width of numeric field (in binary form) 
Number of fractional digits (in binary form) 
L Number of digits in the pounds field + number of fractional digits 


in the pence field + 3 (in binary form) 


Figure 3. String Format of Sterling Pictures 
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Byte 





1/273 1,475 7,647 |ealolwlniiz] 13114] 15 | 16 | 17] 18 

a ma | m7 T NE" 

| | 

| | | | 

( ) 3-byte element 
DECIMAL 


Number of fractional digits 
Total number of digits 
3-byte element FIXED 


J-byte element ZONED 


Figure 4. Output Format of Zoned Decimal Fixed Pictures 


Byte | 1121314] 5lelzlealeo|w|n|i2] i2] 14/15/16 | 17] 18 
el gg es | E) Mb 77 El fi 35 


( ) 3-byte element 
DECIMAL 





Number of fractional digits 
Total number of digits 
3-byte element FIXED 


3-byte element ZONED (T) 


Figure 5. Output Format of Zoned (T) Decimal Fixed Pictures 
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Byte 22 i-4|i-3]i-2]i-1 


112la8l4ls5l[lelzlslelw|ngj| 
mw E w [sb wn E [Tele a s 


| | | NE RSE SSE qe 








( | ) ( ) 3-byte element DECIMAL 
Final of the picture string 
Picture string (for details see Figure 7) 
Initial " of the picture string 
Width of numeric field 
3-byte element PICTURE 
Number of fractional digits 
Total number of digits 


3-byte element FIXED 


Figure 6. Output Format of Decimal Fixed Pictures Other than Zoned or Zoned (T) 





Edit pattern Sign information Pseudo program 


Conditional digit select 
-— Fill character 
Width of numeric field = length of edit pattern (in binary form) 


D = (number of digit positions + 2) / 2 (in binary form) 


Figure 7. String Format of Decimal Fixed Pictures Other than Zoned or Zoned (T) 
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) 3-byte element DECIMAL 


Final of the picture string 


Floating-point picture string 
(for details see Figure 9) 


Initial ° of the picture string 


Width of numeric field (in binary form) 


3-byte element PICTURE 


Number of digits before the E or K 


3-byte element FLOAT 


Figure 8. Output Format of Decimal Float Pictures 






Byte 





2]3|[4]5]6] 747 8 9 | 1g 
AE 
NSE RR | 
Edit pattern Sign 
information 
Conditional digit select 
Fill character 


Width of numeric field (in binary form) 
DF = (number of digit positions+2) / 2 (in binary form) 
of the fraction 
Offset: contains the value i (in binary form) 
Number of fractional digits (of the fraction) (in binary form) 


R = 2* (total number of digits of the fraction) + x (in binary form) 
X =f if there was a K in the picture 
X=1 if there was an E in the picture 


Always X’ ØC’ 


L |L+1 L+2lL+3 L+4 





J |J+1/J+2|J+3|J+4|J+5]J+6|J+7 K 
Edit pattern Sign Pseudo program 
information 


Conditional digit select 
Fill character 
Width of numeric field (in binary form) 


DE = (number of digit positions +2) / 2 (in binary form) 


of the exponent 


Figure 9. String Format of Decimal Float Pictures 
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de 


gm 
f l 
| ES 


Pd 


ELEMENTS OF PICTURE STRINGS 


The fill character (FL, FLF, and FLE) is 
blank if the picture (subfield) contains no 
asterisk. It is asterisk if the picture 
(subfield) contains an asterisk. 


The conditional digit select character 
(CDS, CDSF, and CDSE) is X'20' if the pre- 
cision (of the subfield) is even and blank 
if it is odd. 


Edit Pattern 


The edit pattern is used in EDMK instruc- 
tions (at object time) in some library 
subroutines. 


Sign Information 


The sign information is a (pseudo) instruc- 
tion specifying where to test for which 
Sign. There are 5 different pseudo 
instructions containing sign information. 


1. NSS - No Sign Specified 
The general format of the NSS pseudo 
instruction is shown below. 


x'40' 
not relevant 


byte 0 
bytes 1-2 


The instruction is generated if none of 
the picture characters S + - DB CRT I 
R appears. 


It is generated if a string of drifting 
"-" appears in the picture. If "-" 
appears in the specified field, the 
data is assumed to be negative. Other- 
wise, it is assumed to be positive. 


TDP = Test for Drifting Plus 
The general format of the TDP pseudo 


instruction is as shown for the TDM 
instruction, but with X'DO' in the 
first byte. It is generated if a 
string of drifting "+" appears in the 
picture. | If "+" appears in the speci- 
fied field, the data is assumed to be 
positive. Otherwise, it is assumed to 
be negative. 


TOS - Test for Overpunched Sian 
The general format of the TOS pseudo 
instruction is shown below. 


byte 0 X'FO' 
byte 1 specifies offset of sign byte 
byte 2 X'DO' for T 

X'FO' for I 

X'DO' for R 


It is generated if a T, I, or R appears 
in the picture. If the zone in the 
Specified byte is identical to the zone 
in byte 3 of the instruction, the data 
is assumed to be negative. Otherwise, 
it is assumed to be positive. 


Pseudo Program 


2.  TSS - Test for Static Sign 
The general format of the TSS pseudo 


instruction is shown below. 


x'00' 
offset of the last byte of the 
drifting string Ts 


byte 0 
byte 1 


byte 2 - for $ 
b for -* 
= Tor = 
C for CR 

D for DB 


It is generated if a static sign 

appears in the picture. If C1 appears 

in the specified byte, it is assumed Le 
that the data is negative. Otherwise, 

it is assumed to be positive. 


3. IDM - Test for Drifting Minus 
The general format of the TDM pseudo 
instruction is shown below. 


x'00' 

offset of the last byte of the 
drifting string 

byte 2 - for $ 

b for + 

e [Or = 

C for CR 

D for DB 


byte 0 
byte 1 


The pseudo program is a series of 
instructions used by the library for edit- 
ing (at object time). 
ent pseudo instructions. 


(pseudo) 


There are 5 differ- 


IZR - Insert Zero 
The general format of the IZR pseudo 
instruction is shown below. 


x'00' 
offset 


byte 0 
byte 1 


The instruction causes the insertion of 
a zero in the byte with the offset d. 


IST - Insert Static Character 
The general format of the IST pseudo 
instruction is shown below. 


byte 0 x'"04" 
byte 1 offset 
bytes 2-3 Cy, and Co. 
For S : C, = + Cz = - 
+ $ C. = + Cz = b 
= : Cy, = b Ca == 
S : Cy = $ C2 = $ 


The instruction inserts C1 into the 
specified byte if the data value is 
greater than or equal to zero. Other- 
wise, it inserts C2. 
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3. 


De 
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IDR - Insert Drift Character 

The general format of the IDR pseudo 
instruction is as shown for the IST 
instruction, but with X'08' in the 
first byte. If the data value is 
greater than or equal to zero, C, is 
inserted into the byte with the offset 
1. Otherwise, Cz is inserted. The 
value of 1 is determined as follows: if 
register 1 was set in an EDMK instruc- 
tion, l is equal to the contents of 
register 1 minus 1. Otherwise, 1l is 
equal to address of the byte with the 
offset d. 


IZN - Insert Zone 
The general format of the IZN pseudo 
instruction is shown below. 


byte 0 x'OC' 
byte 1 offset 


bytes 2-3 Z, and Zo. 
For T : Z4 = X'CO' Z2 = X'DO0' 
T-a Za ECO Za = X'F0' 
R: Z4 = X'FO' Za XIDO! 


If the data value is greater than or 
equal to zero, the zone of Z4 iS 
inserted into the zone of the specified 
byte. Otherwise, the zone of Z» is 
inserted. 


EOP_- End of Pseudo Program 

The general format of the EOP pseudo 
instruction is X'14' if the picture 
does not contain 9, T, I, or Re X'10' 
is generated in all other cases. It 
indicates the end of the pseudo pro- 
gram. If the byte contains X'14' and 
the data value is zero, the entire 
field is filled with the fill character 
FL (or FLF or FLE). 


EXAMPLES 


The examples in Figure 11 show the original 
picture and the resulting edit pattern, 
Sign information, pseudo program, fill 
character, and conditional digit select. 
The notation used in these examples is as 
shown in Figure 10. 


> 
| 
| ------ }----~~--~--------------—-~-------- 
| DS [Digit select 

| SS  |Significance start | 
—ÁÁ——————————ÁMÀHÁÓáÓ €! 
| NSS |Pseudo instruction| | 
| TSS [Pseudo instruction|Sign | 
| TDM [Pseudo instruction|information | 
| TDP |Pseudo instruction| | 
| TOS |Pseudo instruction | | 
A Mi RÓ REC ł 
| IZR |Pseudo instruction|Instructions | 
| IST |Pseudo instruction|for the | 
| IDR |Pseudo instruction|pseudo | 
| IZN |Pseudo instruction | program | 
| 14  |Pseudo instruction| | 
| 10 |Pseudo instruction | | 
} ł 
| 

| 

| 

| 

| 

t 

| 

| 

| 

| 

L 


Figure 10. Notation Used in Picture Exam- 
ples 
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ORIGINAL PICTURE OUTPUT ORIGINAL PICTURE OUTPUT 





















Pseudo program Pseudo program || 


Fill char. [5] Fill chor. C] 
Cond. digit sel. Eond. digit sel. [b | 
Edit pattern Edit pattern 
Sign inform. Sign inform. 


N 
- 


[8 | $ | $ [izr] 3 fiz 3 |o | og] ia | 


Fill char. Fill char. 


KUGOKOZZZEC 


Cond. digit sel. Cond. digit sel. 


Edit pattern b] 
Sign inform. [Tss] g | - | 
Pseudo program |IST| d | + | - fior] 4 | $ | $ h| 
















Edit pattern 


EJEJE 
2 


[SS | » | ss | ss | ss [ss [ss | 


Sign inform. 








Pseudo program 
















Fill chor. [s[s]s] .[s]s[sT-]v]s]5] | F" hoe. [b] 

Cond; digit sel: Cond. digit sel. | b | 

Edit pattern Edit potter 
Sign inform. Sign: tphorm: 

Pseudo program Pseudo program 


Fill char. Fill char. [b | 

Cond. digit sel. Cond. digit sel. [5] 

Edit pattern Edit pattern | b | OS | SS | SS | 
Sign inform. Sign inform. 







Pseudo progrom Pseudo program 


E 









Fill char. 


sisisjaj,jajs[s| 


Fill char. 








Cond. digit sel. Cond. digit sel. 


emnes — [e Tos [os & [ - [ [os] os 


Sign inform. 


Edit pattern 


| 


Sign inform. 






4 
o 
"m 
+ || 


Pseudo program Pseudo program 


ix | 


TETZUSPTJUOJ nal 
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DESCRIPTION OF ROUTINES 


Pointers, Storage Areas, and Flags 


Phase A35 uses the following pointers, 


storage areas, 


PIN 
POUT, OPOINT 
WAP, XP, PUN 


Name of flag 


GWU*¥NOUOQDHH NI +. 
ww 


ry ti 
QA 
w 


Digpos 


Sign 


$ drift 
+ drift 
- drift 


S drift 


and flags: 


input pointer 

output pointer 

WOrk area pointers 

pseudo program pointer 
edit pattern pointer 
contains expanded picture 
contains edit pattern 
contains pseudo program 
contains sign information 


Set on for 


$ 

+ 

S 

T 

I 

R 

CR 

DB 

Z 

* 

9 

V 

E or K 
period, comma, B 


scanned digit position 
character | 

to check that a static S 
- appears only to the lef 
or right of a subfield or 
that a DB or CR appears 
only to the extreme right 
of a subfield 
Sign character 
CR or DB) 

Zero suppression requeste 
drifting string consists 


(S + - TI 


drifting string consists 
Ph 


drifting string consists 


drifting 
S 


string consists 


Notation and Terms Used in Routine 


Descriptions 
M,m 

N,n 

W,W 

FL 


CDS 
"item code" 


50 


total number of digit posi- 
tions 

number of digit positions 
after the (implied) decimal 
point 

width of numeric field 

fill character 

conditional digit select 

a number assigned to a pic- 
ture character 





t 
t 


R 


d 
of 


of 


of 


of 


(for example: 


$ has the "item code" 1, + 


has the "item code" 2, etc.) 
(Open) A routine is called open if 
control is transferred to it 
by 
1. a simple B instruction, 
in which case control is 
also returned by a B 
instruction, or 
2. some in-line coding that 
requires a separate des- 
cription, 
(Closed) A routine is called closed if 


control is transferred to it 
by a BAL instruction. Con- 
trol is returned by a BR 
instruction in this case. 


PIPI == DA, DB 


PIP1 is the "master program" of this phase. 
It initializes pointers, registers, and 
other items and reads the first 2 records 
into input buffers 1 and 2. It scans the 
input stream until X'E1013636' (the inter- 
nal representation of PICTURE') is encoun- 
tered outside a character-string constant. 
EXPA stores the "expanded" picture in 
PIP13. 


If the picture is a character-string 
picture, STRI is called. If it is a sterl- 
ing picture, STER is called. These rou- 
tines process the pictures and return con- 
trol to PIP1, which continues the scan. 


If the picture is a fixed-decimal pic- 
ture, DEC is called. Control is then 
transferred to DEC. If DEC determines that 
the picture is ZONED or ZONED (T) (see 
Figures 4 and 5), the 3-byte element DECI- 
MAL is put out, and the scan is continued. 
Otherwise, P2 is called and FIXED (M,N) is 
put out. P1 is then called and puts out 
PICTURE (W), quote, the first 2 bytes of 
the picture string, and -- indirectly (by 
calling other routines) -- the remainder of 
the picture string. The scan then contin- 
ues. 


If the picture is a decimal-float pic- 
ture, DEC is called which processes the 
fraction part of the picture. Control is 
then returned to PIP1 and the values m, n, 
w, and d of the fraction are stored. Then 
DEC732 is called which processes the expo- 
nent part. After control has been returned 
to PIP1, M, W, and D of the exponent are 
stored and w of the entire picture is com- 
puted. FLOAT (M) PICTURE (W) is put out. 
TPEP is called which transforms the frac- 
tion part of the picture into an edit pat- 
tern and a pseudo program. Then a. quote 
and the first 6 bytes of the picture string 





Na? 


FN 
kog 
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are put out. PAT puts out the next 2 bytes 
of the picture string (see Figure 9), the 
edit pattern, the sign information, and the 
pseudo program of the fraction part. Con- 
trol returns to PIP1, and d and w of the 
exponent are put out. TPEP is called again 
to process the exponent part. PAT is 
called, which puts out the next 2 bytes of 
the picture string, the edit pattern, the 
Sign information, and the pseudo program of 
the exponent part. Then, DECIMAL is put 
out and the scan continues. 


BANN (Closed) -- DZ 


The following instructions are stored in 
PSEUP: 

1. IST (EP) $ $ if current picture 
character is $ 

if current picture 
character is + 

if current picture 
character is - 

if current picture 
character is S 


2. IST (EP) + b 


3. IST (EP) b - 


4. IST (EP) + - 


The following sign information is stored: 
Te NSS if current picture 
character is $ 
if current picture 
character is + 
if current picture 
character is - 
if current picture 
character is S 


2. TSS (EP) b 


3. TSS (EP) 


1 


4. TSS (EP) 


BLUE (Closed) -- DO 
Adds 1 to N if the V-flag is on. 


DEC (Closed) -- DE, DF, DG, DH 


1. It checks whether a decimal fixed-point 
picture or a subfield of a decimal 
floating-point picture is syntactically 
correct. 


2. It determines the precision of the data 
item corresponding to the picture, 
determines the width of the numeric 
field, and computes D - (number of 
digit positions+2)/2. 


3. If the picture is a zoned decimal fixed 
picture, ZONED FIXED (m,n) is put out, 
and control is returned to PIP1. 


4. If the picture is a zoned (T) decimal 
fixed picture, ZONED (T) FIXED (m,n) is 
put out, and control is returned to 
PIP 1. 


5. If the picture is not a decimal fixed- 
point picture or a subfield of a 
decimal floating-point picture, control 
is returned to PIPl. 


DPTE (Closed) -- DO 


Signals error if the Digpos-flag is off. 


DRIFT (Closed) == DV 


l. Sets "drift switch" on. 
2 Sets "item code" to 


1 if currently scanned character is 
2 if currently Scanned character is 
3 if currently Scanned character is 
4 if currently scanned character is 


U I tr 


3. Returns to (LINK) if it is none of the 
characters indicated under item 2. 


4. If the "drift switch" is on, the cur- 
rently scanned character and the "item 
code" are stored. 


5. If the "drift switch" is off, ("item 
code"-1)*4 and the currently scanned 
item are stored. 


6. Returns to 4 (0, LINK) . 


ECAV (O en). +=. DA 


1. Sets the SS-flag on if the V-flag is 
off. 


2. If the V-flag is on and the SS-flag is 
Off, it puts out an IST instruction for 
each period, comma, or B between the 
current PICTURE character and the V. 


3. Returns before setting the S-flag on. 


EXPA (Open) -- LC, DD 


Expands a picture using replication fac- 
tors. The expanded picture is stored in 
PIP13. An error is indicated if the 
expanded picture contains more than 255 
characters. After the expansion, the pic- 
ture is converted to external representa- 
tion. 


Examples: 


Unexpanded picture Expanded picture 


' (5) 9. v9* '99999 , y9'! 
' (3) S, V (2) 9" ‘SSS, V99' 
' (0) z (4) 9" ' 9999! 


A zero replication factor followed by a 
picture character is interpreted as shown 
in example 3. 


F (Y). (Closed) == DE 


Scans the field "separator-1" if RO = 0. 
Scans the field “Separator-2" if RO # 0. 
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FPIN (Closed) -- EB 


Controls the reading of the input stream, 
i.e., FPIN is called each time the input 
pointer is increased (only exception: when 
scanning a replication factor). Two buf- 
fers are used. If the input pointer passes 
the end of the first buffer, the contents 
of the second buffer are moved into the 
first, and a new record is read into the 
second buffer. The input pointer is modi- 
fied accordingly. Additionally, all the 
input text (with the exception of pictures) 
is put out again. 


FSI, FSI1 (Closed) -- DY 
1. Sets the FF-flag on. 


2. Adds a "Significance Start" character 
(X'21') to the edit pattern. 


3. Adds an IZR (EP) to the pseudo program 
if the above "Significance Start" char- 
acter is the first one in this edit 
pattern. 


HAM (Closed) -- DS 


1. Increases WAP by 1. Adds 1 to M and N 
if the currently scanned digit position 
character was preceded by a V. 


2. Returns to 4(0,LINK) if the Z-flag is 
On. 


3. Returns to (LINK) if the Z-flag is off. 


HTE (Closed) -- DO 


Signals error if the H-flag is on. 


JTRNA1 (Closed) -- EC 


Output routine. Register BYZ contains the 
number of bytes to be put out, register PIN 
the starting address. One output buffer is 
used. 


If the string to be put out fits into 
the remaining free space of the output 
buffer, it is moved there, and BYZ is added 
to POUT (thus updating the output pointer). 
If the string is too long, the string 
length required to fill the buffer is moved 
there. The contents of the buffer are 
written on the output medium, and POUT is 
reset to the begin address of the buffer. 
BYZ is reduced by the number of bytes moved 
into the buffer and PIN is added to that 
number. This procedure is continued until 
the entire string has been moved. 


PAT (Closed) 


This routine is called by PIP1. It puts 
out FL, CDS, Edit Pattern, Sign Informa- 
tion, and Pseudo Program of a subfield. An 
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additional ' is put out if it is a decimal 
fixed-point field. 


RFDF (Closed) -- DS 


Signals error if any Drift flag and/or 
"normal" flag (specified by the "item 
code") is on. 


Examples: 
Error is signalled if 


1. the "item code" specifies $ and the 
$-flag is on. 


2. the "item code" specifies + and the $ 
drift-flag is on. 


RFT (Closed) -- DP 


Returns to (LINK) if the flag specified by 
the "item code" is on; otherwise, it 
returns to 4 (O,LINK). 


SEAV (Closed) -- DO 


1. Scans for period and/or comma and/or B 
and/or V following a (potential) drift- 
ing character. Stops scanning after 
the first non-editing character is 
encountered. 


2. Signals error if any editing character 
occurs without the Digpos-flag having 
been set on. 


3. The PCB-flag is set on if one or more 
of the editing characters have been 
detected. 


4. VIE is called if a V is encountered. 
If the Digpos-flag is off, the Q-flag 
is set on. Then HTE is called. 


SITE (Closed) -- DO 


Signals error if the sign-flag is on. Oth- 
erwise, the sign-flag is set on. 


STER (Open) -- DI, DJ, DK, DL 


1. Checks whether a sterling picture is 
syntactically correct. 


2. Determines the precision of the data 
item corresponding to the picture: 


M = number of digit positions in the 
pounds field * 3 * N. 

number of fractional digits in the 
pence field. 


N 
3. Determines the width of the numeric 
field : W. 


4. Puts out PICTURE (W) 'picture string! 
STERLING FIXED (M,N). 
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STRI (Open) -- DN 


Processes character-string pictures, e.g., 
pictures that only contain the picture 
character X. Puts out CHARACTER (W). 
Deletes the picture. 


SUP (Closed) -- DP 


1. Returns to the address in R1 if the 
character being scanned is neither * 
nor Z. Otherwise, the *-flag or Z-flag 
is set on, respectively. 


2. Signals error if any flag is on that 
represents a digit position character 
other than the one being scanned. 


TDS (Closed) -- EA 

Generates the sign information: 
TDM (EP) a if the currently scanned 
character is - or S. 


if the currently scanned 
character is +. 


TDP (EP) a 


a = length of the drifting string - 1 


TPEP (Closed) -- DT, DU, DV, DW 


Transforms a decimal picture subfield into 
edit pattern, sign information, and pseudo 
program. 


The relationship between the input of 
TPEP and the output produced can be seen in 
the section Examples in the description of 
this phase. 


Note: If the routine detects an invalid 
picture character, all storage occupied by 
this phase is dumped. (The error will 
probably be in DEC, or in one of the rou- 
tines called by DEC). 


VTE (Closed) -- DO 


Signals error if the V-flag is on. Other- 
Wise, the V-flag is set on and the U-flag 
is Set off. 


WTE (Closed) -- DO 


Signals error if the W-flag is set on. 
Otherwise, it returns to (LINK). 


29 (Closed) -- DQ 


1. Scans a shilling field or a pence 
field. 

2. Returns to 4(0,LINK) if ZZ or Z9 or 9 

is detected. 


3. Returns to 
ed. 


(LINK) 


4. Signals error if the character being 
Scanned is neither 9 nor Z. 


5. Sets the Z-flag off if a 9 is detecte 
(provided the Z-flag was on). Signal 
error if the Z-flag is off and the 
character being named is a Z (if ther 
is a Z in a sterling subfield, all 
digit position characters in the 
preceding subfield must be Zs). 


Error == DM 


Since there are more than 50 error possi- 


9 


if Zor 9 is detect- 


d 
S 


e 


bilities in a picture, only one error mes- 


Sage is produced by putting out a 3-byte 
element ERROR of the general hexadecimal 
format E10082. 


If an error is detected, processing of 
the picture is terminated. The message 
code 01 (declaration in error) will be 
given in the symbol table listing. 
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This phase has the following functions: 


1. To scan character string constants for 


correct format and precision; 


2. To eliminate character Strings from the 
source text and to replace them by two 
3-byte keys; 


3. To retranslate the character strings 
(except the picture strings) from the 
internal to the external code, and to 
collect them in the character string 
table CARTAB which is written on 
SYS001; 


4. To optimize the character strings with- 
in the limits of table space, e.g., to 
cause two identical character strings 
to appear only once in the table. 


This phase is skipped if no character 
strings appear in the source text. 
Phase Input and Output 
The text input is a continuous stream of 
delimiters, constants, and identifiers, the 


latter being represented by 3-byte keys. 


The character-string constants have the 
following format: 


p m 

| presos qd qo ee en UIS Ie 1 
| (I) | character string" | 

| t-------- s ;| dan——————————ÀÀ—9—ÁÀ J 

bol sd 

I = decimal integer specifying replication 


(1 to 3 digits). 


The character string is a sequence of at 
least one character. (A quotation mark is 
represented by two adjacent quotation 
marks.) All characters, except those of 
picture strings, are represented by the 
internal code. If the character-string 
constant is followed by a B (in the form of 
a 3-byte key), it is interpreted as a bit- 
string constant. Picture strings appear in 
the following context: 


rip RM CE SEI id aa O a 1 

| | length | | haracter- | 
| PICTURE | osa field |) | string | 
looz > OPON AAA BO NASZE ONU SPRA J 
Note: The field length must not be 


interpreted as a replication factor. 
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No 
The text output is a continuous stream 
of identifiers (3-byte keys), delimiters, 
and constants. The character-string con- 
Stants are represented by two adjacent 
3-byte keys of the following format: 
[rper vm too cle ES 
| K | O IK | E [|L | 
IE PR | SOO EP ad 
K = character-string-constant key = X'E3' 
(1 byte) 
O = offset in the character string table (2 
bytes) 
E = error byte : X'00' = no error 
bit 0 = 1 $ diagnostic 
message E055I 
bit 1 = 1 : diagnostic 
message E0561 
bit 2 = 1 : diagnostic 
message E0671 
L = length of the character string (1 
byte). 
Note: The error byte is cleared in phase 
C30 so that the length occupies two bytes ai 
as follows: € 
[oO E ODE NOZE A eer 1 
IK | 0 IK | L 
A A E e J 


The CHharacter-otring Table: 


The character string table (CARTAB, ZTABOO) 
is written on SYS001. The record length is 
equal to the buffer length. The last 


record may be shorter. The length of the 
table is stored in IJKCSL. 


The table consists of a continuous 
Stream of characters (in external code). 
Each single character string can therefore 
be found by its address (offset) relative 
to the beginning of the table and by the 
length of the string. The character 
Strings are optimized as shown below. 
Assume that the following 4 character- 
String constants appear in a source 
program: 
"SPARSELDER", 'GELD';, “ERBE; 'DERB'. 
This will cause the following character- 
String table to be built: 


[v veces e aj i ee m | 





Liza ds ET o M SN — -— m 
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4 z. pd 


The character-string constants would be 
represented as follows: 


X'E30000E3000A' 
X'E30004E30004' 
X'E30008E30004' 
X'E30007E30004! 


DESCRIPTION OF ROUTINES 
Initialization -- EN 


This is the beginning of the main routine. 
It initializes pointers, switches, etc., 
and reads input text into two buffers. 


FSCA -- EO ¿EQ 


This is part of the main routine of this 
phase. It performs the scan over the 
source text by means of several TRT tables. 
If a marked character is found, the preced- 
ing source text is moved into the output 
buffer.  FPIN is called to check the input 
pointer, and control is transferred depend- 
ing on the character found. 


PIDE =>. BP 


This is part of the main routine. It is 
called if an identifier key has been found. 
If it is a PICTURE key that appears in the 
correct context of picture strings, all the 
text preceding the begin quote of the 
string is moved into the output buffer, the 
switch CONVSW is set to one to indicate 
that the string is not to be retranslated, 
and, after calling FPIN, control is trans- 
ferred to FSTR. All other keys are moved 
into the output buffer, FPIN is called, and 
the scan continues. If the key INITIAL is 
found, the entire INITIAL list is skipped. 


FREP -- ER 


This is part of the main routine. It is 
called if a left parenthesis has been found 
in the source text. If the parenthesis is 
followed by 1 to 3 digits, a right paren- 
thesis, and a quote, i.e., if a replication 
factor is found, the decimal integer is 
converted to binary and control is trans- 
ferred to FSTRO5 to process the string 
constant. Otherwise, the left parenthesis 
is bypassed, and the scan continues. 


FSTR —- ES, ET 


Input parameter: 

R1: Points to the beginning quotation mark 
of a character string within the input 
text. 


The routine increases R1 by one, sets REPL 
to 1 and RLEN to 0. REPL and RLEN are the 


parameters for the following routine seg- 
ment labeled by FSTRO5. 


Secondary entry point: FSTRO5 


Input parameters: 

R1 : address of the character string in 
the input text. 

replication factor. 

number of digits specified for the 
replication factor + 2. RLEN equals 
zero if no replication factor has 
been Specified. 


REPL 
RLEN 


.. ee 


The input text is scanned by means of a TRT 
table for a quote indicating the end of the 
character string. If the string is a bit 
string, it is moved unchanged into the 
output buffer. The character string is 
moved into CHST. Strings exceeding the 
length of 255 are truncated on the right. 
For two successive quotes, one quote is 
moved into CHST. One blank is moved if the 
begin quote is immediately followed by the 
end quote. Control is then transferred to 
FCTA. 


FCTA -- EU,EV 
This is part of the main routine. 


Input parameters: 


REPL : replication factor. 

RLEN : length of basic string. 

CONVSW : switch to indicate whether the 
string must be retranslated (=0) 
or not (=1). 

CTAB : address of the character-string 


table in storage. 

current pointer to this table. 

address that must be subtracted 

from CTAB1 to obtain the offset in 

the character-string table, a part 

of which may already have been put 

out on SYSO001. 

TABE : end address of the character- 
string table in storage. 

R1ST : address of the end quote of the 
character string. 


CTAB1 
ADABS 


If the replication factor is 0, it is 
ignored and set to one. If necessary, the 
basic string is retranslated into the 
external code. The string is expanded 
according to the replication factor. 
Strings exceeding the length of 255 are 
truncated on the right. 


The string is then compared with all 
sequences of characters of equal length in 
the character-string table. If a matching 
entry is found, the same offset is used in 
the key, which is moved into the output 
buffer. Otherwise, the string is moved 
into the table. If it does not fit into 
it, the table is filled by a first part of 
the string and put out on SYS001.  ADABS is 
reduced by the length of this output, and 
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the remaining bytes of the string are moved 
to the beginning of the table. Control 
then returns to FSCA and the scan contin- 
ues. 


FFIN -- EW 


This is the end of the main routine. The 
end-of-program key is moved into the output 
buffer, and the buffer is put out on text 
output medium. The character string table 
(or the last part of it) is put out on 
SYS001. The length of the character-string 
table is stored in IJKCSL.  IJKPH is then 
called to fetch the next phase (A50). 


FPIN -- EX 


FPIN is called each time the input pointer 
has been increased and ensures that the 
input pointer always points to an address 
within the first of the two input buffers. 
Whenever the input pointer exceeds its 
range, the contents of the second buffer 
are moved into the first one, and a new 
record is read into the second buffer. 


Note: The end of the program is indicated 
by the end-of-program key X'FF'. If, how- 
ever, the end quote of a string constant is 
omitted, this key cannot be detected since 
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a character string may contain any of the 
256 characters. It is therefore necessary 
to test for end of file after every call of 
IJKGI. If the end of file has been 
reached, the last record in the first buf- 
fer is processed, and FFIN is called the 
next time FPIN is invoked. 


FMBU -- EY 


input parameters: 


RR : address of source. 

R1: end address of source + 1. 

POUT : pointer of output buffer. 

BUFOL : end address of output buffer. 
Output parameters: 

RR : = RI 

POUT : points to the next free address in 


the buffer. 


This routine moves text into the output 
buffer. If all bytes to be moved do not 
fit into the buffer or if they do exactly 
fit, the buffer is filled with the first 
part of the text to be moved and its con- 
tents are written on output medium. The 
remaining bytes, if any, are moved to the 
begin of the buffer. 





D 
/f BN 
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This phase scans the block structure of the 
source program. Therefore, the statements 
PROCEDURE, BEGIN, IF, DO, and END as well 
as the keywords THEN and ELSE must be rec- 
ognized. 


Each statement is given a 6-byte end-of- 
statement (EOS) key, which contains a 
level, a block, and a statement number. 
Each assignment statement is given a 
special key (SET key). 


All statement keywords are translated 
into internal representation (see Figure 
1). For the keyword THEN, an EOS key is 
generated. For the keyword ELSE, an "ELSE 
statement" containing a statement key and 
an EOS key is generated. 


If an error is found in the block struc- 
ture (more PROCEDURE or BEGIN statements 
than END statements or vice versa), the 
source text is truncated after the last 
correct END statement. 


Internal Representation of Statement 
Identifiers 


Each statement identifier is replaced by a 
3-byte key in internal code. This key has 
the following format: 


byte 0: EO 

byte 1: undefined 

byte 2: identification (see Figure 1) 

ic M IM ICQ REA AC QI AOC T 
| Byte 2 Statement | 
| o o + 
| 03 DUMP | 
| 04 OVERLAY | 
| 05 PROCEDURE | 
| 06 BEGIN | 
| 07 END (PROCEDURE) | 
| 08 END (BEGIN) | 
| 09 CALL | 
| 0A GOTO | 
| 0B ENTRY | 
| OC RETURN | 
| 0D NOP | 
| OE SET | 
| OF EXPRESSION | 
| 10 IF | 
| 11 ELSE | 
| 12 DO 

| 13 END (DO) 

| 20 SIGNAL | 
posto quee i s Aci cu cM MALI DU LU L 


Figure 1. Contents of Byte 2 of the 3-Byte 


PHASE PL/IA50 (BLOCK STRUCTURE) -- FM 


DESCRIPTION OF ROUTINES 


Symbols used in flow charts 


POUT = pointer output area 

PCA = pointer communication area 

IBUFL = length of the I/O buffers 

PIN = pointer input area 

BUFB1 = Start address of the first input 
buffer 

GROUT = end address of the output buffer 

BUFEND = end address of the input area 

PTA = pointer table area 

TABA = start address of the table area 

TABE = end address of the table area + 1 


JEPLA1 -- FO 


The routine skips the prefix lists and 
labels preceding a statement. It is tested 
whether a parenthesized list preceding a 
statement is followed by a colon. The 
prefix list is translated into a mask. The 
Statement counter is increased according to 
the number of statements processed. The 
counter value is inserted into the EOS key. 


Entry parameter: 
PIN = address of 
Statement 


the first byte of the 


Return parameters: 

HR4 = address of the first byte of a state- 
ment which is not yet put out. 

PIN - address of the first byte after the 
first identifier of a statement. 


D IE meo E TARDO RECON 5 
Byte 2 Statement | 
O eii au Dui m iz m I ML A 4 
21 REVERT | 
22 ON | 
23 STOP | 
30 CLOSE | 
31 OPEN | 
32 DISPLAY | 
33 GET | 
34 PUT | 
35 FORMAT | 
36 READ | 
37 WRITE | 
38 LOCATE | 
39 REWRITE | 
40 DECLARE | 
4 1 INITIAL SCALAR | 
42 INITIAL ARRAY | 
43 FILE | 
44 ARRAY | 
CD ae SERS DARN OO nC Le A Ee Ree Ode WIERĘ J 

Statement Identifier Key 
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JASSA1 -- FP 


The program tests whether the actual state- 
ment is an assignment statement. If so, 
the SET key is inserted before the state- 
ment. 


If the identifier preceding the state- 
ment is IF, control is transferred to JPIF. 
If the identifier is the statement keyword, 
it is replaced by the corresponding key. 
Otherwise, the SET key is generated. 


Entry parameters: 

PIN = address of the first byte after the 
first identifier of a statement. 

HR4 = address of the label identifier 
preceding the statement, if any. 


Return parameters: 

PIN = start address of the statement iden- 
tifier. 

HR4 = address of the first byte of a state- 
ment that is not yet put out. 


JSTAAT1 -- FO 
Secondary entry points: JSTAA3, JSTAE2, 
JSTAEU 


The routine compares the identifier preced- 
ing a Statement with a list of statement 
keywords contained in KEYTAB. This table 
contains a 4-byte entry for each keyword. 
The first two bytes contain the keyword 
itself; the other two bytes contain a rela- 
tive branch address. 


If the identifier is one of the keywords 
PROCEDURE, BEGIN, ENTRY, IF, ELSE, DO, END, 
GOTO, or DECLARE, control is transferred to 
one of the routines JPRO, JENT, JPIF, JELS, 
JPDO, JEND, JGOT or JDLA. 


All statement identifiers are translated 
into internal representation by means of 
the table CODTAB, which contains a 4-byte 
entry for each keyword. The first two 
bytes contain the keyword itself; the sec- 
ond two bytes contain the internal rep- 
resentation of the statement identifier. 


Entry parameters: 

PIN = start address of the statement iden- 
tifier. 

BYZ = 0 or length of a parenthesized list 
follows the identifier. 

HR4 = start address of the label identifier 
preceding the statement, if any; 
otherwise HR4 = PIN. 


JPROA1 -- FR 
Secondary entry point: JPROB1 
The routine is called by JSTA and processes 


the PROCEDURE and the BEGIN statement, 
respectively. The level counter is 
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increased by 1. It may not be greater than = 
three because only three levels are ff 
allowed. The block counter is increased by NZ 
1. It may not be greater than 63 because 

only 63 blocks are allowed. 


For each PROCEDURE, BEGIN, or DO state- 
ment, a pointer ENDZ is increased by 1. 
Corresponding to the status of ENDZ, it is 
entered in a push-down table ENDTAB, wheth- 
er it isa begin block (0) or a DO group 
(1). The evaluation of this table and 
reducing of ENDZ by 1 is done by the rou- 
tine JEND. 


Entry parameters: 

PIN = start address of the statement iden- 
tifier. 

HR4 = start address of the first label 
identifier, if any, preceding the 
statement. 


Return parameters: 

PIN = unchanged. 

HR4 = start address of the label identifi- 
er. If more than one label is given, 
the last label is pointed to. 


JENTAT -- FS 


The routine is called by JSTAA1 and proc- 

esses the ENTRY statement. Only the label 
preceding the statement is checked. Entry 
and return parameters are the same as in Now 
JPRO. 


JPIFA1 -- FT 


The program is called by JSTAA1 and proc- 
esses the IF statement. An IF statement 
has the form: 
IF expression THEN unit 1 ELSE unit 2; 
An equal sign and parenthesized lists may 
occur in expression. Since there is no 
difference in appearance of the logical 
equal sign and the arithmetical equal sign, 
the IF statement can be differentiated from 
the assignment statement only by the key- 
word THEN. The statement identifier is 
replaced by the internal representation. 


The keyword THEN is replaced by an EOS key. 


Entry parameters: 

PIN = start address of the statement iden- 
«iTier; 

HR4 = start address of the label identifier 
preceding the statement. If there is 
no label, HRt = PIN. 


Return parameters: 

PIN = address of the next byte after THEN. 

PIN = unchanged if no IF statement is 
encountered. 
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JELSA1 -- FU 


The routine is called by JSTAA1 and proc- 
esses the keyword ELSE. ELSE is followed 
by a Semicolon only if unit is a NOP state- 
ment. To facilitate the statement scan for 
the following phases, the ELSE key is con- 
cluded by an EOS key. 


An ELSE keyword has the form: 


statement; ELSE identifier or 

statement; ELSE (prefix): identifier or 
Statement; ELSE ; 

1.e., ELSE can only be followed by an iden- 


tifier, a left parenthesis, or a semicolon. 
In the source text, the keyword ELSE is 
replaced by: 


Key 
EOS 


(6 bytes) 
(6 bytes) 


The statement number in EOS is the same as 
in the previous statement. 


Entry parameter: 
PIN = HR4 = start address of the identifier 
ELSE. 


Return parameter: 
PIN = address of the byte following the 
identifier. 


JEDOAT == EV 


The routine is called by JSTAA1 and proc- 
esses the DO statement. A DO statement 
must be recognized to be able to differen- 
tiate the END statement into block ends and 
group ends. 


The statement identifier is replaced by 
the internal representation. In the inter- 
nal buffer ENDTAB, a 1 for marking group 
end is entered. A zero is entered for 
block end. 


Entry parameters: 
PIN = start address 
tifier. 

HR4 = start address of the first label 
preceding the statement. 


of the statement iden- 


Return parameters: 
PIN = Unchanged HR4 = Unchanged 


JENDA1 -- FW 


The routine is called by JSTAA1 and proc- 
esses the END statement. An END statement 
has the format: END; No other format is 
permitted in the DOS/TOS PL/I compiler. In 
the PL/I language, the END statement for a 
block end is the same as for a group end. 
Internally, the two types of END are coded 
differently. Pointer ENDZ points to the 
last entry in ENDTAB (see JPROA1 -- FR), 


thus showing the type of END. The level 
counter LEV is decreased by one at the end 
of a block. 


Entry parameters: 

PIN = start address of the statement iden- 
tifier. 

HRY = start address of the label identifi- 
er; if ams 


Return parameter: 
PIN = address of the semicolon. 


JLACA1 -- FX 


The routine checks the label preceding a 
PROCEDURE or ENTRY statement. Only one 
label must precede each of these state- 
ments. The following errors may appear: 
1. No label: pseudo label is inserted. 


25 More than one label: 
the last are ignored. 


all labels except 


Entry parameters: 

HR4 = start address of the 
label. 

PIN = start address of the statement iden- 
tifier. If no label appears, HR4 = 
PIN, 


(possibly first) 


Return parameters: 

PIN = unchanged. 

HR4 = unchanged if no error is detected. 

HR4 = PIN if error 1 is detected. HR4 = 
start address of the last label if 
error 2 is detected. 


JEOSA1 -- FY 


The routine is called at each statement 
end. It generates the EOS key and puts out 
an error list, if necessary. When JEOS is 
called, PIN points to the semicolon. The 
Statement itself is already in the output 
area or on the output medium. 


On return, PIN points to the first byte 
of the new statement. If no more state- 
ments follow, i.e., if the end of the 
source text is reached, PIN points to the 
end-of-source-text mark. 


It is tested whether PIN is still inside 
the first input buffer. If it is not, it 
is tested whether PIN is still inside the 
last buffer because incorrect statements 
can cause PIN to run out of the input area. 
In this case, an error message iS given. 
Otherwise, the contents of buffers 2 - 4 
are moved into buffers 1- 3 and a new 
record is read into buffer 4. It must 
therefore be avoided that a statement or a 
Single identifier is divided by the end of 
the input area. This is done as long as 
PIN is outside the first buffer. 


Phase PL/IA50 59 





t meemmeemtmmm sementem er 


PL/I PLM 8 


IBM Confidential 


The EOS key has the following format: 


byte 0 EOS key 

byte 1 error indicator 
byte 2 level number 
byte 3 block number 
byte 4-5 statement number 


If an incorrect statement is discovered, 
and error message is generated in the 
source text. The error message has the 
following format: The first bit of the 
error indicator in the EOS key is set to 1. 
Two bytes are inserted after the key for 
every error in the source text; byte 1 
contains the error key, byte 2 contains the 
error number. 


JERRA1 -- FZ 


The routine is called if an error is 
detected. Up to eight error messages per 
statement are stored. Additional errors 
are ignored. 


JEOSA1 puts out the error messages into 
the source text following the statement in 
error. The error table (ERRTAB) entries 
have the following format: 


byte 1 = error key (X'EB') 
byte 2 = number of errors 
bytes 3-10 = special error keys 


Entry parameter: 
HRO = special error key (1 byte) 


The subroutine moves any number of bytes 
from a FROM field to a TO field. The FROM 
and TO fields may overlap. 


Entry parameters: 

HRO = number of bytes to be moved 
HR1 = address of the TO field 

HR2 - address of the FROM field 
BYZ is used as auxiliary register. 


JCHAA1 -- F1 


The subroutine is used to find a character 
in the source text. Searching is performed 
up to the end of the statement. If the end 
is reached, PIN contains the address of the 
semicolon as return parameter. If the end 
of the source program is reached before the 
character is found, an error message is 
given. An EOS key is inserted. 


Entry parameters: 

PIN = start address of the search region. 

BYZ = character to search for (1 byte 
right- justified). 
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Return parameters: 

PIN = address of the character found or of 
the end of statement. 

BYZ = PIN new - PIN old. 


JSKPA1 -- F2 

The subroutine searches for the end of a 
parenthesized expression. All internal 
pairs of parentheses are skipped. 

Entry parameter: 

PIN = address of the first left parenthe- 


Sis. 


Return parameters: 


PIN = address of the next byte after the 
last right parenthesis. 

HRO - PIN old. 

BYZ - PIN new - PIN old. 


JTRNA1 -- F3 


The subroutine moves information into the 
output buffer and controls the pointer for 
this buffer. When the pointer exceeds the 


Scope of the buffer, the text is put out on 


output medium. 


Entry parameters: 


PIN = start address of the information to 
be put out. 

BYZ = length of the information. 

POUT = next free address in the output 


buffer. 


Return parameters: 

PIN new = PIN old + BYZ. 

POUT - next free address in the output 
buffer. 


JGOTA1 ~- Ft 


The routine is called by JSTA and processes 
the GOTO statement. The statement iden- 
tifier for the GOTO statement may be writ- 
ten with or without a blank between GO and 
TO. The key is the same for both forms. 


JDLAA1 -- F5 


The routine is called by JSTA and processes 
the DECLARE statement. If a label list 
precedes the statement, it is removed from 
the source text. 


Entry parameters: 

PIN = start address of the statement iden- 
tifier,; 

HR4 = start address of the label identifier 
preceding the statement. If there is 
no label, HR! = PIN. 


Return parameters: 
PIN - unchanged. 
HR4 PIN. 
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JFIXA1 -- F6 

The program scans the prefix lists and 
generates a mask. This mask has the fol- 
lowing format: 


bit 0: 0 = NO ZERODIVIDE 
1 = ZERODIVIDE 
bit 1: 0 = NO UNDERFLOW 
1 = UNDERFLOW 
bit 2 : 0 = NO OVERFLOW 
1 = OVERFLOW 
bit 3 : 0 = NOFIXEDOVERFLOW 
1 = FIXEDOVERFLOW 
bit 4 : 0 = NOCONVERSION 
1 = CONVERSION 
bit 5 : 0 = NO SIZE 
1 = SIZE 
bit 6 3 reserved 
bit 7 : reserved 


Entry parameter: 
PIN = address of the left parenthesis. 


Return parameters: 

PIN = address of the colon after the prefix 
list. 

FIXMSK = mask. 





The routine generates a statement attribute 
Of 3 bytes and inserts it into the source 
text immediately after the statement iden- 
tifier. The statement attribute contains 
the following information: 


byte 0 prefix mask (see JDLAA1 -- F5) 
byte 1 number of the actual block 
byte 2 number of the embracing block 


Byte 1 is set to zero in phase B90. 


JEOPA1 -- F9 

This routine checks if the end of the 
Source text has been reached. If it has, 
the end-counter ENDZ is checked, and the 
output area is cleared. 


Entry parameter: 
PIN = input pointer 


JBETAT -- F8 


This routine generates the end-table. 
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PHASES PL/IA60, A65 (SYNTAX CHECK I AND II) -- GL, SW for 


Nay 


The two syntax phases, A60 and A65, may be Byte (s) Contents 

considered as one logical phase. 
end-of-statement key X'EA' 
indicator no error X'00' 
level number 
block number 

6 statement number 


The first syntax phase, A60, processes 
all statements except READ, WRITE, GET, 
PUT, FORMAT, which are processed by the 5 
second syntax phase A65. 


| EWN— 


lor if an error has been detected in 
the statement: 


Byte (s) Contents 
1 end-of-statement key X'EA' 


Phases A60 and A65 


e check each statement for Syntactical 2 error indicator X'40'! 
errors (exception: DECLARE statement). or X'80' 
3 level number 
4 block number 
e substitute 3-byte keys for symbols as 5-6 statement number 
follows: 7 error key X'EB' 
8 error number 
9 error key X'EB' 
byte 1 Key Stk 10 error number, etc., 
bytes 2-3: program-internal code for the (up to 8 errors) 
respective symbol (see Figure 
1 in phase A295). 3. substituted an end-of-statement delimi- 
ter for each keyword THEN; 
e substitute elements of variable length 4. placed an end-of-statement delimiter A” 
for all constants (except character after each keyword ELSE; D 


String constants) as shown in Figure |. 
5. substituted a special key for each 


Byte, 1 , 2, 3, 4 55 1 6 5 7 1.8 ,? Lab character string constant as follows: 
| | | | Byte (S)_ Contents 
1 


character-string constant 


key X'E3' 
| uu 2*3 offset to begin of charac- 
Original constant ter-string constant table 
4 character-string constant 
length of element : L key X'E3' 
5-6 length of the constant 


Constant key : F7 for decimal fixed 
F8 for decimal float 6 
F9 for binary fixed Ę 
FA for binary float 
FB for bit string 


substituted 6-byte elements for all 
statement identifiers as follows: | 


FC for sterling Bytes) Contents 
IES 1 statement identifier | 
Figure 1. Substitution of Variable-Length key X'EO' | 
Elements for Constants 2 not used in this phase | 
3 number specifying the | 
statement identifier : 
The preceding phases have: 4 prefix information 
5-6 not used in this phase 
1. eliminated all blanks and comments, 7. placed a 6-byte element ASSIGN in front | 
of each assignment statement as shown | 
2. substituted an end-of-statement del- under item 6. 


imeter for each semicolon as follows: 
8. substituted a 3-byte key for each pro- 
a. if no error has been detected in gram element appearing as an identifier 
the statement: or keyword as follows: 
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Byte (S) Contents 
1 identifier key X'E1' 
2-3 offset to a table 


9. processed and eliminated the prefix 
option lists. 


Note: Steps 3 and 4 have left the program 
non-recursive. All statements may now be 
processed independently of each other. 
Push-down stacks are reduced in size (since 
recursion only occurs in expressions). 


Output_of Phases A60 and A65 


With the exception of the DECLARE statement 
and the declarative portions of PROCEDURE 
and ENTRY statements, the output stream 
consists of 3-byte elements and variable- 
length elements. Any ambiguities resulting 
from the fact that keywords are not 
reserved have been clarified. This is 
illustrated by the following example: 

DO IF=BEGIN TO END WHILE (DISPLAY) ; 
Since all identifiers making up the above 
statement are potential keywords, the syn- 
tax phases must detect the real keywords 
(in this case DO, TO, WHILE). 


The first byte of each 3-byte element 
substituted for a keyword now contains 
X'EF' instead of X'ETI' 


An error message is generated for each 
detected syntactical error. This message 
is attached in coded form to the end-of- 
Statement delimiter as shown in Figure 3. 


FUNCTIONAL DESCRIPTION 


1. Scanning Syntactical Units (Linguistic 
Functions) 
A "Linguistic Function" (abbreviation 
LF) is a routine which returns a 
Boolean value. The value of the LF is 
determined as follows: Within the LF, a 
"linguistic expression" is written, 
which syntactically describes a pattern 
of the source string. This linguistic 
expression is said to define the LF. 
During execution,the LF examines the 
Source text for the occurrence of the 
pattern described by the LF's linguist- 
ic expression. If the pattern is 
found, the LF yields a TRUE value; if 
not, it yields a FALSE value. 
(These are quotations from the SLANG 
Language Tutorial Manual. Edition 1, 
3-18-64, pages 36-37). 


Whenever a syntactical unit has been 
recognized, 3-byte elements and 
variable-length-elements are 
substituted for symbols and constants. 


2. Processing Syntactical Units 


w 
e 


Detection of Syntactical Errors 
After a Statement has been identified 


by scanning and comparing the statement 
identifier, it is checked for conform- 
ing to the syntactical rules. If an 
error is detected, a message specifying 
the nature of the error is generated. 


The syntactical scan is based on the 
assumption that the complete statement is 
contained in the four input buffers. Two 
pushdown stacks, three pointers and three 
LF utility routines are used. 


Push-Down Stacks 


LPDL used to store the linkage. 

PPDL used to store the value of the 
input pointer 

Pointers 

PDLI A symbolic register used aS a poin- 
ter to LPDL and PPDL. This pointer 
is moved by the routines BEGLF, 
EXTRUE, and EXFALS. 

PIN A symbolic register used as input 
pointer. 

POUT A symbolic register used as output 


pointer. 


LF Utility Routines 


The following 3 routines enable recursion 
during the syntactical scan (see flow 
charts HH and GT). 

BEGLF Initiated upon entry into an LF. 
The current value of the input 
pointer PIN is saved and the lin- 
kage information contained in LINK 
is stored. 

EXTRUE Initiated if an LF yields TRUE. 
This routine fetches linkage infor- 
mation from LPDL, adds 4 to it, and 
returns to the resulting address. 
EXFALS Initiated if an LF yields FALSE. 
This routine restores PIN (i.e. 
Fetches from PPDL the value which 
was stored there when the LF was 
initiated), fetches linkage infor- 
mation from LPDL, and returns to 
the provided address. 

Note: After a TRUE exit, PIN points to the 
character following the examined syntacti- 
cal unit. After a FALSE exit, PIN points 
to the same character it was pointing to 
when the LF was initiated. 
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SOME E EEG | OWENA a E 1 AN 
| 1. | INTEG BAL UTIL,BEGLF | Linguistic Utility Routine. | SE. 
| 2. |] ST PIN, INTEG1 Store begin of integer. | dl 
| 3. BAL BINKBIGIT Digit? | 
| 4, | B EXFALS | No. Return FALSE. | 
| 5. | INTEG2 BAL LINK,DIGIT | Yes. Another digit? | 
| "63 B INTEG3 | No. End of integer. | 
| 7. | B INTEG2 | Yes. Try again. | 
| 8. | INTEG3 L R1,PIN | Compute the address of | 
[| 9. | BCTR R1,0 | last digit of integer. | 
110. | L R2,INTEG1 | Load start address. | 
111. | BAL LINK,STORIT | Call storing routine. | 
|124 „| B EXTRUE. | Return TRUE | 
Focal oe ee eee ee eee EAR ee ape reeves a A | 
[Step 1: When initiating BEGLF, the symbolic register UTIL is used instead of LINK. | 
[This saves LINK, | 
| | 
|Steps 3-7 comprise the "linguistic | 
|expression". | 
Los au Lag a a A A A tu eet ha See ae J 
Figure 2. Linguistic Utility Routine 
Example for Syntactical Scan one of these bits is set to 0, the asso- 
ciated phase is skipped. At the beginning 
An integer is assumed to be defined (using of the syntax phase, all 5 bits are set to 
the Backus-Naur form (BNF)) as follows: zero. The occurrence of specific state- 
ments causes the syntax phases to set the 
<integer>_::= <digit>|<integer><digit> associated bit to 1 as shown below. 
This means an integer is a string consist- 
ing of more than 0 digits. The above BNF Statement Bit No. Set to One: pon 
definition gives the base for the AER 
"linguistic expression" as illustrated in ES 
the program shown in Figure which scans CLOSE 6 
an integer, notes the address of the first DISPLAY 6,7 
digit, the address of the last digit and FORMAT 6 
calls another routine with these addresses GET 4 
as parameters. IF 3 
LOCATE 6,7 
Note: Although the BNF definition of an OPEN 6 
integer is recursive, the routine shown in READ 6,7 
Figure 7 is not recursive. This is correct REWRITE 6,7 


because the integer could be defined as 
«integer» :: = min 1 «digit» by using an 
extended BNF.  Recursion has been avoided 
to improve the phase performance. 


DESCRIPTION OF ROUTINES 





Syntactical Definition of Input and Output (Open) A routine is called open if 
Stream control is transferred to it 
by 
The syntactical definition (metalanguage) 
of the input and output stream is given in 1. a simple B instruction, 
Appendices A and B. in which case control is 
also returned by a B 
Skipping of Phases instruction, or 
To save compilation time, certain phases 2. Some in-line coding that 
following the syntax phase are skipped if requires a separate des- 
the statement which they process does not cription. 
occur in the source program.  Skipping of 
phases is prepared and specified by the (Closed) A routine is called closed if 
Syntax phases A60 and A65 as follows: control is transferred to it 
by a BAL instruction. Con- 
Bits 3 to 7 of byte IJKMJT+3 specify trol is returned by a BR 
Skipping of certain subsequent phases. If instruction in this case. 
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C 





SYN1 -- GM 


Ihis routine is the "master program" of the 
phase. 


1. PIN and POUT are initialized and the 
four input buffers are filled. 


2.  PDLI is reset. PIN is stored in 
CREAT1. PIN is moved until a statement 
identifier key (x'EO') is found. Then 
6 is added to PIN so that it points to 
the first character of the statement 
body. The statement-processing rou- 
tines are activated. 


3. If the statement returns TRUE (entry 
SYN166 = statement conforms with syn- 
tactical rules), it is tested whether 
PIN points to the end-of-statement 
(EOS) delimiter. 


4. If PIN points to the EOS delimiter, the 
last part of the statement (the start 
address is in CREAT1, the end address - 
1 is in PIN) is put out, and EOST is 
called. SYN1 continues with step 2. 


If PIN does not point to the EOS delim- 
iter, ERROR is called(the logical end 
of the statement body is not followed 
by an EOS). The last part of the 
Statement is put out, and PIN is moved 
until an EOS or the end-of-program mark 
(EOP) is detected. If an EOS is 
encountered, EOST is called. SYN1 
continues with step 2. If an EOP is 
encountered, TEPHA is called to termi- 
nate the phase. 


5. If the statement returns FALSE (the 
Statement does not conform with syntac- 
tical rules, or is not processed in 
this phase), INPT is called. INPT 
moves PIN until an EOS or EOP is 
encountered. 


Note: Whenever control returns from EOST, 
PIN points to the first byte of the nex 
Statement. | 


BUEU (Closed) -- GO 


Puts out a string. The start address of 
this string is in CREAT1, the end address 
-1 is in PIN. 


CARFB (Closed) 


This routine is called by several linguist- 
ic functions. 


R1 contains the address of the 3-byte ele- 
ment. If this element is not identical to 
that starting at O(PIN), the routine 
returns FALSE to (LINK). Otherwise, the 


byte at O0 (PIN) 
for “Keyword") 
BUBU is called. 
to 4 (O0, LINK). 


EOST, JEOSA1 (Closed) -- GO 


Arranges the contents of the input buffers 
1 to 4. The currently scanned EOS is 
located in input buffer 1 (this is done by 
moving and by reading new records). Puts 
out the EOS and the error codes attached to 
it. Any additionally generated error codes 
are also put out. 


INPT (Open) -- GN 


1. If PIN points to an EOS, control is 
passed to SYN157. (SYN157 is a label 
associated to SYN1 step 4 - see des- 
cription of SYN1). 


is replaced with X'EF' (key 
and PIN is incremented by 3. 
The routine returns TRUE 


2. If PIN points to an EOP, TEPHA is 
called. 


3. If PIN points to an E-key, PIN is 
incremented by 3. 


4. If PIN points to an F-key, the contents 
of the two bytes following this F-key 
are added to PIN. 


5. Otherwise, PIN is incremented by 1 and 
INPT starts again with step 1. 


JSLCA1 (Open) -- GU 


Tests the statement for excessive length. 
(The appropriate EOS must be located in the 
first 4 input buffers). If the statement 
exceeds the permitted length, the statement 
body is deleted. The statement now con- 
Sists of the statement identifier and the 
EOS attached with error codes. The next 
Statement is positioned starting in input 
buffer 1. | 


JTRNAT (Closed) -- GR 


Output routine. Register BYZ contains the 
number of bytes to be put out; register PIN 
contains the start address. 


One output buffer is used. 


1. If the (remaining) length of the output 
string does not exceed the available 
Space of the output buffer, the com- 
plete (remaining part of the) string is 
moved into the buffer. The output 
pointer is updated by adding BYZ to 
POUT. 


2. If the length of the output string 
exceeds the available buffer space, an 
appropriate part of the string is moved 
to the buffer. The contents of the 
buffer are written onto the output 
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initiated and depending on the value of the 
LF, LKW returns TRUE or FALSE, 


of TEPHA, 


If the routine is used in phase A60, it 


Example: returns control to the compiler control 
program, indicating the next phase to be 
initiated. This is A65 if one of the fol- 

DS OF lowing statements occurred in the source 

TABLE DC Xt Length of pattern program: READ, WRITE, GET, PUT, FORMAT. 

DC x5 Number of elements Otherwise, phase B10 IS initiated. 
in the table 

DC X' 3A3A' Ist argument If the routine is used in phase A65, it 

DC X'OAFA' 1st "function value" returns control to the compiler control 

DC 213936? 2nd argument program, indicating that the next phase to 

DC X'O7EE' 2nd "function value" be initiated is B10. 

DC X1 3E3C! etc. 

DC X'07F1' ERROR (M) , JERRA1 (M) -- GS 

DC X' 3D3C 

DC x'07F2' This routine fills an error table with up 

DC x'4040' to 8 errors per statement. If the same 

DC X' O3EA' error is detected more than once for one 

DC x'0' end of table Statement, the error appears only once in 

5 the error table. 
Parameters R2 : A (TABLE) Each detected error causes an error 

R3 : A(0) message to be generated, represented inter- 
R4 : A(2) nally as a one-byte number. This number is 
R5 =: X'000000E£2' attached to the End-of-Statement delimiter. 
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medium.  POUT is reset to the start address Assumed input: o 
of the buffer.  BYZ is decremented by the . po NN NN + 1 SE 
number of bytes moved into the buffer. PIN | ---r----T--T--T--1T--T--T--T--1T--------- | xr 
is incremented by this number.  JTRNA1 | cr ać ce io R eet | 
starts again with step a. | 11-10-1011, 1-- 1010100000 | 

| JE ecc pattern | 

| 

LKW (Closed) SE e -L 4 | 

| PIN points to DIS character | 

SDE A PER dE ee aR PEP Z j 
This routine is called by several linguist- 
ic functions. In this case LKW performs the following: 

The table lookup is successful. BUBU is 
Input parameters: called to put out a string ending at X'61'. 
R2: table address A 3-byte element is created (X'E207F2') and 
R3: address of the LF to be initiated if put out. PIN points to X'01'. LKW returns 
the search is successful. Must be O0 TRUE. 
if no LF is to be initiated. 

R4: length of source pattern TARI1_ (Closed) 
R5: address of a 3-byte element 

This routine is called by several linguist- 

ic functions. 
Looks up the table (address defined by R2) 
for a pattern (length defined by R4) that If the rightmost byte in R1 is identical 
is identical to that located in O(PIN). with the byte at O(PIN), BUBU is called. A 
Returns FALSE to O(LINK) if the search was J-byte element consisting of the leftmost 3 
unsuccessful. Otherwise, BUBU is called to bytes in R1 is put out. PIN is incremented 
put out a string. A 3-byte element is by 1. TARI1 returns TRUE to 4 (0,LINK). 
created by using the rightmost byte in R5 Otherwise, TART1 returns FALSE to (LINK). 
as first byte and the "function value" of 
the table as second and third bytes. The TEPHA (Open) -- GP 
Jj-byte element is put out. If R3 contains m 
0, LKW returns TRUE to 4(0,LINK). If R3 Puts out the contents of the output buffer. 4 ; 
contains an address of an LF, this LF is Further actions depend on the utilization Mr 
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In this phase, all declarations given 
explicitly in DECLARE statement parameter 
lists and label declaration lists are col- 
lected in a declaration pool. The pool is 
written on SYS001. 


Declaration Pool 

In the declaration pool all declarations 
belonging to one block are collected in a 
group which is written on SYS001 if the end 
of the block is reached. 


Three block levels are allowed. For 
each level a buffer is defined in the table 
area. The declarations are collected in 
the buffer indicated by the level counter. 
If a buffer overflows, it is written before 
the end of the block is reached. 


The first four bytes in each buffer 
contain special information concerning the 
block. 


byte 0: block number 

byte 1: block level 

byte 2: block number of the embracing block 

byte 3: mark if the record is the last of 
the block. 


This information is put in front of each 
record. In phase B20 the records of the 
pool which are on SYS001 are ordered by 
ascending block number and written on 
$Y5002 or SYS003. 


The information entered in the declara- 
tion pool is classified in three groups: 


ds label declaration lists 
2. parameter lists 
3. | DECLARE statements 


A label declaration list starts with an 
identifier key. A label constant or an 
entry name may be entered in such a list. 
A label constant consists of 4 bytes: 


byte 0 : identifier key 
bytes 1-2: user name (coded in phase A25) 
byte 3 : colon 


An entry name consists of: 


byte 0 : identifier key 

bytes 1-2: user name (coded in phase A25) 
4: attribute ENTRY (optionally, 

data attributes specified by the 

user as attributes describing 

the returned value). 


PHASE PL/IB10 (DECLARATION SCAN I) -- HM 


The end of an entry name is indicated by 
an EOS key (6 bytes). 


A parameter list starts with a parameter 
key (1 byte). This key is followed by the 
internal representation of the left paren- 
thesis (3 bytes). 


The user-defined parameter names follow 
(3 bytes each, coded in phase A25) sepa- 
rated by the internal representation of the 
comma (3 bytes) and closed by the right 
parenthesis (3 bytes). 


A DECLARE statement starts with a 
declare key (1 byte). The whole statement 
follows. It is scanned syntactically in 
phase B20. 


DESCRIPTION OF ROUTINES 

Note: The routines JERRA1, MOVEA1, JCHAA1, 
and JIRNA1 are described in phase A50. The 
corresponding flow charts are FZ, FO, F1, 


and F3, respectively. 


Symbols used in flow charts: 


PCA : pointer for communication area 
EOS : end-of-statement key 
EOPR : end-of-program key 


STATAB: table of addresses of routines that 
process PROCEDURE, BEGIN, ENTRY, 
DECLARE, and END 


BLZ : block counter 

ERRCOD: error code 

LEV : level counter 

EOSC : end of record on SYS001 
Initialization == HN 

JELAA1 -- HO 


This routine scans the statement labels. 
If a label is found, it is entered in the 
declaration pool. 


Entry parameter: 
PIN = address of the first byte of a state- 
ment. 


Return parameter: | 
PIN = address of the statement-identifier 
key. 


JSTBA1 -- HP 
This routine scans the statement identifi- 
ers and searches for the identifiers PROCE- 


DURE, BEGIN, ENTRY, DECLARE, and END. If 
one of these identifiers is found, the 
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program branches to special routines that 


process these statements. All other state- os 
ments are written unchanged. This routine processes the OPTIONS attri- A 
bute. 
Entry parameter: 
PIN = address of the statement-identifier JCPLA1 -- HS 
key. 
This routine checks the parameter list for 
identical parameters. 
JPCRA1 -- HQ | 
Entry parameters: 
Secondary entry point: JPCRE1 HR4 = PIN = address of the left parenthe- 
sis. 
This routine, called in JSTBA1, processes HR3 = 0. 
the PROCEDURE statement. The PROCEDURE 
statement opens a new block. Therefore, Return parameters: 
the level and block counter are increased PIN = address of the right parenthesis. 
by 1. HR3 = length of the parameter list. 
The following information is entered 
into the declaration pool: JENTA1 -- HT 
1. The last label is given the attribute This routine is called in JSTBA1 and proc- 
ENTRY. esses the ENTRY statement. 
2. If the procedure has data attributes, An ENTRY statement differs from a PROCE- 
they are associated with the last DURE statement in that it does not open a 
label. new block. The entry name is internal to 
the embracing block. Therefore, the entry 
3. The end of this attribute list is indi- name is moved into the declaration pool of 
cated by the EOS key. the embracing block. This is done in rou- 
tine JELA. PEN 
4. Four bytes of information concerning ME 
the block are entered in the declara- Entry parameter: No 


tion pool. 


PIN = start address of the statement iden- 


tifier. | 
byte 0: block number 
byte 1: block level Return parameter: 
byte 2: block number of embracing block PIN = address of the EOS key. 
byte 3: indicates last record of block 


5. If the PROCEDURE has a parameter list, 
a key is entered in the pool. The list 
follows unchanged. 


The PROCEDURE statement, with the excep- 
tion of the data attributes, is written 
unchanged. 


The first PROCEDURE statement in a 
source program may have the attribute 
OPTIONS followed by an option list in 
parentheses. The options in this list are 
Separated by commas. 


The following options may appear: 

MAIN: It specifies the MAIN procedure. 
ONSYSLOG: It specifies that object time 
diagnostics will be written on SYSLOG. 


If these options appear, special bits in 
the communication area are set. 


A PROCEDURE statement with the attribute 


OPTIONS must not have a parameter list or 
data attributes. 
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JBEGA1 -- HU 

This routine is called in JSTBA1 and proc- 
esses the BEGIN statement. For the scope 
of declarations, the BEGIN statement has 
the same function as the PROCEDURE state- 
ment. 


Entry parameter: 
PIN = start address of the statement iden- 
tifier. 


Return parameter: 

PIN = address of the EOS key. 
JDCSA1 -- HV 

This routine is called by JSTBA1 and proc- 
esses the DECLARE statement. The entire 


statement is moved unchanged into the dec- 
laration pool. 


JENDA1 -- HW 
This routine is called by JSTBA1 and proc- 


esses the END statement. An END statement 
closes a block. 
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The level counter (LEV) is decreased by 
one. When the end of a block is reached, 
three bytes containing X'FFFFFF' are moved 
into the declaration pool for that block, 
and the declaration pool is written on a 
work file. 


Entry parameter: 
PIN = start address of the statement iden- 
tifier. 


Return parameter: 
PIN = address of the EOS key. 


JSLCA1 -- HX 


This routine checks the length of a state- 
ment. A statement must not be longer than 
3 buffers. If a statement with an error 
message is detected, the statement is 
deleted except for the statement-identifier 
key and the EOS key. 


Entry parameter: 
PIN = address of the statement identifier. 


Return parameter: 
PIN = unchanged. 


Registers used: 
HRO, HR1, HR2, HRL. 


JEOSA1 -- HY 


This routine is called at the end of each 
Statement. The error indicator contained 
in the EOS key is tested to determine if an 
error exists. An error list is written, if 
necessary. 


When JEOSA1 is called, PIN points to the 
first byte of the EOS key. The statement 





itself except for the EOS key is already on 
the output medium or in the output buffer. 


When returning, PIN points to the first 
byte of the new statement. If no other 
Statement follows, i.e., if the end of the 
Source text is reached, PIN points to the 
end-of-source-text key. 


The program uses four buffers for the 
input stream. If PIN is beyond the first 
buffer, the remainder of the input stream 
is moved to the left, and a new record is 
read into the last buffer. 


Entry parameter: 
PIN = address of the first byte of the EOS 
key. 


Return parameter: 
PIN = address of the first byte of the new 
Statement. 


Subroutine JDEPA1 -- HZ 


This routine checks the length of the dec- 
laration pool. If necessary, the declara- 
tion pool is written onto the work file. A 
record counter is increased by 1. 


Entry parameters: 

HR1 = start address of the information to 
be transferred into the pool. 

BYZ = number of bytes to be transferred. 
PTA = address of the first free byte 
in the pool. 


Return parameter: 


PTA = address of the next free byte in the 
pool. 
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PHASE PL/IB15 (DECLARATION SCAN II) -- IM 





This phase scans the DECLARE statements for DESCRIPTION OF ROUTINES 
syntactical errors. In phase B10, all 

declarations were collected in a declara- Symbols used in flow charts 

tion pool and written on a work file. 

Phase B15 reads the pool, sorts the records PCA :pointer communication area 


according to ascending level numbers, and FINO :current file number 
Scans the DECLARE statements. The output ZI :integer constant 
is written onto TXTIN of the previous ERRCOD:error code 
phase. 
| Note: The following routines used in this 
For some declarations, special state- phase are described as follows: 
ments are generated in the source text (see 
items 1 to 3 below). The previous phase MOVEA1 A50 JCHAA1 A50 
leaves the last record of the source text JERRAT A50 JTRAA1 B90 
in the output buffer. The output medium is 
not rewound. Therefore, the statements Initialization -- IN 
generated in this phase are attached to the 
end of the last record. JSRTA1 -- IO 
l. ARRAY This routine sorts the declaration pool. 
The sorted records are moved into the table 
ASK = array statement key (6 bytes) area. After the syntactical scan of the 
VN = variable name. (3 bytes) DECLARE statements, they are written on the 
If the array is a part of a input work file of the previous phase, 
structure, a full qualifi- Each record starts with a special word: 
cation is made, 
CAN = current array number (3 bytes) Byte 0: block number 
bounds (9 bytes) Byte 1: level number 
EOS = end-of-statement key (6 bytes) Byte 2: block number of the embracing block 
Byte 3; indicates if the record is the last » 
2. FILE of the block. mpm 
Nos 
FSK = file statement key (3 bytes) The records are sorted in ascending 
VN = variable name (3 bytes) order of level numbers. 
CFN = current file number (3 bytes) 
file description uncoded LVA = actual level number 
EOS = end-of-statement key (6 bytes) LVM = maximum level number 
3. INITIAL JSCNA1 -- IP 
ISK = initial statement key (6 bytes) This routine scans the declaration pool. 
VN = variable name (3 bytes) The information entered in the declaration 
If the initial item is a pool is classified in three groups: 
part of a structure, a full 
qualification is made. 1. label declaration lists 
LIL = length of list (3 bytes) 2. parameter lists 
initial list uncoded 3. DECLARE statements 
EOS = end-of-statement key (6 bytes) 


A label declaration list starts with an 
identifier key. A label constant or an 
There are two ISK's, one for scalar and entry name may be entered in such a list. 
one for array initialization. 
A label constant consists of 4 bytes: 
byte O : identifier key 


The following is entered in the declara- bytes 1-2: user name (coded in phaseA25) 
tion pool: byte 3. 2 “COLOM 
1.  ARRRAY - The array attribute followed An entry name consists of: 
by the current array number and the byte 0 : identifier key 
number of contained elements. bytes 1-2: user name (coded in phase A25) 
bytes 3-4: attribute ENTRY 


2. FILE - The file attribute followed by 





the current file number. (Optionally) : data attributes specified by 
the user as attributes describing the 
3. INITIAL - The initial attribute only. returned value, 
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Es 


C 


An entry name is always 
(6 bytes). 


closed by an EOS 
key 


A parameter list starts with a parameter 
key (1 byte). This key is followed by the 
internal representation of the left paren- 
thesis (2 bytes). 


The user-defined parameter names follow 
(3 bytes each, coded in phase A25), sepa- 
rated by the internal representation of the 
comma (3 bytes) and closed by the right 
parenthesis (3 bytes). 


A DECLARE statement starts with a 
declare key (1 byte) which is followed by 
the declaration. It is scanned for syntac- 
tical errors in routine JDECA1. 

Entry parameter: PST - start address of the 
pool. 


JDECA1 -- IQ-IW 


This routine is called in JSCNA1 and scans 
the DECLARE statement for syntactical 
errors. The identifiers are separated in 
programmer-defined names and attributes. 
Attributes are coded internally. Parenthe- 
Ses are separated in such that mark factor- 
ization and such that include precisions or 
lists. Some attributes get a special 
treatment (see flow charts IQ-IW). If a 
syntactical error is detected, a NOP state- 
ment followed by an error message is gener- 
ated in the source text. 


Entry parameter: 
PST = address of the first byte to be proc- 
essed. 


Return parameter: 
PST = address of the first byte after the 
end-of-statement key. 


The syntactical scan is performed by 
means of a two-dimensional matrix of 
addresses. Depending on the preceding 
symbol, the routine branches to correspond- 
ing routines at a new symbol (see Figure 
1). The following routines may be called: 


JDE1A1 JDETA4JEODATA1 

JDE1A2 JDE2A1 JSEFA 1 

JDE1A3 JDE2A3  JDCDA1 
Subroutine_JATRA1 -- IX 


This subroutine recognizes the attributes 
and sets the internal representations of 
the attributes into the declaration pool. 


The external representation of all 
attributes is stored in a table (ATTAB). 
After each attribute there is a byte with 
the internal coding. This byte with a 
common attribute key is moved into the 
declaration pool. 


All data attributes have a 1 in the 
first four bits of the internal coding. 


Entry parameter: 
PST — start address of the attribute. 


Return parameters: 

PST = address of the first character after 
the attribute. 

ATKEY + 1 = internal 
attribute. 


coding of the actual 


Subroutine JSIPA1 -- IY 


This subroutine searches for the end of a 
parenthesized expression; all internal 
pairs of parentheses are skipped. 


Entry parameter: 
PST = address of the first left parenthe- 
SiS. 


Return parameters: 

PST = address of the next byte after the 
last right parenthesis. 

HRO = PST old. BYZ = PST new - PST old. 


JTRIA1 -- IZ 


This routine moves information into the 
output buffer and controls the pointer for 
this buffer. If the pointer exceeds the 
Scope of the buffer, the contents of the 
buffer are written on the actual input work 
file. The output is made in the non- 
overlapped mode. 


Entry parameters: 


HR1 = start address of the information to 
be written. 

BYZ = length of the information. 

PIT = next available address in the output 
buffer. 

BUFI = end address of the output buffer. 


POUTI- start address of the output buffer, 


Return parameters: 
PLT = next available address in the output 
buffer 


BYZ = 0. 
HR1 = HR1 old + BYZ old. 
JCVTA1 -- JA 


This routine converts an unpacked decimal 
integer constant to binary representation. 
The decimal number may have up to 9 digits. 


Entry parameters: 
HR1 = start address of the decimal 
constant. 


Return parameters: 


HR1 = value of the converted constant. 
HR2 = number of digits in the decimal con- 
Stant. 
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-— dame w ae ae m A w oe m ae A—— a ee GR R A W Camus GEE EUMD Ge AA A a Gee ame a «nn ee a. qe em ano ÓW ue 


T- | T | =s T 
l T|identi- 1 |left | right | | | AM 
| |fier |number | parenthe- | parenthe- | comma | semicolon| Wo 
| | | [sis |sis | | | 
lS pO 2 {4 | 6 | 8 "110 | 
pal eee ann Hanmi ne Sea [ASA (AAA | d 
[empty or | | o | | | 
| comma | name |structure|factori- |error |error |error | 
| | | [zation | | | | 
| | | |open | | | 
| 018 = 2 l |S = 6 | | | 
|--------- $--------- j--------- ł--------- ł---------ł--------- Yoo 1 
|name or | | | |factori- | | | 
|right |attri- error | dimension] zation |delimiter|end of | 
| parenthe- | bute | | | close | | |statement | 
| Sis | | | | | | | 
| 2|S = 4 | |S = 4 |S = 2 |S = 0 | | 
ļ---------ł--------- oo }---------}---------}+--------- Yoo ł 
| | | | |factori- | | 
|attribute|attribute|error |precision|zation [delimiter|end of | 
| | | |close | |statement | 
| UJS=4 | | IS=2  |S=0 | | 
--------- }---------}--------- 4 ---------}+--------- f+--------- f------—-- 
|left | | |factori- | | | | 
| parenthe- | name | structure|zation lerror lerror |error | 
| sis | | | open | | | | 
| 618=2 | Is=6 | | | | 
I--------- Ricco Liso ii SI duco ur o ee Pr eee ae N j 
|T = next symbol in the source program | 
IS = last symbol in the source program | 
EER LAN a A OT A Mu IL I A a nae et a RE J 
Figure 1. Two-dimensional Matrix of Addresses (SWITAB) 
abo 
ww 
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This phase constructs the symbol table for 
all explicitly declared variables and label 
constants. The input for this phase is the 
declaration pool constructed in phase B15. 


RECE EERE ROZA eriam RZN 


The symbol table consists of n+1 parts, 
where n is the number of blocks in the 
Source program. Each part is attached to 
one block and contains all items declared 
explicitly. The last part contains all 
items declared contextually and implicitly. 
This part is constructed in phases B70 and 
B80. 


The parts of the symbol table are sepa- 
rated from each other by a scope chain 
which contains the number of the embracing 
block. The start addresses of the parts 
are entered in the scope table. If the 
Symbol table is written on a work file, 
each part starts with a new record. The 
first record number of each part is also 
entered in the scope table. 


For each programmer-defined variable or 
label constant an entry of 20 bytes is made 
in the symbol table. The format of this 
entry is shown in Figure 1. The entries 
are used in phase B90 to build the state- 
ment attribute table. 


Scope Table 


An entry of 6 bytes is entered in the scope 
table for each block. The format of this 
entry is as follows: 

Byte 0: Number of records belonging to 

this block. 

Bytes 1-3: NOTE information of the record 
in which the symbol table for 
this block starts. 

Bytes 4-5: If the symbol table is in core 
Storage, relative start address 
of the symbol table for this 
block. 


If a block has no declarations, the 
entry is given the data for the embracing 
block. Since the number of records belong- 
ing to one block is restricted to 255 and 
each record contains the declarations for 
12 variables, the total number of declared 
variables for one block is restricted to 
3060. This restriction is valid only for 
the minimum configuration. If the table 
Space and the buffer area are increased, 
the number of declared variables increases 
at the same rate. 


|Bytes 0 - 1: 
| 
|User-defined name (coded in phase A30) 


o A AA A o!" A A ane AÀ— WA mae auum quM Gum amm amu AUAM qup VE dub GA dua A A NK ede A A A ADO QUE quam RO eee ee GEM R UU, ausus du wm 


|Bytes 2 - 3: 
| 


|Internal representation of the name 


|Bits 0-3: Reserved 


=> 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
l 
| 
I 
| 
| 
| 
| 
| 
| 
! 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
———— ——————————Ó 


[Bits 4-7: Internal length of the variable 
——————Ó—— 
[Byte 5: 

| 

{Bit 0: 1 = STATIC 0 = AUTOMATIC 

[Bit 1: 1 = CONTROLLED 

[Bit 2: 1 = POINTER 

{Bit 3: 1 = EXTERNAL 0 = INTERNAL 

Bit 4: 1 = DEFINED 

Bit 5: 1 = PARAMETER 

[Bit 6: 1 = BUILTIN | 
[Bit 7: 1 = CONSTANT O = variable | 
|Bit 7: 1 = contextual | 
| ENTRY 0 = declared ENTRY| 
|~------------~------~------~------------- 


| 
| 
not a structure element | 
structure element | 
minor structure | 
major structure | 
| 
| 
| 
| 


© 
— 
un uw M 


|If it is a structure, bits 4-7 contain 


[Bit 2 : 1 = PACKED 0 = ALIGNED 

[Bit 3 : 1 = Array 

[Bit 4 : 1= FILE 

[Bit 5 : 1 = LABEL 

[Bit 6 : 1 = ENTRY name 

[Bit 7 : 1 = zoned decimal (T) | 

|~---------------------------------------- ł 

[Byte 7: | 
| 

I 0 : 1 = PICTURE | 

{Bit 1 : 1 = sterling | 

[Bit 2 : 1= arithmetic data | 

[Bit 3 : 1 = string data | 

¡Bit 4 : 1= bit string; | 

| O = character string | 

[Bit 5 : = FIXED; 0 = FLOAT | 

| Bit 6 : 1-7 BINARY; O = DECIMAL | 

{Bit 7 : 1 = zoned decimal | 
| 
| 
| 
J 


{the lefthang. 
ei an II A A PURUS 


Entries in the Symbol Table for 
Programmer-defined Variables and 
Label Constants (Part 1 of 2) 


Figure 1. 
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EN EN PO ETE Re PIE 1 
Non | 
|If string: | 
| | 
|Bits 0-7: length of the string | 
| | 
{if arithmetic: | 
| | 
|scale FLOAT | 
|or FIXED BINARY: bits 0-7: w | 
|scale FIXED DECIMAL: bits 0-3: w | 
| bits 4-7: d | 
l——( 5» 
|Byte 9: | 
| 

[Bits 0-1: block level 

[Bits 2-7: block number | 
PENARE e E 4 
|Byte 10: | 
| | 
|if structure or element of structure: | 
[level number | 
dele A Ue ee 4 
|Byte 11: | 
| | 
lif structure: boundary of the structure | 
lif array : current array number | 
[if FILE : current file number | 
SG z Rad E A IM Lu AE 4 
[Bytes 12-13: | 
| | 
|If array : number of array elements | 
lif structure: length of the structure | 
C HUP AA A 4 
|Bytes 14-15: | 
| | 
|if DEFINED : name of the base variable| 
if BASED : name of the pointer | 
| | 
[if minor structure or structure element | 
| : origin relative to the | 
| major structure | 
eae ne | 1 
[Bytes 16-17: | 
| | 
lif numeric field: offset of the | 
| picture string | 
-—— a ł 
|Byte_18: | 
| | 
Jif numeric field: length of the data | 
}------------- RE 1 


| Number of actual block (only for checking| 
lentry names in phases B30 and B40. It | 
unas not appear in the attribute table). | 


Figure 1. Entries in the Symbol Table for 


Programmer-defined Variables and 
Label Constants (Part 2 of 2) 
Mask Table MSKTAB 
For each PL/I attribute, the mask table 
contains a mask of 8 bytes. Each mask is 
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divided into two parts. The first part 
declares which bits in the symbol table are 
to be set on or off if a variable is 
declared with some attribute. The second 
part is used to check conflicting attri- 
butes. It contains a 1 in each position 
where a specific attribute may not appear. 


The mask-table is used as follows: The 
corresponding mask of an attribute is put 
together with all other masks of the attri- 
butes previously declared for the same 
variable. The first part of a mask is put 
together by an OR instruction in register 
R1, the second part in register R2. If the 
declaration of a variable is complete, 
i.e., if all given attributes are composed, 
the mask parts in R1 and R2 are 'anded'. 

The result is 0 if no conflicting attri- 
butes have occurred. 


The format of the mask table is shown in 
Figure 2. The masks are shown in hexadeci- 
mal notation. 


Treatment of Errors in Variable 
Declarations 


If an error occurs in a declaration, it is 
treated in the following manner: 


1. The name is given the value 00 as 
internal representation. 


2. If the name in the source text is 
replaced by the internal representation 
(see phase B80), all statements in 
which the name occurs are flagged. 


3. The name gets an error message in the 
symbol table listing (see phase C00). 
This message is entered in byte 11 of 
the symbol table. 


DESCRIPTION OF ROUTINES 


JSCOA1 -- KC 

This routine processes the block heading. 
It is called if a new part of the symbol 
table is opened. In the declaration pool, 
constructed in phase B15, all declarations 
belonging to one block are collected in a 
group. Each group starts with a new record 
and may contain more than one record. At 
the beginning of each group, there are four 
bytes containing the following information: 


byte 0: block number 

byte 1: block level 

byte 2: block number of the embracing block 
byte 3: mark if the record is the last of 


the group. 
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[^ qp penc | iced GÓG MI M ey ee 1 
ME | z 
| | [|Attribute |First Part |Second Part] 
pa po ope pepe TO | 
| 0O[|00|parameter |00]04|00]00]| 01] 9A] 00] 00 
| 8|01|FILE [00|00[08[00[01]|EA|F6|FF| 
| 16/02|INITIAL [01/[00[00|00]|00]| 6E| CE] 00| 
| 24|03|DEFINED [00[08|[00[00[01[D6|0E|00| 
| 32/04 |dimension |00|00]10[00]00[02] 8Aj00| 
| 40|[05|CONTROLLED|00|40|00[00[01|AA[08|00]| 
| 48|06|POINTER [00|20/00|00[00|42]|2C]|FF | 
| 56|07|colon [00[|[01[00/[00[00[|00/|3300| 
| 64|08|LABEL [00(00|[04[(00[011[2A]|AA|FF| 
| 72|09|PICTURE [00|[00[00|[80|00/|22]|8C| 08] 
| 80|0A|ALIGNED [00|[00[00[00[00[22]|25E|E7| 
| 88|0B|ENTRY [00[00[02[00|01|4A|FC|[00| 
| 96|0C|BUILTIN [00102]00[00[01|FC|FD|FF| 
[104|0D|INTERNAL ]100/|00/[00,|00/|00[16/|08100| 
[112|0E|EXTERNAL ]100/[10/[00[00100/|06/[00]|00| 
| 120 |0F | PACKED [00|[00[20[00[|00/[|22][|OE|E7| 
| 128|FO| BINARY [00[00|00[22|00[22[0C|[58| 
| 136|F1|DECIMAL [00|00[00|20/|00/|22/|0C|14A| 
| 144|F2|FIXED ¡00|00|00/|24|00|22/0C|18] 
| 152|F3|FLOAT [00|[00[00|20/|00/|22/|0C|5C| 
[160/F4|BIT ¡[00/00/00/18|00|22|0C|E7| 
[168|F5|CHARACTER |00[00/|00/|10/|00/|22[|0C[6F| 
{176|16|STATIC ¡00/80/00|00/00/|4E/08|00| 
[184] 17 | AUTOMATIC [|00|00|00|00|01|DE/|08|00| 
[192]18|precision |02|00/00/00/00/00/00]/00] 
[200|19 [ERROR [10]00[00|[00|FF|FF|FF|FF| 
[208|1A|null [00|00/[00[00/[00[|00/|00]|00| 
[216|1B| ZONED [00[00[00[01[00[22[8C]18| 
[224|1C|ZONED (T) (¡00/00/01/00|00/|22[8C]/|18] 
[232] 1D| STERLING ([00|00|00|¡Cc0|00|22/8C]18] 
|240|1E|major RE R EE FB SW SE OE cd 
| | [structure |00[00|CO|[00[01[02|1E|FF| 
|248|1F|minor EE. © © £ i BBE 4 
| | [structure |00[00[80|00|]01|F2|7E|FF| 
[256|20|element of| | | | | | | I | 
| | ¡structure |00|00|40|00[00|D2[A8|00| 
| | [arithmetic|00|]00|00]20| | | 
| | |erase data] | | IL d! |d | 
| | |attribute |FD|DF|F0f00| | | | | 
| | |precision |02|00|00]00| | | | | 
AR A EA A PR OS E [d AN E A O 


Figure 2. Format of Mask Table 
These four bytes are stored in an inter- 
mediate storage SSCOPE. 


The actual position of the pointer PST 
pointing to the symbol table is entered 
into the scope table. 


Abbreviations: 

PARAM = parameter-list key (1 byte) 
PARZ = counter for parameters (2 bytes) 
LAREC = key for last record (1 byte) 
EOREC = end-of-record key (3 bytes) 
JLABA1 -- KE 


This routine processes the statement-label 
constants and the entry names. 


A statement label has the form: 


Identifier 
Colon 


(3 bytes) 
(1 byte) 


An entry name has the form: 


Identifier 
Attribute ENTRY 


(3 bytes) 
(2 bytes) 


Optional data attributes: 


EOS key (6 bytes) 


JDCLA1 -- KF 


Secondary entry points: JDCLD2, JDCLK2 

This routine processes the DECLARE state- 
ment. Since attributes may be nested, a 
DECLARE statement is first scanned to the 
EOS key. At this time an intermediate 
table AHSTAB is constructed. The data is 
entered starting at the end of the table in 
range of its appearance. 


The following information may appear: 


1. User-defined names: 
Starting with the identifier key, 
length 3 bytes. Processing: (see Sub- 


routine JNAMA 1). 


2. Structure level: 
Starting with a number, length up to 3 
bytes. Processing: The integer is 
converted from decimal to binary and 
saved in a current level storage. 


3. Attributes: 
Starting with an attribute key, length 
2 bytes. Processing: The two bytes are 
entered into AHSTAB. 


4. Precision: 
Starting with a left parenthesis. 
Processing: The precision is converted 
and entered into AHSTAB (see JPREA!). 


5. Left parenthesis: 
Special key, length 1 byte. Process- 
ing: A parenthesis counter is 
increased. The current level is stored 
in the internal buffer LEVPDS. The key 
is entered into AHSTAB. 


6. Right parenthesis: 
Special key, length 1 byte. Process- 
ing: The parenthesis counter is 
decreased. The key is entered into 
AHSTAB. 


7. Comma: 
Special key, length 1 byte. Process- 
ing: The actual level is reloaded from 
the internal buffer. 
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8. End of statement: 
Starting with an EOS key, length 6 
bytes. Processing: See JATAA1. 


JSATA1 -- KH 


This routine scans the attributes. Normal- 
ly, only the attributes are entered into 
AHSTAB; however, some attributes are given 
a Special treatment: 


1. ARRAY: code X'04*" 
Four bytes following the attribute are 
entered in AHSTAB. 


2. FILE: code X'01' 
One byte following the attribute is 
entered in AHSTAB. 


3. PICTURE: code x'09' 
Nine bytes following the attribute are 
entered in AHSTAB. 


4. CONTROLLED: code X'05' 
Five bytes following the attribute are 
entered in AHSTAB. 


5. DEFINED: code X'03' 
Three bytes following the attribute are 
entered in AHSTAB. 


JPREA1 -- KI 


This routine converts the precision given 
in the source text to a 2-byte form and 
stores it in the intermediate table AHSTAB. 


A precision has one of the following 
forms: 


(w) or (s) or (S,d) 


where w, S, and d are unsigned decimal 
integer constants having the following 
range of values: 


1<sws 255, 0<s, ds 15. 


The result of the conversion has the 
following form: 


Byte 0: precision key 
Byte 1: binary value of the precision. 


The last bit of the key (byte 0) 
declares the form of the precision. 
form is (w) or (s), the bit = 0. If the 
form is (s,d), the bit = 1. 


Entry parameter: 

PIN = address of the left parenthesis of 
the precision. 

Return parameter: 


PIN = address of the byte after the right 
parenthesis. 
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If the 


JATAA1 -~ KJ - KN 


This routine processes the intermediate 
table AHSTAB and generates the symbol table 
SYMTAB. The items which may be entered in 
AHSTAB and their processing are described 
below. 


1. Attributes 


Representation: 2 bytes 
byte 0 = attribute key 
byte 1 = specification 


Byte 1 addresses an entry in a mask 
table MSKTAB (see Figure 2 in phase 
B20). Parts 1 and 2 of the mask are 
taken from MSKTAB and added with an OR 
instruction to the already existing 
information in registers 1 and 2. 


Some attributes get additional treat- 
ment. 


a. Dimension 


Representation: additional 4 bytes 
byte 2 = reserved 
byte 3 = current array number 


bytes 4-5 number of array 


elements 


Bytes 3-5 are stored in a special 


location. 

b. FILE 
Representation: additional 1 byte 
byte 2 = current file number 


Byte 2 is stored in a special loca- 
tion. 


Cs PICTURE 


Representation: additional 9 bytes 

byte 2 = left parenthesis 

byte 3 = binary length of data 

byte 4 = right parenthesis 

byte 5 = string constant key 

bytes 6-7 = offset of the string 
constant 

byte 8 = string constant key 

bytes 9-10= length of the string 


constant 


Bytes 3, 6 7, and 10 are stored in 
a Special location. 


d. CONTROLLED 


Representation: additional 5 bytes 

byte 2 = left parenthesis 

byte 3 = identifier key 

bytes 4-5 = name of the pointer 
coded in phase A30 

byte 6 = right parenthesis 
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Bytes 4 and 5 are stored in a spe- 
Cial location. 


e. DEFINED 


Representation: additional 3 bytes 


byte 2 
bytes 3-1 


identifier key 
name of the base 
variable 


Bytes 3 and U are stored in special 





location. 
2. Precision 
Representation: additional 2 bytes 


byprecision key 
byprecision in binary 
form 


There are two different keys. If 
the precision is of the form (w), 
bit 7 of the key is 0. If the form 
ys: (540), bit: 7 is Ta 


3. Name 
Representation: additional ! bytes 


byte 0 = identifier key 
bytes 1-2 = user-defined name 
coded in phase A30 
current structure 
level 1. 


byte 3 


First, if necessary, the default attri- 
butes are added in routine JDFAA1. A 
test on conflicting attributes follows. 
If there are no conflicts, the entry in 
the symbol table is constructed. 
Finally, registers 1 and 2 are reloaded 
from the internal buffer. 


4, Right parenthesis: 
Representation: 1 byte 


A parenthesis counter is increased and 
the contents of registers 1 and 2 are 
moved into the internal buffer. 


5. Left parenthesis: 


Representation: 1 byte 


The parenthesis counter is decreased 
and the contents of registers 1 and 2 
are restored from the internal buffer. 


At points 4 and 5, the functions of the 
right and left parenthesis are reversed, 
because construction of AHSTAB in routine 
JDCLA1 begins at the bottom of the table 
and the processing sequence is inverted. 


Entry parameter: 
PAHS = address of the first byte in AHSTAB 
to be processed. 


JTRLA1 -- KO 


This routine processes the block trailing. 
It is called if a part of the symbol table 
is closed. 


If the end of a group in the declaration 
pool is reached, 4 bytes are moved into the 
symbol table. The first 2 bytes get a mark 
specifying the end of the part. The second 
2 bytes contain the number of the embracing 
block. 


If the source text contains file dec- 
larations, or if a table overflow occurs, 
the part of the symbol table is written on 
a work file. 


Abbreviations used in this routine: 


PST = Pointer symbol table 

IJKMTS = Start address of table area 

SWTOV = Switch table overflow 

IJKMBC = Block counter 

SSCOPE = Storage for scope information 

BSCOPE = Scope chain l 

TTEXT = Relative TABTAB entry for external 
table 

SCOTAB = Start address of scope table 

IJKMTT = Start address of master table 
TABTAB. 

Subroutine JNAMA1 -- KP 


This subroutine moves the user-defined name 
and the current level number into AHSTAB. 
If no structure level is given, zero is 
inserted. 


Entry parameter: 
PIN = start address of the name. 


Return parameter: 
PIN new = PIN old + 3. 


Note: The total number of names declared 
in one DECLARE statement is restricted to 
65. This restriction is valid for the 
minimum machine configuration. If the 
table space is increased by 20 bytes, the 
number is increased by 1 name. 


Subroutine JAHSA1 -- KQ 





This subroutine transfers information to an 
intermediate table AHSTAB and controls the 
pointer PAT for this table. 


The table is built in the buffer area 
and uses three buffers. Construction of 
the table starts at the end. 


Since a DECLARE statement cannot be 
longer than three buffers and the AHSTAB 
cannot contain more than one statement, an 
overflow cannot occur. 
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Entry parameters: SCOTAB+4 

PIN = start address of the information to SCOTAB+2 
be transferred. 

BYZ = number of bytes 


relative start address of a part ~ 
relative end address of a part (f ^ 


If the symbol table is written, each 


Return parameter: part starts with a new record. The follow- 
PIN new - PIN old * BYZ. ing information is moved into the scope 
table: 


Subroutine JPCOA1 -- KR 


This subroutine controls the input pointer SCOTAB+0 = number of records belonging to 
PIN and inserts a new record in the dec- this part (1 byte). 
laration pool, if necessary. SCOTAB*1 - record identification for the 


record (3 bytes) 
00 (2 bytes) 


Generally, it is possible to process the SCOTAB+4 
information sequentially. But because 
identifiers or correlated expressions must 
not be divided by the buffer end, two input JCWIA1 -- KT 
buffers are used. When pointer PIN reaches | 


the second buffer, the contents of the This routine converts an unpacked decimal 
second input buffer are moved into the integer constant to binary representation. 
first and a new record is read. The decimal number may have up to 9 digits. 
JPUTA1 -- KS 


Entry parameter: 
The routine writes the symbol table. It is PIN = start address of the decimal con- 
called if a table overflow occurs or if the stant. 
current source text contains a file dec- 
laration. The symbol table is divided into Return parameters: 


parts. Each part contains all declarations HR1 = value of the converted constant. 
given for one block of the source program. HR2 = number of digits of the decimal con- 
stant. 
The scope table SCOTAB contains an entry PIN = address of the first byte after the nisz 
for each part. | decimal constant. (0 
e 
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This phase has the following functions: 


l. to perform the syntactical scan of the 
file declarations; 


2. to test the file declarations for con- 
flicting or missing attributes and 
options; 


3. to build up the file table FILTAB and 
to replace the file declaration state- 
ments by NOP statements. 


Notes: Phase B25 is skipped if there are 
no file declarations in the source program. 
The information required to point to the 
third record of NAMTAB has been stored in 
IJKMIP+4 in phase A30. The internal name 
of the first file has been stored in IJKMIP 
in phase B20. 


Phase Input and Output 


The input is a string of 3-byte elements 
and/or elements of variable length. 


The file declaration statements have the 
following format: 


mna eR GRAM em qmm mem oe ee coe m — cee Qe e an ————— o Y — < au — ome 


where FSK file statement key = X'E00043' 


(3 bytes) 


VN = variable name (3 bytes) 
CFN = current file number (3 bytes) 
EOS = end-of-statement key (6 bytes) 


The output differs from the input only 
in that the file declaration statements 
have been replaced by NOP statements. 


The File Table 


This table (FILTAB;ZTABO3) is written on 
SYS001 (recordsize = length of one entry = 
20 bytes). Each entry has the format shown 
in Figure 1. 


PHASE PL/IB25 (FILE DECLARATIONS) -- L$ 


}--~-- Yo -~ ł 
| 0-1|internal name | 
H----- ł------- Po 1 
| 2 | bit 0|1 = RECORD, 0 = STREAM | 
| | bit 1/1 = INPUT | 
| | bit 2/[|1 = OUTPUT | 
| | bit 3|1 = UPDATE | 
| | bit 4]1 = PRINT | 
| | bit 5]1 = STREAM | 
| | bit 6/1 = KEYED | 
| | bit 7|1 = BACKWARDS | 
ER fee ee aa ee ee ee Sees 
t 3 | bit 0|1 = DIRECT, 0 = SEQUENTIAL | 
| | bit 1]1 = CONSECUTIVE | 
| bit 2|1 = REGIONAL (1) | 
| | bit 3|1 = REGIONAL (3) | 
| | bitü-6| not used | 
| | bit 7|1 = UNBUFFERED, | 
| | |0 = BUFFERED | 
[----- Y nnn nnn ł 
| 4 | bit O|1 = KEYLENGTH | 
| | bit 1/11 =F | 
| | bit 2|1 =V | 
| | bit 3|1 = U | 
| | bit 4[1 = BUFFERS (2) | 
| | |0 = BUFFERS (1) | 
| | bit 5|1 = LEAVE | 
| | bit 6|1 = NOLABEL | 
| | bit 7]|1 = VERIFY | 
I----- }------- o A AA A ł 
| 5 |keylength | 
}----- PA AC ł 
| 6 |000 - 244 = SYSOO0 - SYS244 | 
| | 251 = SYSIPT | 
| | 252 = SYSLST | 
| | 253 = SYSPCH | 
po }----------------------------------- { 
| 7 |X'10' = 2540 (card reader or punch) | 
| |X'11' = 1442 (card reader or punch) | 
| IX'12' = 2520 (card reader or punch) | 
| {X*13° = 2501 (card reader) | 
| |X'20' = 1403 (printer) | 
| |x'21" = 1404 (printer) 

| [X'22' = 1443 (printer) 

| [X'23' = 1445 (printer) | 
| |X'40' = 2400 (tape) | 
| [X'80' = 2311 (disk) | 
faa p nnn nnn nnn nnn nnn nn 1 
| 8- 9|blocksize ] 
|10-11|recordsize | 
AMEN Eos used | 
AMAS AAA II A Ve LS J 


Figure 1. Format of File Table Entries 
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To scan the file declarations for con- 
flicting attributes and options, every 
attribute is assigned to a bit position of 
a bit string of 32 bits. The mapping is 
identical to bytes 2-4 of the file table. 
The last byte contains the following: 


bit 0 : 1 = F with recordsize 
bit 1 : 1 = card reader or punch 
bit 2 : 1 = printer 

bit 3 : 1 = tape 

bit 4 : 1 = disk 

bit 5 3 not used 

bit 6 : 1 = ENVIRONMENT 

bit 7 : 1 = MEDIUM 


In addition, every attribute and option 
is assigned to a bit string consisting of 
two substrings of 32 bits. In the first 
substring, all bits except that of the 
characteristic bit position, which may be 0 
or 1, are zero. In the second bit string, 
a bit is set to 1 only if it is the charac- 
teristic bit position of a conflicting 
attribute or option. All the bit strings 
of attributes and options appearing in the 
file declaration are OR-ed. 


If the logical product (AND) of the 
resulting two substrings is # 0, the file 
declaration contains conflicting attributes 
and/or options. Conflicts in attributes 
and/or options are illustrated in Figure 2 
(X means conflict). 


Errors 


Errors found in this phase may cause one of 
the error messages 188-216. For the indi- 
vidual messages, refer to the SRL publica- 
tion IBM System/360, Disk and Tape Operat- 
ing Systems, PL/I Programmer's Guide, Form 
C24-9005. 


The name of a file is set to 0 in the 
file table if the corresponding file dec- 
laration contains an error of the severity 
T. Statements in which incorrect file 
names occur are not flagged. 


Initialization -- LA 

This is the beginning of the main routine. 
It initializes pointers, switches, etc., 
and reads input text into 4 buffers. 

FSCN -- LB 

This is part of the main routine. It per- 


forms the general scan over the source 
text. 


Note: A file declaration statement is not 


preceded by any label. 
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FFIL -- LC 


This is part of the main routine. It scans 
the file-declaration statement for accepta- 
ble attributes by means of an attribute 
table that has the following format: 


where K - last two bytes of the 3-byte key 
the keyword is represented by; 


B = bit string (see the section The 
File Table). 


The table is terminated by X'FF'. When 
the routine is entered, the general reg- 
isters R4 and R5 are cleared. They are 
then OR-ed with every bit string of a file 
attribute found in the statement. Any 
element that is not a file attribute is 
ignored.  FERR is called to note error 
message 189. If the ENVIRONMENT attribute 
is found, control is passed to FENV. 
Reaching the EOS key causes control to be 
transferred to FFIT. 


FENV ==. DD 


This is part of the main routine. It scans 
the options of the ENVIRONMENT attribute by 
means of an options table that has the 
following format: 


CZES eme có — ae — — À—À dum atn mpi dnas emu AAA MD m t NS | 


where K = last two bytes of the 3-byte key 
the keyword is represented by: 


A = address relative to FENV of the 
routine processing the option, 
LE 


FBUF for BUFFERS 
FMED for MEDIUM 
FFIX for F 

FUVN for U/V 

FREG for REGIONAL 
FKEL for KEYLENGTH 


B = bitstring (see the section The 
File Table). 


The table is terminated by X'FF'. 


The bit strings of the option found are 
OR-ed into general registers R4 and R5. 
Then control is transferred to one of the 
abovementioned routines. Any element that 
is not an option found before reaching the 
right parenthesis of the ENVIRONMENT attri- 
bute is ignored.  FERR is called to note 
error message 189, and control is trans- 
ferred to FNOP to bypass a possibly follow- 
ing specification, e.g., (14). 
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Figure 2. Conflicting File Attributes and Options 
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FSPE -- LE 
Secondary entry points: FSPE02, FSPEQ3 


This subroutine performs the syntactical 
Scan of the options that must be followed 
by an integer enclosed in parentheses, 
e.g., KEYLENGTH (10). The integer is con- 
verted to binary and returned in general 
register R3. 


If the option is not followed by a left 
parenthesis and a decimal digit, the rou- 
tine returns false to (LINK), otherwise 
true to 4 (LINK). 


FINT -- LF 


Input parameter: 
PIN: points to the first digit of the deci- 
mal integer to be converted to binary. 


Output parameters: 

R3: converted integer. 

PIN: points to the first byte following the 
integer. 


This subroutine converts a decimal inte- 
ger to binary. If the integer consists of 
more than 9 decimal digits, R3 is set to 
32,768 = maximum blocklength + 1. 


FBUF -- LG 


This is part of the main routine. It scans 
the BUFFERS option and OR-es the bit 


strings of BUFFERS(1) or BUFFERS (2) into R4 
and R5. 

FMED -- LK 

This is part of the main routine. It scans 


the MEDIUM option and inserts the number of 
the logical device and the key for the 
physical device type into the file table. 


FSYS -- LL 


Input parameters: 

PIN : points to the 3-byte key the logical 
device name has been replaced by. 

RSTNAM: number of a name table record that 
has already been read into storage 
(initialized with 0). 


Output parameters: 

PIN : = PIN+3. 

R1: points to the name-table entry of the 
logical device name. 


This subroutine retrieves the logical 
device name from the name table. 
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FPDT -- LM 


This subroutine tests the number specified 
for the physical device type and inserts 
the respective device code into the file 
table. It OR-es the corresponding bit 
strings into R4 and R5. 


FBLO -- LN 


Secondary entry point: FBLOO2 

This subroutine checks whether the block- 
size specification is greater than 32,767 
and inserts it into the file table if it is 
less or equal. 


FFIX -- LO 


This is part of the main routine. It scans 
the F option and OR-es the corresponding 
bit strings into R4 and R5 if blocksize and 
recordsize are specified. 


FUVN -- LP 


This is part of the main routine. It calls 
FBLO to test the blocksize specification of 
the U or V option. 


FREG -- LO 


This is part of the main routine. It scans 
the REGIONAL option and OR-es the corres- 
ponding bit strings into R4 and R5 if 
REGIONAL (1) or REGIONAL (3) is specified. 


FKEL -- LR 


This is part of the main routine. It 
checks whether the KEYLENGTH specification 
is greater than 255 and inserts it into the 
file table if it is less or equal. It 
inserts 255 if it is high and notes error 
message 194. 


FNOP -- LS 


Input parameter: 
OLP : number of open left parentheses. 


This is part of the main routine. It 
searches for right parenthesis (if OLP # 0) 
to transfer control to FENV10. 


If the end-of-statement key is found before 
a right parenthesis is detected, control is 
transferred to FFIT. 


FFIT -- LT, LU, LV, LW, LX 


This is part of the main routine. It adds 
default attributes or options, if neces- 
sary, and builds up bytes 2-4 of the file 
table. It tests for; 


1. conflicting attributes or options by 
forming the logical product of R4 and 
R5; 
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2. missing attributes or options; 


3. conflicts that cannot be detected by 
the general method; 


4. unpermitted combinations of function 
attributes or physical devices with 
logical system units; 


5.  blocksize specifications that are out- 
Side of device depending limits or 
incompatible to the rules concerning 
division by recordsize or 8, respective 
ly. 


At the end of the routine, FEOS is 
called. 


FERR - LY 


Input parameter: 
RO : error number 


This subroutine inserts the error number 
into the error table. After seven numbers 
have been inserted, error 215 with the 
Severity code T is noted as 8th error. The 
end of statement is searched for, and con- 
trol is transferred to FEOS. 


FEOS -- LZ 


This is part of the main routine. It 

inserts the file name into the file table 
and writes the table on SYS001. If errors 
of the severity code T have been detected, 


the file name is set to 0. A NOP key is 
moved into the output buffer for the file 
declaration. Control is then transferred 
to FSCN35 to continue the general scan. 


JEOS -- L1 


This subroutine positions the contents of 
input buffers 1-4 so that the currently 
Scanned EOS is in input buffer 1 (this is 
done by moving and by reading in new 
records). It puts out the EOS and the 
error codes attached to it. If additional 
error codes have been generated, they are 
also put out. 


JTRN -- L2 


Input parameters: 

PIN : pointer of source text. 

POUT : pointer of output buffer. 
BYZ : number of bytes to be moved. 


Output parameters: 

PIN : - PIN * BYZ. 

POUT: address of next free byte within the 
output buffer. 


If not all the bytes to be moved fit into 
the output buffer or if they do exactly 
fit, the buffer is filled with the first 
part of the text to be moved. The buffer 
contents are written on a work file and the 
remaining bytes, if any, are moved to the 
begin of the buffer. 
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PHASE PL/IB30 (SYMBOL TABLE CONSTRUCTION II) -- MA 


This phase checks the symbol table con- 
structed by phase B20. Each variable in 
the symbol table is tested for multideclar- 
ation. 


Secondary entries in function procedures 
are tested to determine if they have the 
same attributes for return values as the 
main entry. 


If the attribute CONTROLLED or DEFINED 
is given, the internal representation of 
the pointer variable or base variable, 
respectively, is set into the symbol table. 


DESCRIPTION OF ROUTINES 


Note: The routines JTRNA1 and MOVEA! are 
described in phase A50. The corresponding 
flow charts are F3 and FO. 





Initialization -- MB 


Phase B20 constructs the scope table SCOTAB 
(see phase B20). 


If the source program has no file dec- 
larations, i.e., if phase B25 is skipped, 
phase B20 leaves the scope table in the 
buffer area IJKMBS. Otherwise, the scope 
table is written onto a work file. 


JRSTA1 -- MC 


Secondary entry point: JRSTD2 

Phase B20 has constructed the first version 
of the symbol table. If no symbol table 
overflow occurred, the symbol table is 
still in storage and the routine only ini- 
tializes the pointer PST with the start 
address of that part of the symbol table 
that belongs to the block to be processed. 
Otherwise, this routine reads in part of 
the symbol table and loads the start 
address into PST. 


Entry parameters: 


BLZ = number of block to be processed 
SCOTAB = scope table (see phase B20) 
Return parameter: 

PST = symbol table start address 
JCSTA1 -- ME 


This routine checks the symbol table. Ifa 
variable has the attribute CONTROLLED or 
DEFINED, the internal representation of the 
pointer variable or base variable, respec- 
tively, is moved into the symbol table. 
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For testing multi-declaration, each 
entry of the symbol table is compared with 
all other entries belonging to one block of 
the source text. Multi-declaration is 
given if two entries have the same name. 

In this way the internal representation of 
the pointer or base variable is set into 
the entry of the CONTROLLED variable and/or 
DEFINED variable, if both entries are in 
the table area at the same time. 


This is done in the following manner: 
Assume the variable compared with all oth- 
ers is named A. The other is named B. If 
B has the attribute CONTROLLED, it is det- 
ermined if A is the corresponding pointer. 
This is possible if the pointer is declared 
in the same block earlier than the con- 
trolled variable and the part of the symbol 
table belonging to this block is not longer 
than the table area. In this case, the 
internal representation is moved in and the 
movement is marked by a special bit. In 
the other case, if A has the attribute 
CONTROLLED and the entry is not marked, the 
pointer is searched by reading the symbol 
table for the current and the embracing 
blocks successively in a special area (in 
routine JSPOA1). 


Entry parameters: 


PST = address of the actual entry in the 


symbol table. 
HR4 = number of records in the table area 
which have not yet been read. 


JNSTA1 -- MF 

This routine reads the next record of the 
symbol table if the whole table belonging 
to one block of the source text is not in 
the table area. 


Entry parameters: . 

HR1 = address of the actual variable B (see 

Routine JCSTA1, Phase B30). 

GRADR = limiting address of the area con- 
taining the symbol table. 

NOTES = note information for the first 
record not yet read. 

HR4 = number of records not yet read. 


Return parameter: 

HR1 = address of the next variable B. 
Subroutine JSPOA1 -- MG 

This subroutine searches for the pointer 
variable or base variable if they are not 


declared in the same block and earlier than 
the CONTROLLED or DEFINED variable, or if a 
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table overflow occurs due to the number of 
declarations. 


Entry parameter: 
PST = address of variable A 
JCST). 


Vas A c A CE ctt AAA 


JMDCA1 -- MH 

This routine checks for multi-declaration. 
This is given if two or more identical 
names appear in one block. An exception 
from this rule is qualified names. It is 
possible for a name to refer to more than 
one Variable or data aggregate if the iden- 
tically named items are parts of different 
Structures. In order to avoid any ambigui- 
ty in referring to these identically named 


items, it is necessary to create a unique 
name. This is done by forming a qualified 
name. This means that the name common to 


more than one item is preceded by the name 
of the structure in which it is contained. 
Ihis, in turn, can be preceded by the name 
of the structure in which it is declared, 
and so on. Multiple declaration for quali- 
fied names is given if they have identical 
qualifications. The qualification for the 
first name compared is made in routine 
JQULA1 and stored in area QUALF1. For the 
second name, the qualification is stored in 
OUALF2. 


Entry parameters: 
PST = address of the first name compared. 
HR; = address of the second name. 


JCHEA1 -- MI 


Secondary entry point: JCHED1 


This routine checks the ENTRY attribute. 





The first entry name in the outermost pro- 
cedure has the block level 0. All secon- 
dary entry names have level 1. 


JOULAT1 -- MJ 


This routine assigns qualifications to 
Structure items (see Routine JMDCA1). 


A test is performed to determine if all 
bit string data contained in the data 
aggregates, i.e., arrays or structures, 
have the attribute ALIGNED. 


Entry parameter: 
PST = address of the name to be qualified. 


Return parameter: 
QUALF1 = qualification. 


Secondary entry point: JCCBB2 


This routine checks the base identifier and 
changes the name of the base identifier or 
pointer into the internal representation. 
The program has two entries: 


Entry parameters: 
Main entry: 


HR 1 address of the defined identifier 
PST address of the base identifier 


Secondary entry: 
PST = address of the defined identifier 
HR1 = address of the base identifier 


Return parameters: 


HR1 - unchanged. PST - unchanged. 
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PHASE PL/IB40 (STRUCTURE MAPPING) -- MZ 


This phase calculates the storage require- 
ments of structures. This calculation is 
referred to as structure mapping. 


A structure is a data aggregate contain- 
ing items of different types that are 
grouped in a given order and in such a way 
that the overall storage requirement is a 
minimum. The individual structure items 
have different and independent requirements 
of length and positioning with respect to 
hardware boundaries. 


Each element of a structure has three 
mapping parameters: the alignment A, the 
length L, and the lefthang H. The values 
of the parameters depend on the declaration 
of the structure as shown in Figure 1. The 
alignment is identical to the hardware 
boundary requirement of the respective 
Structure element. In DOS/TOS PL/I, there 
are three possible alignments levels: 1 
byte boundary, 4 = word boundary, and 8 
double-word boundary. The length is the 
length in bytes of the element. Data items 
are stored right-adjusted to their bounda- 
ry. This implies the use of a third pro- 
perty: the lefthang. The lefthang is the 
number of bytes of an element (or a combi- 
nation of elements) that are to the left of 
the alignment point of that element. 


ucc cum e eme INNY E SE: sd eere A! 
|Data type [A] L |] 
--————--—------------- $-}------=--------=4 
|Numeric field | 1] n [Ol 
|Float decimal short |4| 4 {Ol 
|Float decimal long | 8| 8 | 0| 
[Float binary short 14] 4 10] 
|Float binary long |8] 8 [0 
|Fixed binary | 4| 4 10] 
|Fixed decimal numeric| | | | 
| Field | 1] n | 0| 
|Fixed decimal (p, a) |1|Floor ((p+2)/2) 10] 
|Bit string |1|2eil  (n/8) | O| 
|Character string | 1| n 10] 
| Pointer | 4| 3 13] 
| Label variable pu] 8 O] 
A E e id A AAA 1_J 


Figure 1. A, L, and H for Structure Items 


Assume the following Structure: 


EET 

2 S1 CHARACTER (5), 
2 S2 FLOAT (16), 

2 S3 CHARACTER (2); 
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Figure 2 then shows the relationship 
between A, L, and H after the structure has 
been mapped. 


| | 

| &------------ L-----------—-— > | 

| | | 

| <----H---->| 

| | 

| | 

pones eese eese cine qp 

| S 1 | S2 153] 

Lo }------------ ł--t--- | 
p € >| <---A---->| 
| | | 

alignment alignment alignment 
point point point 


Figure 2. Relationship between A, L, and H 


after Mapping of a Structure 


Figure 2 shows that L is independent of 


A and H, The value of A has two meanings: 
1. The actual storage address of the byte po 
immediately to the right of an align- Ns 


ment point must be divisible 


by A; 


(boundar y) 


2. The number of bytes between two align- 
ments points (a boundary interval) is 
equal to A. 


The value of H is made unambiguous by 
the condition 


O <H <A 


To completely map a structure, all minor 
structures, if any, that contain only elem- 
entary items or arrays must be mapped 
first. (Refer also to the discussion of 
Structure mapping in the DOS/TOS PL/I 
Programmer's Guide.) The mapping begins 
with the first (leftmost) element, whose 
mapping parameters are taken from Figure 1. 
The next element is appended to the right. 
Assume that the mapping parameters of the 
left and the right element are Aq, La, Ha 
and Az, L2, Ha, respectively (see Figure 3, 
Step 1). Different situations will then 
occur depending on the relationship between 
the two sets of mapping parameters, and a 
resulting set of parameters Aa, L3, H3 is 
generated that describes the mapping of the 
two elements as one compound item. 
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DECLARE 1 M, 
2 


` 


POINTER, 
BINARY FIXED (31) 
BIT (16) 


`» 


CHARACTER (3), 
DECIMAL FLOAT (16), 
CHARACTER (3); 


ść 
WWW www SG 
tN < X 


R CH 


Step 1. Mapping of the individual minor structures V and W results in: 
H.„=3, A 78: L 714 


H, 7-3, =4 =9 
y 
EN E EZ $ A E A ESA WE 
O 8 12 O 4 A 16 
The new alignment requirement of M (V and W mapped together) is: 


A MAX (A/A) "MAX (4,8)=8 An = 8 


Step 2. To map V and W, V is put to the left of W at A = 8. Since only the alignment boundary 

———— and not the actual storage position is examinel, the actual location in storage is of 
no interest as long as the boundary requirements are observed. In the following example, 
A, is assumed to be at byte 8 and A, at byte 32. 





H =H -~ R modulo A =3-12+28 = 7 H = 7 
m V m m 
PAD, = PAD - R= 15-12 = 3 

( em Ly + PAD, + L = 9 +14+ 3 = 26 La = 26 





Step 3. This results in the following structure map for M: 


y 
G3 PP G ILLA vit the parameter set 
O O A 32 40 44 An = 8 


H = 7 
m 
En = 26 
Figure 3. Structure Mapping Example 
1. Since items with lower boundary where PAD is in the region 
requirements can also be aligned at a 
higher boundary, but not vice versa, 
the following formula applies: O € PAD < As 
S| | | 
Az = MAX (A4 ,A2) poo ooo $---7----------- | 
| B ps | C | 
2. It may happen that the two items so p[--------------- ]-2--4----------- 1 
mapped are not contiguous, e.g., | | | 
A=4 A A 
1%, 
2 B BINARY FIXED, Figure 4. Inclusion of a Slack Byte S 


2 C POINTER; 
3. If padding, i.e., inclusion of slack 





In this case, there is a slack byte S bytes, becomes necessary and Ay is less 
between B and C (see Figure 1). The than A2, padding can possibly be minim- 
area occupied by the slack byte must ized by moving the left element to the 
then be added to the resulting length right as close as possible to the right 
La: element. After the shift, boundary 

requirement A, must still be satisfied 
La = La + Le + PAD for the left element. 
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This process can be described as fol- 
lows: R is the amount of the right 
Shift. Before shifting, the left ele- 
ment can be assumed to be on boundary 
Az with its (unmodified) lefthang Ha 
(see Figure 3, stept 2). If the left 
element is then shifted R bytes to the 
right, the lefthang becomes: 


(1) He Hg cue 


If H, is less than R, one boundary 
interval (Az bytes) on the left becomes 
unused and may now be disregarded. The 
lefthang is computed instead from the 
next boundary to the right by increas- 
ing H4 by As. For H, « R, the new: 
lefthang is: 


(2) Ha = Ha - R + Ag 


Formulas (1) and (2) can be combined to 


(3) Ha = H, - R + n*Ag 
where n is 1 if H4, is less than R; 
otherwise n is zero. 


To have the left element adjusted at 
its proper boundary, R must fulfill the 
requirement: 


(4) MOD (R,Aq) = O 


The next formula gives the resulting 
padding reduction: 


(5) 0 < PAD. = PAD - R < A, 


where PAD is the originally required 
padding (as described under item 2 
above) and PAD, is the (reduced) pad- 
ding after the right shift. The formu- 
la for La then changes to 

La = L} + L2 + PAD, 
This is illustrated in step 3 of Figure 
3. 


The amount of padding (PAD or PAD,) can 
also be formalized. The offset Oy of 
the leftmost byte of the left element 
to the nearest boundary Ax is 


Oy = L4 € H4 lad n4 *A4 


where n4 must be suitably chosen to 
satisfy 


0 < 04 < As 

(Multiples of Az are of no interest 
because of the minimum condition 
PAD < Az.) 


The padding PAD is then the difference 
between A4 - O4 (the number of unused 


bytes up to the next boundary A4) and 
H2. If Hz is larger than Ag - 04, PAD 
becomes negative, i. e., there is not 
sufficient space to start the right 
element in the same boundary interval 
So that it must start in the same rela- 
tive position in the next boundary 
interval to the right. This means that 
Az is added to PAD. 


The multiples Of Az can be extracted by 
using modulo arithmetic. This results 
xn 

PAD (modulo As) 
- Hz (modulo As) or 


-014 7 H2 
-La + Ha 


(6) PAD + L4, - Ha + H, = 0 (modulo Az) 


From formula (5) above we obtain 


(7) PAD, + L4 - H, + H, = O (modulo A,) 
The value R defined by formula (3) can 
also be explained in modulo arithmetic. 


For convenience, its complement 
(8) T = H4 - Ha 


Starting from for- 
we obtain 


is developed here. 
mulas (5) and (6) 
PAD,*R*L4-H4*H4-0 (modulo Az) 
or, by applying formulas (3) and (8), 
(9) PAD,-T+*L¿-H,+H2=0 (modulo Az) 


Since A4 is divisible by Az, 
of (9) and (7) yields 


comparison 


-T = 0 (modulo Ay) 
which is equivalent to the auxiliary 
condition (4). 


The next element to the right can now be 
mapped by taking the previously mapped 
compound item as the left element and so 
forth until all elements of the containing 
minor (or major) structure have been 
mapped. The structure itself is thereby 
reduced to a compound item. When all minor 
Structures of the lowest level have so been 
reduced to compound items, mapping of the 
next-higher-level structure (which now 
contains elements and compound items only) 
can be started. This procedure is contin- 
ued until the major structure has been 
mapped. 


Arrays are handled in a special way. If 
an array iS not of type POINTER, A is as 
shown in Figure 1, H is zero, and L taken 
from Figure 1 is multiplied by the number 
of array elements. The array is then 
mapped in one single step like an elementa- 
ry item. 
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POINTER arrays differ due to their 
lefthang. Each element of a POINTER array 
except the first one must be preceded by a 
Slack byte to satisfy the proper boundary 
requirements. This results in A= 4, H = 
3, and L = 4 *K-1, where K is the number of 
array elements. 


Structure mapping starts with elementary 
items and arrays and proceeds upwards to 
the major structure. Structure declara- 
tions, however, are organized in the rev- 
erse direction, starting with the major 
Structure and going down to its elements. 
For this reason, the structure mapping 
algorithm described in Figure 5 must also 
Start at the major structure. If the dec- 
laration to be processed is not an elemen- 
tary item or an array, the routine MAPP is 
called recursively to handle the next lower 
level (blocks B3 and B2 of Figure 5). On 
return from this recursive call, the 
appropriate structure has been reduced to a 
compound item. The routine MAPP has one 
input and four return parameters. The 
input parameter is a pointer S to the 
structure (major or minor) to be mapped. 
The return parameters are A, L, H, and the 
number of items N at any level contained in 
this structure. 


With each call of MAPP, initial values 
for A, L, and H are generated for accumula- 
tion during the mapping process (blocks A2, 
H1, and HJ). This initialization allows to 
program the mapping algorithm as an itera- 
tive process. It is equivalent to adding a 
dummy element with length zero, lefthang 
zero, and minimum boundary requirements to 
the left of each structure (minor or 
major). 


When the routine is called recursively, 
the old values A, L, H, and N are stacked. 
They are available again (unchanged) after 
return from the recursive call. A, L, and 
H serve for the sets A,, La, Hq and As, La, 
Ha in the above description of the process, 
while AA, LL, HH work as right-side element 
Sets Az, L2, H9. A global variable LV is 
used in this process; it contains the level 
at which mapping is momentarily being per- 
formed. One variable PAD is used for both 
PAD and PAD,. The distinction between PAD 
and PAD, is made by a branch in block F2. 


Besides A, L, and H, the mapping algor- 
ithm must provide the symbol table with the 
origin of each minor structure, array, and 
element relative to the beginning of the 
Structure (block H2). Since all minor 
Structures at the lowest level have been 
mapped independently, the relative origin 
of each such minor structure starts at 
zero. The relative origins must therefore 


be adjusted when minor structures are 
mapped as compound items (block J3). 
block J4 is equal to the number of all 
items contained in a structure. 


NN in 


DESCRIPTION OF ROUTINES 


Note:  Subroutine MOVEA 1 is described in 
phase A50. 


JRSYA1 -- NC 


This routine updates the symbol table. The 
respective entry is pointed to by PST. If 
the entry is a single item, the length of 
the item, i.e., the number of bytes occu- 
pied at object time, is entered into the 
symbol table. If the entry is a structure, 
it is mapped. 


JPRSA1 -- ND 


This routine checks whether the entire 
structure is in storage. If required, it 
reads in the remaining part. After calling 
JMAPA1 which performs the actual structure 
mapping, A, L, and H are entered into the 
symbol table. All symbol table entries 
pertaining to the structure are put out. 


JPOSA1 -- NE 
Secondary entry point: JPOSA5 


This subroutine controls two output 
buffers. If the buffers are full, they are 
written out in overlapped mode. 


The secondary entry is used if a block 
end in the symbol table is reached. In 
this case, the buffer contents are written 
regardless of whether or not the buffer is 
full. 


The NOTE information of the first record 
of a block is entered into the scone table 
if the main entry is used for the first 
time and after each block end. 


Entry parameters: 
PST = start address of symbol table to 
be written 


BYZ = number of bytes to be written 

POUT = output area pointer 

BUFST1 = start address of first buffer 

BUFST2 = start address of second buffer 

BUFLIM = limiting address of buffer cur- 
rently used 

STRECL = symbol table record length 


Return parameter: 
PST new = PST old + BYZ 


JMAPA1 -- NE 


This routine calculates the mapping of 
structures. It may be called recursively. 
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An internal buffer is used for storing 


and returning parameters. 


It consists of 


four 32-byte sections referred to as PUSH1 


-PUSH4. 


four bytes. 
section represent the levels of the struc- 
Thus, each structure level has an 
entry in each of the four buffer sections. 
The entries have the following format: 


ture. 


PUSH1 
byte 
bytes 


PUSH2 
byte 
bytes 


PUSH3 
bytes 





bytes 


PUSH4 
bytes 


bytes 


Each buffer entry has a length of 
The eight entries per buffer 


1 alignment (A) 
2-4 return address (LINK) 
1 lefthang (H) 
2-4 start address of the structure 
being processed 
1-2 length (L) of the item being 
processed 
3-4 number of items (N) contained in 
the item being processed 
1-2 number of the item (I) being 
processed relative to the 
embracing structure 
3-4 reserved 


Level counter LV is used for addressing 
the internal buffer. 


Entry parameter: 


PST = start address of 
structure to be 
mapped 


Return parameters: 


PUSH 
PUSH2 
PUSH3 
PUSH3 


JPADA1 


MRED RAA RE ERD RET AED NC CRE INS OE 


(4*LV) 
(U*LV) 
(U*LV) 


(4*LV+2) 


-- NG 


tou Ww i 


alignment (A) 

lefthang (H) 

length of structure (L) 
number of items (N) con- 
tained in item being proc- 
essed 


This routine calculates the padding and the 


lefthang of a structure. 
is defined as 


O<PAD<A and 


90 


The padding PAD 





(PAD+HH+L-H) modulo A = 0 


If HH+L-H = X, 
lows: 


PAD can be defined as fol- 


(PAD+X) /A=CEIL (X/A) 
PAD=A*CEIL (X/A) -X 
PAD=A* FLOOR ( (X*A- 1) /A) -X 


The increment T of the lefthang H is 
defined as 


O<I<AA and 
(PAD+HH+L-H-T) modulo AA = 0 


If Y = PAD+HH+L-H = PAD+X, T can be defined 
as follows: 


(Y- T) /AA=FLOOR (Y/AA) 
T=Y /AA* FLOOR (Y /AA) 


Entry parameters: 


PUSH3 (BYZ) = L = length of embracing 
structure 

PUSH2+4 (BYZ) = HH = lefthang of item being 
processed 

PUSH2 (BYZ) = H = lefthang of embracing 
structure 

PUSH1+4 (BYZ) = AA = alignment of item being 
processed 

PUSH1 (BYZ) = A = alignment of embracing 
structure 

BYZ B (LV- 1) *4 


JCANA1 -- NH 


calculates the number of items 
The 


This routine 
contained in a structure at any leve]. 
symbol table entries for all structure 
items are assumed to be stored in the table 
area. 


Entry parameter: 
PST - address of structure to be mapped 


Return parameters: 
PST - unchanged 
N = number of items 


(bytes 3-4 in PUSH3) 


JALHA1 -- NI 


This subroutine calculates A, L, and H. 
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Figure 5. Structure Mapping Algorithm 
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PHASE PL/IB70 (CONTEXTUAL DECLARATIONS) -- OA 


Phase B70 adds all contextually declared 
identifiers to the symbol table SYMTAB. 

All identifiers that either occur in a CALL 
statement or precede a PROCEDURE statement, 
an ENTRY statement, or a parenthesized list 
are replaced in the text string by their 
internal representation. 


All identifiers that are built-in func- 
tions with arguments are replaced with the 
internal representation of the built-in 
functions in the text string. 


Phase Input 


1. Text string on TXTIN. All identifiers 
are identified by an El-key. 


2. Symbol table SYMTAB on SYS001. For 
each explicitly declared identifier, 
SYMTAB contains an entry with the dec- 
larations of the identifier and its 
internal representation. 


Phase Output 


1. The text string on TXTIN contains all 
identifiers that occur in a CALL state- 
ment, or precede a PROCEDURE statement, 
an ENTRY statement, or a parenthesized 
list characterized by an EE-key and 
replaced by its internal representa- 
tion. All built-in functions with 
arguments are characterized by an EC- 
key and replaced by their internal 


representation. All remaining 
identifiers are characterized by an 
El-key. 


2. For each contextually declared iden- 
tifier, block n+1 of SYMTAB in storage 
and/or on SYS001 contains an entry with 
the declaration of the identifier. 


COMMUNICATION WITH OTHER PHASES 


Scope Table 


The scope table SCOTAB (built and described 
in phase B20) contains an entry for each 
block of the symbol table. The format of 
this entry is as follows: 


Number of records of the block. 
Note key of the block on 
SYS001. 

Address of the block in storage 
relative to the beginning of 
the table space. If the block 
is not in storage, bytes 4-5 
are zero. 


Byte 0 : 
Bytes 1-3 : 


Bytes 4-5 
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IJKMIP 


O of IJKMIP is on, all blocks of 
are in storage. If bit 1 of IJKMIP 
is on, some blocks of SYMTAB are in stor- 
age. These blocks are in storage from the 
beginning of phase B70. 


If bit 
SYMTAB 


WSLIST 


WSLIST is a list with an entry for each 
possible block level (3 entries). If block 
X with level number N is read, entry N of 
WSLIST contains: 


Byte O : Number of records of block X 
which are in storage. 
Byte 1: Number of records of block X 
which are not in storage. 
Bytes 2- 3 : Entry of block X in the scope 
table. 
Bytes L4- 7 : Begin address of block X in 
storage. 
Bytes 8-11 : End address of block X in 
storage. 
Bytes 12-15 : Note key of the part of block 
X which is not in storage. f 
If the entire block X is in Rusz 


storage, bytes 12-15 are 
zero. 


The scope table and WSLIST contain the 
information on the location of the blocks 
of SYMTAB. If either one of the first two 
bits of IJKMIP is on, information is 
retrieved from the scope table only. As 
Soon as a block that is not in storage is 
required in phase B70 or B80, bit 1 of 
IJKMIP is reset and the control of blocks 
in storage passes to the entries in WSLIST. 


Classifying of Table Space 


At the beginning of phase B70, the table 
Space is classified for storing blocks of 
SYMTAB in phases B70, B75, and B80. 


The table space is divided into three 
sections. The first section is used for 
storing blocks of SYMTAB. The number of 
records of SYMTAB that can be stored here 
is called MO. 


The second section (starting with AN1) 
is used to build up block n*1. Its length 
is equal to the record length of SYMTAB if 
not all blocks of SYMTAB (except block n+1) 
are in storage. If all blocks (except 
block n*1) are in storage, the free table 
Space is used to build up block n+1. 
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The third section (starting with ABS1) 
is called BS. This area consists of two 
buffers called BS1 and BS2. The length of 
each buffer is equal to record length of 
SYMTAB. BS is used for reading and scan- 
ning records of SYMTAB if a block, or part 
of a block, cannot be stored in the first 
MO buffers of the table space without des- 
troying other blocks that are also required 
for scanning. If the entire SYMTAB (except 
block n+1) is in storage, BS is also used 
to build up block n+1, 


The following terms are used for classify- 
ing table space: 


MO : Number of records of SYMTAB that 
can be stored in the first section 
of the table space. 

K : Number of buffers in the table 
space that are used to build up 
block n*1. Normally, K = 1. 

AN1 : Address of the area in which block 
n+1 is built up. 


ABS1 : Address of BS and BS1. 

ABS2 : Begin address of BS2. 

AEBS2 : End address of BS2. 

PSE : Points to the location where the 
next entry of block n+1 is stored. 

AO : Address of table space. 

WBSEN 


Byte WBSEN contains the number of a block 
which is completely stored, or of which the 
last records are stored, in BS. If byte 
WBSEN is zero, no records are stored in BS. 


Bit 20 of IJKMJT 


Bit 20 of IJKMJT is set if a built-in func- 
tion is detected in this phase. 


Error Code X'ü5* 

If an incorrectly declared identifier is 
found in this phase, the error code X'45' 
is inserted into the text string after the 
Statement in which the incorrectly declared 
identifier is found. 


WCTAB and Switch B75 

Table WCTAB is used to indicate built-in 
functions coded in the text string as 
built-in functions, but declared by the 
user. If such a function is found, its 
matching bit in WCTAB and switch B75 are 
Set, i.e., phase B75 will not be skipped. 


Internal Pointers, Switches, and Tables 


The following pointers and switches are 
used: | 


PIN : points to the element in the input 
buffer which is scanned. 
POUT : indicates the address in the output 


buffer to which the next output will 
be moved. 

PSY : points to the entry of SYMTAB which 
is scanned. 


Switch MS = Bit 0 of WSWIMS. Switch MS is 
set if an entry of the identifier is 
found in SYMTAB and the identifier 
is declared in this entry as a minor 
structure or as an element of a 
structure. If the identifier is 
declared as an array, the internal 
representation of it is stored. 
Scanning of the same block is con- 
tinued, but embracing blocks are not 
Scanned. 


LVLPT: points to the WSLIST entry for the 
required SYMTAB block. 


Scope pointer: points to the SCOTAB entry 
for the required SYMTAB block. 


The following tables are used: 


WBTAB is used to indicate the appearance of 
not explicitly declared built-in functions. 
If a not explicitly declared built-in func- 
tion is found in the text string, the cor- 
responding bit in WBTAB is set. 


WTAB contains the masks for setting bits in 
WBTAB and WCTAB. 


WNRNR contains the number of the block and 
the number of the embracing block of the 
statement being tested. 


Input/Output of Text String 


Three contiguous buffers are used for read- 
ing and writing of the text string. The 
first buffer is used as output buffer. The 
Second buffer is the first input buffer; 
its address is contained in BUFB1. The 
third buffer is the second input buffer; 
its address is contained in BUFB2. The end 
address of the second input buffer is con- 
tained in BUFEND. 


Output is performed under control of the 
output pointer POUT by the output routine 
JTRNA1 as described in phase A50. 


The input pointer PIN points to the text 
String element to be scanned. After scan- 
ning, PIN is increased by the length of the 
element. If PIN points to an element not 
contained in the first input buffer, output 
of the first input buffer is performed by 
JTRNA1. The contents of the second input 
buffer are moved to the first input buffer. 
PIN is decreased by the buffer length and 
the next record is read into the second 
input buffer. If PIN points to an element 
in the first input buffer, scanning is 
continued. 
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Functional Description 


The following cases are checked in this 
phase by scanning the text string: 


1. An identifier precedes a PROCEDURE or 
ENTRY statement: This identifier is 
declared explicitly. Its entry is 
retrieved from SYMTAB and its internal 
representation is inserted into the 
text string. 


2. An identifier occurs in a CALL state- 
ment: SYMTAB is searched for an entry 
of this identifier. If an entry is 
found, the identifier must be declared 
as an entry name, and its internal 
representation is inserted into the 
text string. If it is not declared as 
an entry name, X'EE0000' and an error 
message are inserted into the text 
string. 


If the identifier is not declared, it 
will be declared as an external entry 
name in block n+1 of SYMTAB, and its 
internal representation is inserted 
into the text string. If the name of 
such an identifier is equal to a built- 
in function, and this built-in function 
is noted in WBTAB, i.e., the built-in 
function was previously used in the 
text string, it is also noted in WCTAB 
and switch B75 is set, i.e., phase B75 
Will not be skipped. 


3. An identifier followed by a 
parenthesized list occurs.  SYMTAB is 
searched for an entry of this identifi- 
er. If an entry is found, the iden- 
tifier must be declared as entry name, 
array, or built-in function, and its 
internal representation is inserted 
into the text string. If the declara- 
tion is not of this type,X'EE0000' and 
an error message are inserted into the 
text string. If the identifier is not 
declared, it is checked whether or not 
it is a built-in function. If it is, 
the identifier is replaced in,the text 
String by the internal representation 
of the built-in function, and its 
appearance is noted in WBTAB. If the 
identifier is not a built-in function, 
it will be declared as an external 
entry name in block n*1 of SYMTAB, and 
its internal representation is inserted 
into the text string. 


DESCRIPTION OF ROUTINES 


Note: The following subroutines are used 
in this phase but are described elsewhere: 


JERRA1 and JTRNA1 are described in phase 


A50. All of the remaining routines are 
described in phase B80: 
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WBSOC 1 WELST3 
WCAM 1 WGT21 
WCLEAR WGT22 
WELST 1 WSETSP 
Initialization -- OB 


Output pointer POUT is set to the beginning 
of the output buffer. Input pointer PIN is 
set to the beginning of the first input 
buffer. The first two records of the text 
string are read into the input buffers. 

The begin addresses of the first and second 
input buffers and the end address of the 
second input buffer are stored in BUFB1, 
BUFB2, and BUFEND. 


The table space is classified as des- 
cribed in the section Classifying of Table 
Space. MO, AN1, ABS1, ABS2, and AEBS2 are 
stored in WMO, WAN1, WABS1, WABS2, and 
WAEBS2, respectively. 


If there are blocks in storage from 
previous phases, bit 1 of IJKMIP is set. 
If there are blocks in storage that exceed 
the first MO buffers of the table space, 


"the addresses of these blocks are cleared 


in the scope table. It is tested whether 
all blocks of SYMTAB are in storage. If 
they are not, K= 1. If all blocks are in 
storage, the address of the free table 
Space is equal to AN1, K is equal to the 
number of free buffers, and ABS! is equal 
to the address of the end of the table 
space. Pointer PSE is set to the beginning 
of the area used to build up block n*1. 


Search for Identifier in Source Text--OC 


The text string is scanned for begin of 
Statement (Statement identifier), identifi- 
er, and end of statement. 


If a begin of statement is found, the 
number of the block and the number of the 
embracing block of this statement are 
stored in WNRNR. If the statement is a 
CALL statement, and no OVERLAY or a DYNDUMP 
is called, switch CALL is set. If OVERLAY 
or DYNDUMP is called, this is indicated in 
the statement identifier and OVERLAY or 
DYNDUMP is deleted in the text string. 


Identifier in Source Text -- OD 
PIN points to the El-key of an identifier. 
If this identifier is not part of a quali- 


fied name, it is checked whether: 


1. The identifier precedes a PROCEDURE or 
ENTRY statement, or 


2. switch CALL is on, or 


3. The identifier is followed by a paren- 
thesized list. 
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The actions performed in these cases are 
described in the section Functional Des- 


cription. 


If the internal representation of an 
identifier is zero, error code X'45' is 
inserted into the text string by the error 
routine JERRA1. 


PIN points to the identifier an entry of 
which is made in block n*1 of SYMTAB as 
external entry name.  PSE points to the 
beginning of the entry. [The internal rep- 
resentation of the identifier is equal to 
the present value of the variable counter. 


If the first character of the user- 
defined name of the identifier is I through 
N, the attributes FIXED BINARY and the 
length 15 are set into the entry of the 
identifier. Otherwise, the attributes 
FLOAT DECIMAL and the length 6 are set into 
the identifier entry. 


If this entry is the last possible entry 
in the buffer(s) used to build up block 
nt1, all entries of block n*1 which are in 
Storage are written onto SYS001, and PSE is 
reset. If the first bit of IJKMIP is on, 
it is reset; the second bit of IJKMIP is 
Set, and K is decreased by 2, i.e., BS is 
now used to accommodate the part of block 
n+1 which is not in storage. 


End of Statement or Phase -- OF 


PIN points to the EA-key of End of 
Statement. WR4 contains the begin address 
of the area which is moved into the output 
buffer. This area including End of State- 
ment and possible error messages from pre- 
vious phases are written by the output 
routine JTRNA1. If an incorrectly declared 
identifier was found in this statement, the 
error bit is set on and the new error 
message (s) is (are) added to the possible 
old one. The number of error messages 
after a statement is limited to 8. 


It is tested whether PIN points to the 
end of the text string. If it does, the 
part of the text string which is not yet on 
TXTOUT is written and TXTOUT and TXTIN are 
rewound and exchanged. If switch B75 is 
on, phase B75 is called; otherwise, phase 
B80 is called. 


Check for Built-in Function -- OG 
Entry : WBUIN1 


Input parameter: 
PIN points to the identifier which is 


checked if it is a built-in function. 


WBTAB1 is a table which contains the 
Second bytes of the internal representation 
of all built-in functions with arguments 
the names of which are declared in the 
first record of the name table NAMTAB. The 
Second bytes are in the order of the com- 
pressed names of the built-in functions. 
WBTAB2 is a table which contains the second 
bytes of both the compressed name and the 
internal representations of all built-in 
function with arguments the names of which 
are declared in the second record of NAM- 
TAB. 


It is tested if the identifier is a 
keyword. If it is a keyword and it is 
declared in the first record of NAMTAB , it 
is checked if the keyword matches a built- 
in function in WBTAB1. If it does, 
pointers are set to the entries of this 
function in WTAB, WBTAB, and WCTAB, and 
exit YES occurs. If the keyword is 
declared in the second record of NAMTAB, 
WBTAB2 is scanned for this keyword. If it 
is found, pointers are set to the entries 
of this function in WTAB, WBTAB, and WCTAB, 
and exit YES occurs. 


Output parameters (for exit YES): 

RO contains the internal representation of 
the built-in function. 

R1 points to WTAB entry, R2 points to WBTAB 
entry, and R3 points to WCTAB entry of the 
built-in function. 


Search for Identifier in SYMTAB -- OH-OL 
Entry point: WSIO 


Input parameter: 
PIN points to the identifier, an entry of 
which is searched for in SYMTAB. 


If an identifier is declared in SYMTAB, 
its internal representation is retrieved 
therefrom by WSIO. In addition, this sub- 
routine attempts to keep blocks in storage 
as long as possible and reads only those 
blocks into storage that are required to 
Scan for an entry for the identifier. 
Scanning is started in block X, i.e., in 
the block that contains the statement 
which, in turn, contains the identifier 
Searched for. If the searched entry is not 
found in block X, scanning is continued in 
the embracing block of block X, etc. The 
outermost block is block n*1. 


If block X of the identifier is not in 
Storage, all blocks in storage that are not 
embracing blocks of block X are cleared. 

If there are not enough contiguous free 
buffers in the table space to accommodate 
block X, embracing blocks of block X are 
cleared starting with block level 1. 


If the number MX of records of block X 
is not greater than MO, block X is stored 
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and scanned in the table space; otherwise, 
the first M0 records of block X are stored 
and scanned in MO buffers of the table 
space. The remaining records of block X 
are read and scanned in BS. 


If scanning is continued in an embracing 
block of block X, block X remains in stor- 
age. If the embracing block is not in 
Storage and the maximum of contiguous free 
buffers in the table space is M1, the 
embracing block is stored in the M1 buffers 
unless the number of records of the embrac- 
ing block is greater than Ml, Otherwise, 
the first M1 records of the embracing block 
are Stored and scanned in the M1 buffers of 
the table space. The remaining records are 
read and scanned in BS. 


If an entry of the identifier is found 
and the identifier is declared in this 
entry as an array in a structure, the 
internal representation of this entry is 
Stored and scanning of the block is contin- 
ued. If no other entry of the identifier 
is found in the same block, the internal 
representation of the array is retrieved. 
If another entry of the identifier is 
found, the internal p ed of the 
new entry is retrieved if the identifier is 
not declared in this entry as a minor 
Structure or as an element of a structure. 


If an entry of the identifier is found 
and the identifier is declared as a minor 
structure or as an element of a structure, 
but not as an array, Scanning of the block 
is also continued. If no other entry is 
found in the same block, the error routine 
is initialized. 


If the identifier is not declared in 
SYMTAB, exit NOT of WSIO occurs. If it is 
declared and its internal representation is 
not zero, exit DECL occurs. If its inter- 
nal representation is zero, the error rou- 
tine is initialized. 


Output parameters: 

PIN points to the identifier in the text 
string. 

PSY points to the entry of the identifier 
in SYMTAB if exit DECL occurs. 


Read and Scan Biock X -- OM-ON 


Entry : WRBX1 


Input parameters: 


R1 contains the address A1 of the area 
| in which block X can be stored. 
R3 contains the number M1 of POCOrds 
which can be stored in Al. 
R7 points to the entry of block: X in the 


Scope table. 
LVLPT points to the. SR of block X in 
WSLIST. 
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WMX contains the number MX of records of 
block X. 


If MX is not greater than M1, the entire 
block X is stored and scanned in the table 
Space. Otherwise, the first M1 records of 
block X are stored and scanned in the table 
Space, and the remaining records of block X 
are read and scanned in BS. 


If an entry of the identifier is found 
and the identifier is not declared as a 
minor structure or as an element of a 
structure, the internal representation is 
tested for zero. 


If an entry of the identifier is found 
and the identifier is declared as an array 
in a structure, the internal representation 
of the array is stored. Scanning is con- 
tinued. 


If no entry or only entries for iden- 
tifiers declared as a minor structure or as 
an element of a structure are found, this 
subroutine is left via its normal exit. 


Output parameter: 

PSY points to the entry of the identifier 
in SYMTAB if the identifier is declared but 
not as a minor structure or as an element 
of a structure. 


Search for Identifier in BS -- 00 
Entry: WREAD1 


Input parameter: 
R3 contains the number of records of block 
X to be read and scanned in BS. 


Records are read and scanned in over- 
lapped mode, i.e., while a new record is 
read into one buffer of BS, the record in 
the other buffer is scanned for an entry of 
the searched identifier. PSY points to the 
entry of SYMTAB which is scanned. 


If no entry of the searched identifier 
is found that is not declared as a minor 
Structure or as an element of a structure, 
the routine is left via its normal exit. 


If an entry is found and the identifier 
is declared as a minor structure or as an 
element of a structure, switch MS is set. 
If the minor structure or element of a 
Structure is an array, the internal rep- 
resentation of the array is stored. Scan- 
ning is continued. 


Output parameter: 

PSY points to the entry of the searched 
identifier unless this routine is left via 
its normal exit. | 
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Clear Addresses in Scope Table -- OP 
Entry: WCSCO1 


If switch WCSCO2 is off, bytes 4 and 5 of 
all entries in the scope table are cleared. 
If switch WCSCO2 is on, bytes 4 and 5 of 
all entries of the scope table are tested 
for zero. If a nonzero entry is found, it 





is tested whether the end address of this 
block is equal to or higher than AN1. If 
it is higher or equal, the begin address of 
this block in the scope table is cleared. 
If it is lower and the end address of this 
block is higher than the highest end 
address of previously found blocks in stor- 
age, the end address of this block is 
stored. 
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PHASE PL/IB75 (EXTERNAL ENTRY NAMES FOR IMPROPERLY SENERATED BUILT-IN FUNCTIONS) -- OR 


If a subroutine reference in the text 
string is identical to the name of a built- 
in function, the name of the identical 
function must be declared as an external 
entry name, provided the function has not 
been declared explicitly as a built-in 
function. This phase replaces such a 
subroutine reference (which has been 
declared as a built-in function in phase 
B70) by its correct representation as an 
external entry name. If there is no such 
subroutine reference, phase B75 is skipped. 


Phase Input 


1. The text string from TXTIN which con- 
tains function references that have 
been incorrectly declared as built-in 
functions. 


2. Block n*1 of SYMTAB which contains all 
contextually declarations. 


Phase Output 


In the text string, all subroutine referen- 
ces that were improperly declared are now 
replaced by their proper internal represen- 
tation and are characterized by an EE-key. 


Communication with Other Phases 


Scope table 
IJKMIP 
WSLIST 
Table Space as classified in phase B70 
WBSEN 
Bit 20 of IJKMJT 
NCTAB 

The above areas, tables, and switches, 
as well as I/O handling are the same as 
described in phase B70. 


Internal Pointers, Switches, and Tables 


PIN points to the element being 
Scanned in the input buffer. 

POUT indicates the output buffer 
address to which the next output 
is to be moved. 

PSY points to the entry of block n+1 
in SYMTAB, which is to be scanned. 

EPSY points to the end of the area that 
contains the entries of block n+1 
which are to be scanned. 

Switch 1 is on if records of block n*1 are 


Stored in BS, but not in the first 
MO buffers of table space. 
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Switch 2 is on if records of block n*1 are 
Stored in the first MO buffers of 
table space and in BS. 


contains entries which consist of 
the compressed user name and the 
WCTAB entry for the built-in func- 
tion. These entries are in 
ascending order by the internal 
representations of the built-in 
functions. 


WECLIST 


DESCRIPTION OF ROUTINES 
Note: The subroutines listed below are 
used by phase B75, but described elsewhere. 
For a description of these subroutines 
refer to the sections indicated. 


ITRNA1 phase A50 
WBSOC phase B80 
WCLEAR phase B80 
WCSCO1 phase B80 
WSETSP phase B80 


Initialization -- OS 


The pointer POUT is set to point to the 
beginning of the output buffer. The poin- 
ter PIN is set to point to the beginning of 
the first input buffer. The first two 
records of text string are read into the 
input buffers. 


The bit used to indicate the presence of 
built-in functions in the current compila- 
tion is reset. 


If the table space contains only a por- 
tion of that part of block n+1 which was 
built up during phase B70, the head of 
block n+1 is retrieved from SYS001. If the 
number (MX) of records of block n*1 on 


SYS001 is not greater than M0*2, MX records 


of block n+1 are read into the table space; 
otherwise, the first MO records of block 
nt1 are stored in the first MO buffers of 
the table space and the begin of the 
remaining records on SYS001 is noted. 


Scan Source Text -- OT 


The text string is scanned for an End-of- 
Statement indication and for built-in 
functions not explicitly declared. 


If a built-in function is found which is 
not explicitly declared, the WCTAB area is 
tested to determine whether the function 
has been declared by the user. If not, a 
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bit is set to indicate that the current 
compilation includes built-in functions. 


If the function has been declared by the 
user, the compressed name of this built-in 
function is obtained and the internal rep- 
resentation of the user's function is 
picked up in block n+1. The built-in func- 
tion in the text string is replaced by the 
internal representation of the user's func- 
tion and the key 'EE'. 


Pick up Internal Representation of User 
Function -- OU 


Block n*1 is scanned for the entry of the 
user's function. Scanning starts with 
those entries of block n*1 which have been 
in storage at the beginning of this phase. 
Scanning continues with those entries of 
block n*1 which have been stored in the 
table space during initialization of this 
phase. If not all records of block n+1 are 
in storage, the head of the remaining 
records of block n*1 is picked up and the 
entries of these records are read and 
Scanned in BS. 


Ind of Statement or Phase -- OV 


Pointer PIN points to key 'EA' of the end 

of statement. WR4 contains the address of 
the area whose contents are moved into the 
output buffer. The processed text string, 

including end-of-statement and error messa- 
ges (if any) from previous phases are writ- 
ten on TXTOUT by the output routine JTRNA1. 


If PIN points to the end of the text 
String, that part of the text string which 
is not yet on TXTOUT is written, TXTOUT and 
TXTIN are rewound and exchanged. The phase 
is terminated by calling phase B80. 


Search for Identifier Subroutine -- OW 


Entry point: WSEAR 


Input parameters: 


PSY points to the area that contains the 
entries of block n*1 that are to be 
Scanned. 

EPSY points to the end of the same area. 

R11 contains the compressed user's name 


of the function, the entry of which 
is to be searched for. 


PSY points to the entry of block n+1 
that is to be searched for the identifier. 
If the desired entry is found, the routine 
is left to replace the built-in function by 
the internal representation of the user's 
function in the text string. 


If PSY points to an address that is 
equal to or greater than the value of EPSY, 
this subroutine is left via the NO exit. 


Output parameter: 


PSY points to the desired entry of block 
n+] if not left via the NO exit. 
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PHASE PL/IB80 (IMPLICIT DECLARATIONS) -- PA 


AR 
SE 
This phase performs the following func- the error code X'44" is inserted into the 
tions: text string after the statement in which 
the not declared qualified name was found. 
1. All implicitly declared identifiers are 
added to the symbol table SYMTAB. 
Internal Pointers, Switches, and Tables 
2. Identifiers in the text string that 
have an El-key are replaced by their PIN points to the element in the input 
internal representations. buffer which is being scanned. 
3. Identifiers in the text string, which POUT indicates the output buffer address 
are built-in functions without argu- to which the next output is to be 
ments, are replaced by the internal moved. | 
representation of the built-in func- 
tions. PSY points to the SYMTAB entry to be 
Scanned. 
Phase Input and Output 
LVLPT points to the entry in WSLIST for 
The input consists of the following: the required SYMTAB block. 
1. The text string from TXTIN containing Scope points to the entry in the scope 
all identifiers which are not replaced pointer table for the required SYMTAB 
by the appropriate internal representa- block. 
tion with an El-key. 
WSWIMS switch MS is on if bit 0 of WSWIMS 
2. Symbol table SYMTAB on SYS001 or in is 1. It is set whenever an entry 
storage which contains an entry for of an identifier is found in SYMIAB P 
each explicitly or contextually and this identifier MM 
declared identifier. 1. does not occur in a qualified AZ 
name and 
As output, the phase produces: 2. is declared as a minor struc- 
ture or an element of a struc- 
l. The text string on TXTIN which contains ture in this entry. 
a. the appropriate internal represen- The internal representation con- 
tation with an EE-key for all iden- tained in this entry is stored, and 
tifiers and scanning of the block is continued; 
b. the appropriate internal represen- however, embracing blocks are not 
tation with an EC-key for all scanned. 
built-in functions. 
WOUALS if WQUALS is X'01', Switch QUAL is 
2. Block n*1 of SYMTAB on SYS001. This on; this indicates that a qualified 
block contains one entry for each con- name is to be tested. If WQUALS is 
textually or implicitly declared iden- X'81', switches QUAL and MINOR 
tifier. STRUCT are on; this indicates that 
Scanning for entries for the iden- 
Communication with Other Phases tifiers of a qualified name was 
started. 
Scope Table 
IJKMIP WNRNR contains 
WSLIST 1. the number of the block con- 


Table Space as classified in phase B70 


taining the statement being 


WBSEN tested and 
Bit 20 of IJKMJT 2. the number of the embracing 
Error code X'45* block. 


Error code X'L4' 


Areas, tables, and switches under 1 
through 7, above are as described in phase . 
B70. 

Error code X'44*, If an identifier of a 
qualified name is not declared in SYMTAB, 
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The level lists WLEVL, WQUANT, and WNTLL 
are used if scanning for a qualified name 
is performed. The lists WQUANT and WNTLL 
are only used when the records of SYMIAB, 
which are being scanned for the qualified 
name, are in BS. The contents of these 
tables follow: 
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di - > 





WLEVL 


Pointer PSY of the identifier 
entry with smallest level 
number found while scanning 
for an identifier of a quali- 
fied name was performed. 


Bytes 0-3: 


Byte 4: LNR1 = level number + 1 of the 
identifier of a qualified name 
which precedes the identifier 
being scanned for. (= 1 if 
the first identifier is 
scanned.) 


LNR2 = level number of the 
entry which is referred to in 
bytes 0 through 3. 


Byte 5: 


WOUANT 


Bytes 0- 7: NOTE information for the 
record currently in BS1. 

Bytes 8-11: Not used. 

Bytes 12-15: Number of records + 1 of block 
X that follow the record cur- 
rently in BST. 

WNTLL Contents of WQUANT for the 

identifier referred to in 

WLEVL (bytes 0 through 3). 


Functional Description 


If an identifier with an El-key is found in 
the text string, subroutine WSIO is called 
to search SYMIAB for an entry for this 
identifier. The identifier may or may not 
occur in a qualified name. 


1. The identifier does not occur ina 
qualified name. 


If the identifier is declared, its 
internal representation including the 
key 'EE' is inserted into the text 
string. If the identifier is not 
declared, it is determined whether or 
not it is a built-in function without 
arguments. 


In case of a built-in function without 
arguments, the internal representation 
of the built-in function including the 
key 'EC' is inserted into the text 
string. 


If it is not a built-in function, the 
identifier is declared as arithmetic in 
block n+1 of SYMTAB, and its internal 
representation including the key 'EE' 
is inserted into the text string. 


2. The identifier occurs in a qualified 
name. 


The proper entry for each identifier 
contained in the qualified name is 
looked up in the block in which the 
qualified name is declared. All but 
the last identifier of the qualified 
name are deleted in the text string. 
When the correct entry of the last 
identifier is found in SYMTAB, the 
internal representation of this iden- 
tifier including the key 'EE' is 
inserted into the text string. Other- 
wise, 'EEO0O000' and the error code X'l4' 
(= qualified name not declared) are 
inserted in the text string. 


DESCRIPTION OF ROUTINES 


Note: Subroutines JERRA1 (error) and 
JTRNA1 (output) are used by phase B80, but 
described in phase A50. 


initialization == PB 


Output pointer POUT is set to the beginning 
of the output buffer. Input pointer PIN is 
set to the beginning of the first input 
buffer. The first two records of the text 
string are read into the input buffers. 


Pointer PSE is set to the first availa- 
ble byte position in block n+1 following 
the last entry mađe in phase B70. 


Search for Identifier in, Source Text -- PC 
The text string is scanned for 


1. the beginning of statements (statement 
identifiers), 


2. identifiers with an El-key, 
3. end of statements and 
4. explicitly declared built-in functions. 


Input and output of the text string is 
as described in phase B70. 


If the beginning of a statement is 
found, the numbers of the block containing 
the statement and of the embracing block 
are stored in WNRNR. 


If an identifier with an El-key is 
found, WSIO is called to search SYMTAB for 
an entry for this identifier. If the iden- 
tifier is declared, its internal represen- 
tation with the key 'EE' is inserted into 
the text string. 


If the identifier is the first one of a 
qualified name, the text string is written 
out up to the beginning of the qualified 
name and switch QUAL is set before WSIO is 
called. 
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If an explicitly declared built-in func- 
tion is found, the appropriate representa- 
tion of the function (first byte of inter- 
nal representation = 0) is inserted into 
the text string. The bit that indicates 
built-in functions in the current compila- 
tion is set. 


a ET hacer Z R EER RAA DA EA CNY s REZ Z „cy A an 


If an undeclared identifier is a built-in 
function without arguments, the internal 
representation of this function, including 
key 'EC', is inserted into the text string. 
The bit that indicates built-in functions 
in the current compilation is set. 


If the internal representation of the 
identifier is 0, X'EE0000' is inserted into 
the text string. In addition, the error 
code X'45' is inserted by calling JERRA1. 


Entry in SYMTAB -- PE 


PIN points to the identifier for which an 
entry with arithmetic attributes is built. 
This entry is then moved into block n*1 of 
SYMTAB.  PSE points to the address of the 
entry. 


The internal representation of the iden- 
tifier equals the present value of the 
variable counter. 


If one of the characters I through N is 
used as the first letter of the user- 
defined name of the identifier, attribute 
FIXED BINARY with a length of 15 is set 
into the entry for the identifier. If the 
first letter is a character other than I 
through N, FLOAT DECIMAL with a length of 6 
is set into the identifier entry. 


If this entry is the last possible entry 
in the buffer(s) used to build up block 
nt1, all entries of block n*1 that are in 
storage are written on SYS001. PSE is 
reset. If the first bit of IJKMIP is 1, 
this bit is reset, the second bit of IJKMIP 
is set, and K is decreased by 2, i.e., BS 
is used to retrieve that part of block n+1 
which is not yet in storage. 


fna of Statement == PF 


PIN points to key 'EA' of End of Statement. 
WR4 contains the address of the area whose 
contents are to be moved into the output 
buffer by calling JTRNA1. 


If an improperly declared identifier or 
qualified name is found in this statement, 
the error bit is set and the new error 
message (s) are added to the old one. The 
number of error messages following a 
Statement is limited to eight. 
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End of Phase -- PG 


That part of the text string which has not 
yet been written onto TXTOUT is written 
out. End of block n+1 is set and that part 
of block n+1 which is in storage is now 
written on SYSO01. 


The number of records of, and the note 
information for, block n*1 are inserted 
into scope table entry 0. If all of block 
n+1 is in storage, its address in relation 
to the table space is also set into the 
Scope table. 


TXTIN and TXTOUT are rewound and 
exchanged. The phase is terminated by 
calling phase B90. 


Scanning of Qualified Name -- PH 


This routine retrieves the proper entry in 
SYMTAB for the last identifier of a quali- 
fied name. This is done under control of 
Switch WQUALS and level lists WLEVL, WNTLL, 
and WDUANT. (WNTLL and WOUANT are used 
only when scanning of SYMTAB is done in 
BS«} 


In the text string, all but the last 
identifier of a qualified name are deleted. 
When the proper entry for the last iden- 
tifier is found, the internal representa- 
tion of this identifier, including key 
'EE', is inserted into the text string; 
otherwise 'EE0000' and the error code '4uy" 
(= qualified name not declared) are insert- 
ed into the text string. 


All identifiers of a qualified name are 
declared in the same block. Each identifi- 
er of a qualified name has a level number 
which is greater than the level number of 
the preceding identifier. 


PIN points to the first identifier of 
the qualified name in the text string and 
PSY points to an entry of this identifier 
in block X when this routine is entered at 
WOUAL8. The entry that contains the lowest 
level number is searched for the identifier 
pointed to by PIN. Information about the 
entry which presently contains the lowest 
level number is stored in the level lists. 


Scanning for entries for the first iden- 
tifier of the qualified name starts at the 
beginning of block X and stops when either 
an entry for this identifier with level 
number 1 or the end of the block is found. 
Scanning for the other identifiers starts 
at the entry that follows the entry with 
the lowest level number of the preceding 
identifier and stops when an entry with a 
level number is found that is either 
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1. equal to the level number plus 1 or 


2. not higher than the level number of the 
preceding identifier. 


When the scanning is stopped, WLEVL 
contains PSY of the entry with the lowest 
level number of the identifier pointed to 
by PIN. 


If WLEVL is blank, i.e., an entry for 
the identifier was not found, the embracing 
block is scanned for the entry with the 
lowest level number of the first identifier 
of the qualified name, and so on. If the 
embracing block is block n+1, scanning 
stops. In this case, the qualified name 
has not been declared. 


SUBROUTINES 

Search for Identifier in SYMTAB -- PI - PM 

Entry point: WSIO 

Input Parameters: 

1. No qualified name: PIN points to the 
identifier for which an entry in SYMTAB 
is Searched. 

2. Qualified name: PIN points to the 


beginning of the qualified name. 
of switch WQUALS is on. 


Bit 7 


If an identifier is declared in SYMTAB, 
WSIO retrieves the internal representation 
of the identifier from SYMTAB. In addi- 
tion, this subroutine attempts to keep 
blocks in storage as long as possible and 
reads into storage only those blocks that 
are required to scan for an entry for the 
identifier. 


If block X (the block that contains the 
statement which, in turn, contains the 
identifier searched for) is not in storage, 
all blocks in storage that are not embrac- 
ing blocks of block X are cleared. If 
there are not enough contiguous free buf- 
fers in the table space to accommodate 
block X, embracing blocks of block X are 
cleared starting with block level 1. If 
the number of records of block X is greater 
than MO, all blocks are cleared in storage, 
the first M0 records of block X are stored 
in the M0 buffers of the table space, and 
these records are scanned. The remaining 
part of block X is then read into, and 
scanned in, BS. 


If scanning is continued in an embracing 
block of block X, block X remains in stor- 
age. If the embracing block is not in 
storage and the maximum number of connected 
buffers in the table space is equal to M1, 


the embracing block is stored in the M1 
buffers, provided the number of records of 
this block is not greater than M1; other- 
wise, the first M1 records of the embracing 
block are stored and scanned in the M1 
buffers of the table space and the remain- 
ing records are read into, and scanned in, 
BS. 


The remaining functions of the subrou- 
tine vary according to the type of iden- 
tifier (qualified name or no qualified 
name). 


No Qualified Name. Scanning is started in 
block X of the identifier. If the searched 
entry is not found in block X, scanning is 
continued in the embracing block of block 
X, etc. Block n*1 is the outermost embrac- 
ing block of all blocks. 


If an entry for the identifier is found 
and a minor structure or an element of a 
Structure is declared in this entry, the 
internal representation in this entry is 
Stored and scanning of the block is 
continued. If no other entry for the iden- 
tifier is found in the same block, the 
Stored internal representation is used for 
the identifier; otherwise, the internal 
representation of the new entry is fetched, 
provided no minor structure or element of a 
structure has been declared in this entry. 


If the identifier is declared and its 
internal representation is not 0, the rou- 
tine is left via the exit DECL. If the 
internal representation is 0, the routine 
is left via the error exit (to initialize 
the error routine). If the identifier is 
not declared, the routine is left via exit 
NOT. 


Qualified Name. Scanning is done as des- 
cribed under Scanning of Qualified Name -- 
PH. If the qualified name is not declared, 
the subroutine is left to initialize the 
error routine. 


The subroutine is left via the exit DECL 
if the internal representation in the entry 
with the smallest level number of the last 
identifier of the qualified name is not 0. 
If the internal representation is 0, the 
routine is also left to initialize the 
error routine. 


Output Parameters: 

PIN points to the identifier 
tifier of qualified name) 
string. 


(last iden- 
in the text 


PSY points to the entry of the identifier 
in SYMTAB if the routine is left via 
the exit DECL. 
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Read and Scan Block X -- PN, PO 
Entry points: WRBX1, WSCX1, WSCX6 


Input Parameters: 

R1 contains the address A1 of the area 
into which block X (block to be 
Scanned) can be stored. 


R3 contains the number M1 of records 
which can be stored in Al. 


R7 points to the entry for block X in 
the scope table. 


LVLPT points to the entry for block X in 
WSLIST. 

WMX contains the number MX of records 
of block X. 

WOUALS indicates that scanning of a quali- 


fied name was started if bit 0 is 
14 


If MX is not greater than M1, all of 
block X is stored in the table space and 
Scanned; otherwise, the first M1 records of 
block X are stored and scanned in the table 
Space and the remaining records of block X 
are read into, and scanned in, BS. 


The remaining functions of the subrou- 
tine vary according to the type of iden- 
tifier (qualified name or no qualified 
name). 


No Qualified Name. If an entry for the 
identifier is found and the identifier is 
declared in this entry as a minor structure 
or an element of a structure, the subrou- 
tine 


1. stores the internal representation in 
the entry, 


2. sets switch MS, and 
3. continues the scanning of the block. 


If no entry for the identifier is found, 
the subroutine is left via its normal exit. 


If an entry is found and the identifier 
in this entry is not declared as a minor 
Structure or as an element of a structure, 
the subroutine is left to determine whether 
the internal representation is 0. 


ualifi ame. If the scanned entry is 
not an entry for the searched identifier, 
the routine determines whether or not 
searching for entries for the identifier of 
the qualified name has to be continued. If 
not, control is transferred to continue 
Scanning qualified names. If no entry for 
the identifier is found, this subroutine is 
left via its normal exit. 
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Output Parameters: 


1. No qualified name: 

PIN points to the entry for the iden- 
tifier in SYMTAB if the identifier 
is declared as other than a minor 
structure or as an element of a 
structure. 


2. Qualified name: | 
PIN points to an entry for the iden- 
tifier if an entry was found. 


Search for Identifier in BS -- PP 
Entry points: WREAD1, WREAD5 


Input Parameters: 

R3 contains the number of records of block 
X to be read into BS and scanned. 

LVLPT points to the entry of block X in 
WSLISI. 


The functions of this routine vary 
according to the type of identifier being 
Searched for (part or not part of a quali- 
fied name). 


1. The identifier is not part of a quali- 
fied name: 


Reading records into BS and scanning is 
done in overlapped mode, i.e., while a 
new record is read into one buffer of 
BS, the record in the other buffer is 
Scanned for an entry of the identifier. 
PSY points to the SYMTAB entry being 
Scanned. If no entry of the identifier 
is found, the routine is left via its 
normal exit. If an entry is found and 
it has been declared as a minor struc- 
ture or as an element of a structure, 
switch MS is set and the internal rep- 
resentation in this entry is stored. 
Scanning of the block is continued. 


2. The identifier is part of a qualified 
name: 


Two records are read into BS and the 
beginning of the first record is noted 
in level list WQUANT. Then, the two 
records are scanned. If the scanned 
entry is not an entry for the identifi- 
er, a check is performed to determine 
if searching for entries for the iden- 
tifier must be terminated. If no entry 
for the identifier is found, the rou- 
tine gets the next two records of block 
X and starts scanning these records for 
entries for the identifier. If PSY 
points to the end of block, the routine 
is left via its normal exit. 


Output Parameter: 

PSY points to an entry for the identifier 
if this routine is not left via its normal 
exit. 


FM 
- 


( pes 
| 
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set Records to B5 -- P9 


Entry points: WGT21, WGT22 


Input Parameters: 


WMX contains the number of records of 
block X not yet in storage; 
R7 points to the entry for block X in 


the scope table; 

(only used if the routine is entered 
via WGT21) points to the entry for 
block X in WSLIST. 


LVLPT 


If entry WGT21 is used, this routine 
tests whether all embracing blocks of block 
X are in storage. If they are not, the 
routine is left via its NO exit. 


Otherwise, and if entry WGT22 is used, 
the routine determines whether the number 
of records of block X not yet in storage is 
less than or equal to two. If there are 
more than two records, the routine is left 
Via its NO exit. If the number of records 
of block X not yet in storage is two or 
less than two, these records are read into 
BS and the presence of block X in BS is 
noted in WBSEN and, if the entire block X 
is in BS, in the scope table. The routine 
is left via its YES-exit. 


calculate MI + PR 
Entry point: WCAM1 


M1 is the maximum number of records of 
SYMTAB that can be stored contiguously in 
the table space without destroying other 
records of SYMTAB that are already in stor- 
age and noted in WSLIST. This subroutine 
calculates M1 using the addresses of the 
blocks in storage as contained in WSLIST. 


The list below shows the meaning of the 
names used in this subroutine. 


ML = length of longest contiguous area not 
used by other blocks. 


If only one block is stored: 


AY = Address of the block. 
AZ = Address of end of the block. 
ML = Max (AY-A0O,AN1-AZ) 


If two blocks are in storage: 


AU = Address of 1st block. 
AV = Address of end of 1st block. 
AX = Address of 2nd block. 


AY = Address of end of 2nd block. 
ML Max (A0-AU,A-AV,AN1-AY) 


If no block iS in Storage, M1 = MO; other- 
wise: M1 = ML divided by record length of 
SYMTAB. 


Output Parameters: 

R1 contains the address A1 to which a block 
can be read. 

R3 contains the number M1 of records that 
can be read to A1. 


Clear WSLIST Entry Y -- PS 
Entry point: WCLEAR 


Input Parameter: 
R2 points to the WSLIST entry Y. 


WSLIST entry Y contains information 
about the level-Y block, which is in stor- 
age. If this block is no longer needed for 
the searching of identifiers, the indica- 
tion of the block (for being in storage) is 
cleared in both the scope table (bytes 4 
and 5) and in WSLIST (byte 0). If the 
block or its end is stored in BS, the indi- 
cation of the block is also cleared in 
WBSEN. 


Set Scope Pointer -- PT 
Entry point: WSETSP 


input Parameter: 
R2 contains the number of the block. 


The scope pointer RU is set to the scope 
table entry for the block indicated by R2. 


Output Parameter: 
R4 points to the entry for the block in the 
Scope table. 


Clear Bo ~= PU 


Entry point: WBSQC1 


If (1 a block or tne remainder of a block 
not yet in Storage consists of no more than 
two records and (2) the first MO buffers of 
the table area are filled with other blocks 
which are still needed for scanning, the 
block or its remainder is stored in BS and 
WBSEN contains the number of the block. 


This subroutine clears WBSEN if a com- 
plete block or the end of a block is stored 
in BS. If a complete block is stored in 
BS, the subroutine also clears the address 
of this block in the scope table. 


Entries in WSLIST and Scope Table -- PV 


Entry points: WELST1 used if the complete 
block is or will be in 
storage. 

WELST3 used if the end of the 
block is not in stor- 
age. 
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Input parameters: 


WELST1: 


WELST3: 
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R1 
RL 
R5 
PSY 
RO 
R1 
RL 


R5 


points to the address of the 
block in storage. | 

points to the entry for the 
block in the scope table. 
points to the entry for the 
block in WSLIST. 

contains the number of records 
of the block. 

contains the number of records 
of the block in storage. 
contains the address of the 
block in storage. 

points to the entry for the 
block in the scope table. 
points to the entry for the 
block in WSLIST. 


PSY contains the address of the 
end of the block in Storage. 


When a new block is read into Storage, 
this subroutine performs the necessary 
housekeeping functions in WSLIST and bytes 
4 and 5 of the scope table. If entry 
WELST3 is used, housekeeping in byte 1 and 
bytes 13 through 16 of WSLIST must be done 
before this subroutine is called. 


Clear Addresses in the Scope Table -- PW 


Entry point: WCSCO!1 


Bytes 4 and 5 of all entries in the scope 
table are cleared. 
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In this and the next phase, a Statement 
attribute table is generated in front of 
each statement. This table contains all 
attributes for each variable that occurs in 
the actual statement. If the statement is 
a PROCEDURE statement, the first entry of 
the attribute table contains the attribute 
belonging to the entry name of the proce- 
dure. 


For the construction of the attribute 
table see phase B20. 


DESCRIPTION OF ROUTINES 
Note: The following routines are described 
elsewhere as follows: 


JSLCA1 B10 HX 
JEOSA1 B10 HY 
JERRA1 A50 FZ 
MOVEA1 A50 FO 


JMACA1 -- QB 
If a statement is preceded by a label, this 
routine generates a label macro. The gen- 
erated macro has the following format: 


byte 0 X'E2" 

bytes 1-2 x'0007! 

byte 3 x'72' 

bytes 4-6 internal representation of the 


label identifier 


The label identifier in the source text 
is replaced by the label macro. The colon 
after the label identifier is deleted. 


If the statement is a PROCEDURE state- 
ment, the symbol table entry for the entry 
name is set into the source text. 


Entry parameter: 

PIN = start address of the statement to 
be processed 

Return parameters: 

ACBLO = current block number 

EMBLO = embracing block number 

(For BLOT! refer to routine JBLT). 

ISiDr= QD 


This routine scans the source text and 
searches for identifiers. 


Entry parameter: 
PIN = start address of statement body 


PHASE PL/IB90 (PRESTATEMENT GENERATION) -- QA 


zd 


Main entry point: JSAR 


Entry parameter: 
PIN = address of the name for which the 
symbol table entry is searched. 


The routine searches for an entry in the 
symbol table and sets it into the output 
area. The entries are ordered by their 
structure levels, i.e., first all entries 
with structure level 0 (no structures or 
elements of structures) are written out, 
followed by all entries with structure 
level 1 (major structures) , level 2, level 
3, and So on. 


If the current entry is a major or minor 
structure, all entries belonging to the 
items of a given structure are inserted in 
the output area. 


If the actual entry is a minor structure 
or an element of a structure, the entry of 
the major structure is inserted in the 
output area immediately before the current 
entry. 


If the actual entry has the attribute 
CONTROLLED or DEFINED, the entry for the 
pointer or base identifier is set into the 
output area immediately before the current 
entry. For this reason, the routine JSAR 
may be called recursively. 


JRPS Routines -- QOH, QI 


Main entry point: JRPS 
Secondary entry point: JCET 


Entry parameters: 


HR 3 = entry in scope table for block 
to be read 

TABEND = end address of used part of 
table area 

TBREC1 = begin address of buffer area 1 
for reading the symbol table in 
overlapped mode. 

TBREC2 = begin address of buffer area 2 


The program reads a part of the symbol 
table. 


JBLT -- OJ 

This routine builds up the block table 
BLOT, which consists of 4-byte entries 
referred to as BLOTO ~ BLOT3. 


BLOTO is associated with the part of the 
Symbol table that contains all declarations 
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given either implicitly or contextually. Entry parameters: oo. 
(For a deScription of the symbol table TABEND = address of last valid entry in AR 
refer to phase B20.) the symbol table contained in KŻ 
the table storage 
BLOT1 is associated with the part that SAVES1 = length of part of Symbol table 
contains all declarations given explicitly to be read 
at block level 1. IJKMBC = number of blocks, i.e., number 


of entries 
BLOT2 and BLOT3 are associated with all 


parts that contain declarations at block The routine controls the scope table and 
levels 2 and 3. erases all invalid entries. 
The number of the current block is JTRA ==> OM 


entered corresponding to the level indicat- 
ed in the first byte of each entry in BLOT. Entry parameters: 


The next three bytes contain the end HR 1 = start address of information to 
address of the corresponding part of the be written 
symbol table. (The start address is con- BYZ length of the information 


tained in SCOTAB; see phase B20.) POUT next free address in the output 
buffer 

Entry parameters: 

EMBLO = number of embracing block. Return parameter: 

REBLO = number of block to be processed. POUT = next free address in the output 

TABEND = end address of entire symbol table buffer. 


in storage. 
In this routine, information is moved 
into the output buffer and the pointer for 


JSCC Routines -- OK, OL | this burrer is controlled. If a buffer 
overflow occurs, the contents of the buffer 
Entry points: JSCC and JSC1 are written out. 


2% 


& } 
EA 
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PHASE PL/IB92 (ATTRIBUTE TABLE COMPRESSION) -- RA 


Ihis phase compresses the attribute table 
constructed in the previous phase. 


In phase B90, full-length 20-byte 
entries were made into the attribute table. 
If an identifier occurs more than once in 
one statement, more than one identical 
entry has been generated for this identifi- 
er in phase B90. Phase B92 deletes all 
identical entries except the first one and 
eliminates the redundant bytes of each 
entry. 


The internal representation of the vari- 
able in the statement body is changed into 
a table lookup for the attribute table. 


Statement Attribute Table 


An attribute table is assigned to each 
Statement. It contains the attributes for 
all variables. This table is located in 
front of the statement in the source text. 
The internal representation of the variable 
is changed into an offset. 


The entries of the attribute table are 
of variable length depending on the attri- 
butes contained in these entries. If the 
variable has the attribute PICTURE, the 
entry is 18 bytes long. If the variable 
has one of the attributes DEFINED or CON- 
TROLLED, the entry is 14 bytes long. If 
the variable is a minor structure or an 
element of a structure, the entry is 1l 
bytes long. If the variable has the attri- 
bute ARRAY or STRUCTURE, the entry is 12 
bytes long. If the variable has the attri- 
bute FILE, the entry is 10 bytes long. For 
all other variables, the entry is 8 bytes 
long. 


The construction of the attribute table 
is the same as that of the symbol table, 
except that the first two bytes of the 
Symbol table are not entered in the attri- 
bute table. 


A statement has the following format 
after it has been processed by all syntax 
phases: 


A = statement identifier key (1 byte) 
a = Specification of statement 

identifier (2 bytes) 
B = prefixes (1 byte) 
b = statement flag bits (2 bytes) 
C = key for attribute table (1 byte) 
1c = length of attribute table (2 bytes) 
D = attribute table of declared 

variables (lc bytes) 
E = key for constant table (1 byte) 


le = length of the constant table(2 bytes) 
constant table of declared 


constants (le bytes) 

G = statement body 

H = endkey of statement (1 byte) 

I = byte for error flags (1 byte) 

K = level number (1 byte) 

L = block number (1 byte) 

M = statement number (2 bytes) 
N = error key, if error (1 byte) 

O = error number if any error (1 byte) 


DESCRIPTION OF ROUTINES 


Note: The following routines are described 
elsewhere as follows: 


JTRAA1 B90 OM 
MOVEA1 A50 FO 
JEOSA1 B10 HY 
JERRAT1 A50 FZ 


JCATA1 -- RB, RC 


This subroutine generates the attribute 
table. 


JCIR -- RD 


This routine changes the internal represen- 
tation of the variables into a table lookup 
for the attribute table. Note that the 
identifier key X'ET' is not changed. 


Entry parameter: 
PIN = start address of the statement body 


JCES -- RE 


Entry parameters: 

PIN = begin address of the entry to be 
compressed 

PST = address of table area into which the 
entry is moved 


Return parameters: 

HR2 - PST old. If a table overflow occurs, 
HR2 = 0. If the current entry is 
ignored, HR2 contains the address of 
the previous one. 

next free address of table area 

0 if the actual entry is ignored; 
otherwise HR! = 0. 


PST 
HR 1 


The entry of the symbol table is com- 
pressed and set into the table area. If 
the same entry was made previously, the 
current one is ignored. 
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JGOF -- RF JLEN -- RG 


AN 
E i "wo 
ntry parameters: Entry parameter: 
PIN = begin address of symbol table entry HR2 = begin address of attribute table 
Of the identifier entry 
HR2 = begin address of attribute table 
entry of the identifier Return parameters: 
PAT = next free entry in the offset table HR2 = unchanged 
HR1 = 0 if the current entry of the attri- HR1 = length of the entry 


bute table is ignored 
The length of an entry contained in the 
attribute table is calculated. 
Return parameters: 
PIN - unchanged 


HR2 - unchanged JCPI -- RH 
PAT new = next free entry in the offset 
table. Entry parameter: 


PIN - input pointer 
An offset table (OFFTAB) is generated. 


An entry of this table has a length of 4 Return parameter: 
bytes and contains the following informa- PIN new = PIN old + 20. 
tion: 
The input pointer PIN is controlled. 
Bytes 0-1: internal representation of the If, after an increase, PIN is outside the 
identifier first buffer, the remainder is moved to the 
Bytes 2-3: begin address (relative to left and a new record is read into the last 
IJKMTS) of the entry in which buffer. 
the attributes given to the 
identifier are stored. JBIPA1 - RI 


If an offset table overflow occurs, this This routine changes the pointer or base 
table is written onto SYS001. | identifier. 


AM 


Na) 
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PHASE PL/IB95 (ARRAY TABLE CONSTRUCTION) -- SA 





This phase constructs the array table ARY- 
TAB. (The phase is skipped if the source 
program contains no arrays.) For each 
programmer-defined array, a 12-byte entry 
is incorporated in the table. ARYTAB is 
written on SYS001 at the end of the phase. 


Up to three dimensions may be specified 
for an array. The format of the 12-byte 
ARYTAB entry for 1-, 2-, and 3-dimensional 
arrays is shown in Figure 1 together with 
the corresponding declarations. The infor- 
mation required for these entries is 
retrieved from the array Statements built 
up in phase B15. 


The array statement consists of two 
parts that have the following format: 


Part 1 (variable length, depending on 
attributes) 
Byte (s) Contents 

0- 5 Array Statement key 


(X'E000404...*) 
6 X'ruü' 
qo > Length of attributes 
9-10 Internal name 
11 Rightmost four bits contain the 
length of one element unless it is 
a character string 


12-14 Not used 
15 Length of one element if it is a 
character string 
16-17 Not used 
18 Current array number 
19-20 Number of elements 
21- n Other attributes 
Part 2 (21 bytes) 
Byte (s) Contents 
0 X'E1' 
1- 2 Offset to attribute table 
3 XEO" 
4- 5 Current array number 
6 X'EV" 
+= 8 Bound 1 
9 Xx ES" 
10-11 Bound 2 
12 XtEST 
13-14 Bound 3 
15-20 EOS (X'EA...") 


When an entry is made in the array 
table, the required information is 
retrieved from the array statement and the 
latter is deleted in the source text. Some 
bounds may be missing if the array state- 
ment was detected to be erroneous in phase 


B15. In this case, the entry for the array 
is set to zero. 


Phase Input and Output 


The source text is read from TXTIN. The 
text output is written on TXTOUT. It con- 
Sists of the source text without the array 
Statements.  ARYTAB is written on SYS001, 
at the end of the phase, the functions of 
TXTIN and TXTOUT are exchanged. 


DESCRIPTION OF ROUTINES 
Symbols Used in Flow Charts: 


C (CP) : contents of location 
pointed to by CP 

C(CP+6) , LENGTH 2 : contents (length 2) of 
location pointed to by 
CP+6. 


initialization == SB 

The array table is cleared and the entry 
for the array table is made in TABTAB, 
i.e., the buffer length is set to 384 and 
the transfer bit is set to zero.  BUFL is 
Set to 3*IJKMBL and ENDTS is set to the end 
address of the array table area. The 
address of the output buffer is loaded into 
BO. Ihe addresses of work buffer 1, 2, and 
3 are loaded into B1, B2, and B3. The 
begin and end address of the input buffer 
is loaded into B4 and B5, respectively. 

The output pointer OP1 is set to the begin 
address of the output buffer and input 
pointer CP is set to the beginning of the 
input buffer. 

Main Routine -- SC 
The input is scanned. If a normal F key is 
found, i.e., no end-of-program key, LENGTH 
is set to the value contained in the two 
bytes following the F key. If an EA key is 
found, LENGTH is set to 6. If an EB key is 
found, LENGTH is set to two.  UPRO is 
called after LENGTH has been set. 


If an EO key for an array statement is 
found, the array handling routine is 
called; otherwise, LENGTH is set to 6 and 
UPRO is called. If the EOP key is detect- 
ed, this key is written out. The last, not 
yet filled-up record is also written out, 
if required, and the array table that was 
built in the table area is written on 
5750014 
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(STRESS P O Toce. A EE | xU OR AAT MER ILES 1 eno 
| | One Dimension |Two Dimensions | Three Dimensions | wy 
| Byte (s) | DECLARE A (i) | DECLARE A (i, j) | DECLARE A (i,j,k) | 
pr pa LIE A O C MMC ER ER 1 
| 0-1 | Internal name [Internal name | Internal name | 
| | | | 
| 2=3 | Number of elements [Number of elements | Number of elements | 
| | | | 
| 4-5 | Length of one element |Length of one element | Length of one element | 
| | | | | 
| 6-7 | x'0000' |J | k | 
| | | | | 
| 8-9 | x'0000* Ix'0000* | 3 | 
| | | | | 
{10-11 | Negative value of |Negative value of (length | Negative value of (length | 
| | length of one element |of one element + length of | of one element + length of | 
| | |one element* j) | one element*k + length of | 
| | | | one element*k* j) | 
UOS Dee ee dL LI EE dece ii A MM EU I LM qo uc A TE en SA J 
Figure 1. Format of 12-Byte Entries in ARYTAB 
Array Handling -- SD - SF This routine moves the number of bytes 
Specified in LENGTH from the buffer address 
Entry point: C2B2 pointed to by CP to the output buffer 
address pointed to by OP1. If the output 
This routine is called if an array state- buffer is full, the write routine is 
ment is detected in the main routine, and called. 
the corresponding entry in the array table 
is built. The array statement is deleted 
in the source text and, if the first bound Write Routine -- SI p 
is zero, it is replaced by an error mes- sa 
sage. The entries in the array table are A 
generated as described in Figure |. 
Entry point: C8B2 
UPRO Input/Output Handling -- SG This routine checks whether the output 
buffer is full. If it is, the information 
Entry point: C6B2 is written on TXTOUT. The output pointer 


OP1 is reset to the beginning of the output 
At the beginning of this routine, a test is area. 
performed to determine whether the string 


to be written is contained in its full Read Routine -- SJ 
length in the work buffers. If it is not, 
LENGTH1 is set to the number of bytes not Entry point: C9B2 


yet contained and LENGTH is set to the 
number of bytes that is contained in the 


work buffers. The move and the read rou- If the input pointer CP is greater than the 
tines are called, and LENGTH is set to contents of B2, the contents of the last 
LENGTH1. If the full string is contained two work buffers and the input buffer are 
in the work buffers, the move and read moved to the beginning of the work buffers. 
routines are called immediately. The input buffer is filled with the next 
record from TXTIN. CP is decreased by the 
Move Routine -- SH buffer length and tested again. Processing 


of this routine is repeated until CP is 
Entry point: C7B2 lower than or equal to B2. 
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This phase constructs the external name 
table EXTTAB. This is done in two passes: 


1- A pretable PRETAB of the external name 
table is built up. All information to 
construct PRETAB is retrieved from 
entries in the symbol table SYMTAB that 
contain the attribute EXTERNAL. Each 
20-byte entry of the pretable contains 
the following: 


Byte O : number of record in the name 
table that contains the user- 
defined name of this identifier 

Byte 1 : entry number in this record 
(the first bit must be ignored) 

Byte 2. EE 

Byte 3- 7 : blanks 

Byte 8-19 : see external name table 


2. EXTTAB is constructed by replacing the 
first eight bytes of PRETAB by the 
user-defined name retrieved from the 
name table NAMTAB. 


The entry of NAMTAB pointed to by bytes 
O and 1 of PRETAB is searched, and the 
user-defined name is translated into the 
external code and inserted into bytes 0-7. 
If the name is shorter than 8 bytes, the 
remainder is filled with blanks. If the 
name is longer than 6 bytes, a warning 
message is generated. If the name is 
longer than 8 bytes, the rest is ignored 
and an error message is generated. These 
messages are inserted behind the first 
PROCEDURE statement of the source text. 


For a description of the information 
contained in the external name table, refer 
to phase G55. 


t of the Phase: Symbol table SYMTAB on 
SYS001, name table NAMTAB on SYS001, and 
Source text on TXTIN. 
Output of the Phase: External name table 
EXTTAB on SYS001 and source text on TXTIN. 


The symbol table is read from SYS001 into 
buffers B3 and Bü. The table space and the 
buffers BO to B2 are divided into sections 
that have the length of a buffer. The 
entries built up for the pretable are moved 
into these sections. If an overflow 
occurs, the pretable is written onto 
IXTOUT. When the last symbol-table record 
is processed, two cases are to be distingu- 
ished: 


1. The pretable is still in storage and 


a. the remaining storage is equal to 
or greater than 2048 bytes. (The 
name table has the record length of 
1024 bytes). The name table is 
read in overlapped mode from 
SYS001. 

b. the remaining storage is equal to 
or greater than 1024, but less than 
2048 bytes. The name table is also 
read in from SYS001, but not in the 
overlapped mode. 


The external name table is built in 
storage and, at the end of the phase, the 
table is written onto SYS001. 


2. A table overflow has occurred and the 
pretable is written onto TXTOUT. In 
this case, the records of the pretable 
are read from TXTOUT and the records of 
the name table, pointed to by byte 0 of 
the entries of the pretable, are read 
from SYS001. Each processed record of 
the pretable is written onto SY5001. 


If an external name longer than six 
bytes is detected, the source text is read 
from TXTIN, a warning or error inessage is 
inserted, and the text is written onto 
TXTOUT. 


DESCRIPTION OF ROUTINES 


Text in flow charts: 
C(GCP) := Contents in location GCP points to 


DA —— M Á—M MÀ M a R M n À—— A —MÀ—— À ——À— 


GBUFCOUN - contains number of records that 
fit into the table area. 

GCOUNTER - contains number of entries of 
one symbol-table record. 

GCOUNT 1 - See GCOUNTER. 

GCP - input pointer 

GEND - contains end address of pretable 
area. 

GLEN - contains number of table-area 
bytes available for use. 

GLENGIH ~ contains length of respective 
name in name table. 

GNUMELE - contains address in name table 
where the name to be searched 
can be found. 

GPTCOUN -~ contains number of buffers used 
for pretable area. 

GPUTCOUN - contains number of records writ- 
ten onto TXTOUT. 

GREADR - contains number of records to 


Of records read. 
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GREST 1/2 
GTABLEA 


contains remainder. 

contains the begin address of 

pretable area. 

GTP - table-area pointer, (i.e., 
points to the next available 
location). 

GBn - contains address of buffer n. 

GWEI if switch GWEI is on, input is 

done in non-overlapped mode. 

if switch GWEICHE is on, input 

is read into the buffer pointed 
to by GB4; otherwise, into the 
buffer pointed to by GB3. 


t 


GWEICHE 


Initialization -- SN 


In this routine, some counters, switches, 
and buffers for values, addresses, and 
input/output handling are defined and set 
to their initial values. 


PRETAB_SYMTAB Routine -- SO 


The symbol table is read and the entries 
with the attribute EXTERNAL are stored in 
the pretable. If an overflow of the preta- 
ble occurs, pretable is written onto 
TXTOUT. 


Pretable-in-Storage Routine -- SP and SQ 


This routine is called if all entries of 
the pretable are in storage. The first 
record of the name table is read. The 
pretable is scanned for entries pointing 
(by the first byte) to the current record 
of the name table. If an entry is found, 
the user-defined name (pointed to by the 
second byte of the pretable entry) is moved 
from the name table into the pretable entry 
and translated into the external code. If 
the end of the pretable is reached, the 
next record of the name table is read and 
the pretable is scanned once more. This 
process is repeated until the end of the 
name table is reached. When the end of the 
name table is reached, the pretable area 
contains the complete external name table, 
which is written onto SYS001. 


Pretable-not-in-Storage Routine -- SR 


This routine is called if a pretable over- 
flow has occurred in the PRETAB SYMTAB 
routine. The pretable is read from TXTOUT; 
the name table is read from SYS001. The 
record and the entry of the name table 
pointed to by the first two bytes of each 
pretable entry are searched and the con- 
tents (the user-defined name) are inserted 
into the pretable and translated into the 
external code. If one record of the preta- 
ble is processed, the record is moved into 
the output buffer and written onto SYS001. 
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 SUBROUTINES 


The following subroutines used in this 
phase are described elsewhere as follows: 


Sa ME O RRT A ARIN A TM ZOE 
[Entry | | | 
[Point | Name | Phase | 
------- }~-------------------}-------| 
| C6B2 | UPRO {Input/Output | B95 | 
| | Handling) | | 
| C9B2 | Read Routine | B95 | 
A O E E AA J 
GWORK Routine -- SS 


Entry point: GB8A2 


If the record of the name table pointed to 
by the first byte of the current pretable 
entry is found, this routine is called. It 
scans the name table for the user-defined 
name pointed to by the second byte of the 
current pretable entry. When found, its 
length is tested. If it is greater than 8, 
the ERROR switch is set on and the length 
of the name is set to eight. If it is 
greater than 6, a Warning message is pre- 
pared. The user-defined name is moved into 
the current pretable entry and the remain- 
ing bytes are filled with blanks. 


PUT Routine -- ST 


Entry point: GB9A2 


This routine writes the external name table 
onto SYS001, 


Move Routine -- SU 
Entry point: GBAB2 


This routine moves the contents of the 
symbol table used for the external name 
table into the corresponding pretable 
entry. 


Write Routine -- SV 
Entry point: GB3A2 


This routine is called by the PRETAB SYMTAB 
routine 


1. when the area reserved for the pretable 
is filled and one more record must be 
moved into the pretable area and 


2. when the end of the symbol table is 
reached and a pretable overflow has 
occurred. 


GBUFCOUN contains the number of records 
of PRETAB, which are written by this rou- 
tine onto TXTOUT. 








~ 
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Read Routine -- SW 
Entry points: GBUA2, GBLAS 


This routine is used in the PRETAB SYMTAB 
routine to read the symbol table and in the 
PRETAB-in-Storage routine to get the 
records of the name table. 


Entry point: GB4YA2 is used (1) to read the 
first two records of a table while the 
following records are read in overlapped 
mode, and (2) to read all records of a 
table that are not to be read in an over- 
lapped mode. 


Entry point: GB4A5 is used to read the 
third and all following records in over- 
lapped mode. The input buffers are B3 and 
Bü, and the buffer handling is controlled 
by the switch GWEICHE. 


If the error or warning switch is on, the 
error handling routine is called. Phase 
COO is called and the text files are 
exchanged. Otherwise, one of the phases 
C00, C25 or C30 is called. 


Entry point: COB2 


This routine is called if an error or warn- 
ing message is to be generated. The source 
text is scanned for the first EA-key, 

(1.e., the EA-key of the PROCEDURE 
Statement). The warning or error message 
is inserted behind this key. All other 
text remains unchanged. 
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PHASE PL/ICO0 (SYMBOL TABLE LISTING) -- TM 


This phase prints the symbol table, which 
contains all identifiers with their expli- 
citly, contextually, and implicitly 
declared attributes. The listing is 
arranged according to the block numbers. 


This phase is skipped if the Job Control 
SYM option is not active. However, it is 
not skipped in that case if (1) an incor- 
rectly declared variable is detected, (2) a 
qualified name is not declared, or (3) an 
external name is longer than 6 characters. 
At the end of this phase, phase C25 is 
called if the source program contains IF 
Statements. If no IF statements are to be 
processed, phase C30 is called. 


All messages to be printed (except the 
user-defined name) are retrieved from SYM- 
TAB. The user-defined name is retrieved 
from NAMTAB according to the compressed 
name in SYMTAB (bytes 0-1). If the inter- 
nal representation of a name is zero, if a 
name is longer than 31 characters, or if an 
external name is longer than 8 characters, 
only the user-defined name and an error 
message are printed. 


The number of NAMTAB records that can be 
Stored in the work area (see the section 
Initialization -- TN) is referred to as K. 
If NAMTAB does not contain more than K 
records, each block of SYMTAB has to be 


Scanned only once. 


If NAMTAB has more than K records, SYM- 
TAB is first written onto TXTOUT. The 
beginning of each SYMTAB block is noted 
simultaneously. When scanning the iden- 
tifiers of one SYMTAB block, all parts of 
NAMTAB must be successively moved into the 
WOrk area until all entries of the block 
have been listed. 


Amm sereme Cor GDA A REZ WIEZY 


The input used by this phase consists of 
the tables SYMTAB and NAMTAB (contained on 
SYS001) . The format of the symbol table 
listing is described in detail in the PL/I 
Programmer's Guide. 


Buffers and Switches 


Buffers 1 - 3 are used as the last part of 
the work area. 

Buffer 4 = buffer A 

Buffer 5 = buffer B and print buffer 

Buffer 6 = buffer C 


Switch NAMIN is set if the entire NAMTAB 
can be stored in the work area. 





DESCRIPTION OF ROUTINES 
initialization. ==> TN 


The work area is used to store NAMTAB or 
parts thereof. Space S accommodates parts 
of the phase (beginning with WBEG1), the 
table space, and the first three buffers. 


If NAMTAB can be entirely stored in 
Space S, the work area is equal to space S. 
If not, the note information on the begin- 
ning of each SYMIAB block is stored in the 
beginning of space S. The remaining space 
of space S is used as work area. 


Note Blocks of SYMTAB -- TO 


SYMTAB is read into buffers A and B and 
written onto TXTOUT. The beginning of each 
SYMTAB block on TXTOUT is noted. 


Store K Records, of NAMTAB in Turn -- TP 


Up to K NAMTAB records are read into the 
work area each time. The smallest and 
greatest number of NAMTAB records in stor- 
age are noted in MIN and MAX. Scanning of 
a SYMTAB block starts with MIN-1 and MAX-K. 
The records of a SYMTAB block are read into 
buffer A and scanned for entries the names 
of which are in the part of NAMTAB that is 
in the work area. 


If the buffer pointer points to the end 
of the SYMTAB block and all entries of the 
block have been listed, scanning of the 
next SYMTAB block is started. Otherwise, 
MAX and MIN are increased by K. The next 
records of NAMTAB are read into the work 
area, and scanning of the same SYMTAB block 
Starts again. 


Store Entire NAMTAB -- TO 


Switch NAMIN is set and the entire NAMTAB 
is read into the work area.  SYMTAB is 
successively read from SYS001 into buffers 
A and C. 


User-Defined Name, Error Message -- TR 


The entry of a user-defined name is 
retrieved from the work area. The name is 
moved into the print buffer and translated 
from internal code into EBCDIC. If the 
name is longer than 31 characters or if its 
internal representation is zero, the name 
is printed with an error message. 
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Start Fetching Attributes -- TS 


Ihe entry of the identifier in SYMTAB is 
Scanned for attributes. If the identifier 
is an external name of more than 8 charac- 
ters in length, the name and an error mes- 
Sage are printed. If the identifier is a 
built-in function, only the name as well as 
the block and level number are printed. In 
all other cases, the internal representa- 
tion and the block and level number of the 
identifier are moved into the print buffer. 
It is tested whether the identifier is an 
array, a Structure, or an entry name. 


Arithmetic and String -- TT 

Base, scale, and precision of an arithmetic 
identifier are moved into the print buffer. 
Types and length of a string identifier are 
also moved into the print buffer. 


End of Fetching Attributes -- TU 


Fetching of attributes of the identifier 
from its entry in SYMTAB is terminated. 


oubroutines -- IV 


Work up precision w or length 1 
Entry point: WSRBO1 


Input parameters: 
R3 points to the entry of the identifier in 
SYMTAB. R11 points to the print buffer. 


Precision w or length l is retrieved 
from the entry of the identifier in SYMTAB, 
converted to its decimal value, and moved 
unpacked into the print buffer. 


Suppress leading zeros 
Entry point: WSRBO2 


input parameter: 
R2 points to the number to be checked. 


Leading zeros of the number to be checked 
are replaced by blanks. 
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PHASE PL/IC25 (IF STATEMENT) -- T7 


This phase is called if the source program 
contains IF statements. Phase C25 


e analyzes all IF nests, 


e replaces all IF statements with IFFALSE 
Statements, 


e generates certain macros, 


e detects any incorrect IF nesting or any 
incorrect use of ELSE. 


Phase Input and Output 


The input is a string of unambiguous 3-byte 


elements and elements of variable length 
(See output of phases A60/A65). During 
phases A60/A65, IF statements were made 
non-recursive by replacing each THEN by an 
EOS (End of Statement) and by placing an 
EOS after each ELSE, thus making ELSE a 
"statement." 


The output is similar to the input 
except that few additional types of state- 
ments and/or macros have been added or 
substituted. 


STATEMENTS AND MACROS PUT OUT BY C25 


The IFFALSE Statement 


Mam rp t e R Daten i ar AC rz eim ma 


Meaning of the IFFALSE statement: 
If expression yields FALSE, go to nL. 


This statement is substituted for each 
IF statement and is of the following for- 
mat: 


Po R? qoc esr i dried UMEN 
|IFFALSE|statement  |expression|EOS| 


| lattr. table] | | 
Laia a a qd Za sz l4 


where IFFALSE is the statement identifier, 
identical to the statement identifier IF. 
nL is a generated label of the following 
format: 


Byte (s) Contents 
1 key X'EE' 
23 number of the generated label. it 
is obtained by adding 1 to counter 
IJKMVC each time the label gener- 
ating routine is called. 
4 key X'EE' 
5-6 X'0069' (indicates that the gener- 


ated label is a label constant) 


expression is the original expression 
transformed into 3-byte elements and/or 
elements of variable length. 


The DEFINE LABEL Macro 


The definition-point of a generated label 
is indicated by a DEFINE LABEL macro. The 
format of the DEFINE LABEL macro is as 
follows: 


Byte (s) Contents 

1 macro key X'F2' 

253 length of the macro 

4 key X'72*' indicating that this 
macro is of the type DEFINE LABEL 

5 key X'BB' (in DEFINE LABEL macros, 
generated label constants have the 
key X'BB' instead of X'EE') 

6-7 number of the generated label 


The BRANCH Macro 


Meaning of the BRANCH macro: branch to the 
generated label specified in bytes 6 to 8 
of the macro. 


The format of the BRANCH macro is as 
follows: 


Byte (s) Contents 
1 macro key X'F2' 
253 length of the macro 
4 key X'70' indicating that this 
macro is of the type BRANCH 
> X'OF' (code for unconditional 
branch) 
6 key X'EE' 
178 number of the generated label 
9-11 modifiers (here always 0) 


Sample Input and Output of Phase C25 


e Statements have statement identifiers 
consisting of capital letters (for 
instance: IFFALSE, SET, READ, etc.) 


e Macros are identified by lower case 
letters (for instance: define label, 
branch). 


e Generated labels are written like 1L, 
2L, 3L etc. 


Note that the input and the output 
actually consists of a string of 3-byte 
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elements and/or elements of variable 


length, 


Input 


IF ex1; 

SET A=B; 
ELSE; 

SET C=D; 


IF ex1; 
SET A=B; 
SET C=D; 


IF ex1; 
IF ex2; 
IF ex3; 
SET C-D; 


IF ex1; 
IF ex2; 
SET A=B; 
ELSE; 
SET C=D; 


IF ex1 ; 
BEGIN 
alpha 
END ; 

SET A-B ; 


bi 


DO s 

IF ex1 ; 
BEGIN ; 
alpha 
END ; 

ELSE 3 
BEGIN ; 
beta 


END ; 


gamma 
END ; 


Output 


IFFALSE 1L ex1; 
SET A=B; 

branch 2L 
define label 1L 
NOP; 

SET C=D; 

define label 2L 


IFFALSE 1L ex1 
SET A=B; 

define label 1L 
NOP; 

SET C=D; 


IFFALSE 1L ex1; 
IFFALSE 2L ex2; 
IFFALSE 3L ex3; 
SET C=D; 

define label 3L 
NOP; 

define label 2L 
NOP; 

define label 1L 
NOP; 


IFFALSE 1L ex1; 
IFFALSE 2L ex2; 
SET A=B; 

branch 3L 
define label 2L 
NOP ; 

define label 1L 
SET CSD s 
define label 3L 


IFFALSE 1L ex1 
BEGIN ; 

alpha 

END 3 

define label 1L 
SET A=B 3 


DO 

IFFALSE 1L ex1 
BEGIN ; 

alpha 

END ; 

branch 2L 
define label 1L 
NOP ; 

BEGIN ; 

beta 

END ; 

define label 2L 
gamma 

END 3 


, 


, 


Phase Performance: 


Each encountered statement is tested to 
determine whether 1t 


e is an "End of Unit 1", or 


e is immediately following an "End of Unit 
1", or 


e is an "End of Unit 2". 


If the statement is of the "End of Unit 
1"-type, the last entry in the symbol stack 
(presumably IFPH4, standing for "IF") will 
be replaced by IFPH3 (standing for "End of 
Unit 1"). If there are several consecutive 
IFPH4 entries in the stack, each of them 
will be replaced by an IFPH3. Then the 
statement will be put out. 


If the statement immediately follows an 
"End of Unit 1", as many macros, define 
labels, and FALSE labels are put out as 
there are consecutive IFPH3 entries in the 
symbol stack. The FALSE labels will be 
taken from the label stack. Then the 
statement will be put out, or new state- 
ments are generated for IF and ELSE. 


If the statement is of the "End of Unit 
2"-type, the statement will be put out, now 
followed by a macro, a define label, and an 
EXIT label. The EXIT label is taken from 
the label stack. 


Processing of the Input Stream 


If a DO or BEGIN statement is encountered, 
the corresponding one-byte symbol IFPH1 or 
IFPA2 is entered into the symbol stack. 
Then the statement is tested and processed 
as described in Phase Performance. 


If an END of group or END of block is 
encountered, the corresponding symbol IFPH1 
or IFPH2 is eliminated from the symbol 
Stack. Then the statement is tested and 
processed as described in Phase Perfor- 
mance. 


If an IF statement is encountered, the 
Symbol IFPH4 is entered into the symbol 
stack and the statement is then processed 
as described in Phase Performance. A label 
KL is generated, entered into the label 
stack, and the statement --IFFALSE KL 


expression;-- is put out. 


If an ELSE statement is encountered, the 
last entry in the Symbol stack is replaced 
by IFPH5, a label nL is generated, a -- 
branch nL;-- is put out, the last entry in 
the label stack mL is used to put out 
define label mL, and the generated label nL 
is entered into the label stack. 


Phase PL/IC25 119 


PL/I PLM 8 


IBM Confidential 


An END of procedure is subject to a 
specific test, for it may never be used as 
a "Unit 1" or "Unit 2" in an IF statement. 
In this case an error message is given. 


Tables and Pointers 


Niki Ree Ed ALA AW RY ER" RY OMAN EE A amas 


Two push down stacks are used: a symbol 
stack and a label stack. 


The symbol stack IFPH86 consists of 100 
one-byte elements.  IFPH86 is used to store 
the following symbols: 


IFPH1 for DO 

IFPH2 BEGIN 

IFPH3 > "End of. Unit 17 
IFPH4 IF 

IFPH5 ELSE 


The pointer to IFPH86 is the symbolic 
register R7. 


The label stack IFPH87 consists of 100 
half-word elements, and is used to store 
generated labels (FALSE labels as well as 
EXIT labels). The pointer to IFPH87 is the 
symbolic register R6. 


DESCRIPTION OF ROUTINES 


Note: A routine is called 'open' if it 
gets control by a B instruction. A routine 
is called 'closed' if it gets control via a 
BAL instruction, and if control is returned 
by a BR instruction. 


IFPH -- UA 


This is the "master program" of phase C25. 
IFPH initializes pointers, registers, etc. 
and reads the first 4 records into input 
buffers 1 to 4. 


IFPH scans the input until a statement 
identifier is found. Upon this, the Define 
Label macros (which may precede the 
Statement), the statement identifier, and 
the statement attribute table are put out. 
Depending on the encountered statement, one 
of the following routines is called: 


Statement: Called routine: 
IF IFIF 
BEGIN BEBE 
DO DODO 
END (of BEGIN block) BLB L then EOST 
END (of DO group) GRGR 
ELSE ELEL 
Any other statement: VIRGO, 

then NSNS, 

then EOST. 


After return of control to IFPH, the 
Scan is continued. If the end of program 
is reached, TEPHA is called. 
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BEBE, DODO -- UN (Closed) 


BEBE puts IFPH2 (symbol for "BEGIN") into 
the symbol stack. If this is the first 
entry into the symbol stack, the statement 
body is put out and the program returns. 
Otherwise, the preceding entry in the sym- 
bol stack is tested. If this is IFPH3 
(symbol for "end of unit 1"), FOUT is 
called to put out a "Define Label" macro. 
The operand of this macro is the last entry 
in the label stack. Then IFPH3 is replaced 
by IFPH2. The stack pointer R7 is decre- 
mented by 1, the statement body is put out, 
and the symbol stack entry currently 
selected by R7 is tested as described. 


If the tested entry in the symbol stack 
is not IFPH3, the statement body is put out 
and the program returns. 


DODO performs the same as BEBE but uses 
IFPH1 instead of IFPH2. 


BLBL -- UO (Closed) 


The last entry in the symbol stack is test- 
ed. If this entry is IFPH3 (symbol for 
"end of unit 1"), a Define Label macro is 
generated. The operand of this macro is 
the label stack entry selected by label 
Stack pointer R6. Then R7 is decremented 
by 1 and R6 is decremented by 2. Then the 
symbol stack entry currently selected by 
pointer R7 is tested as described. 


if the tested entry in the symbol stack 
is IFPH4 (symbol for "IF"), it is replaced 
by IFPH3. R7 is decremented by 1. Then 
the symbol stack entry currently selected 
by pointer R7 is tested as described. 


If the tested entry in the symbol stack 
is IFPH5 (symbol for "ELSE"), the statement 
body and a DEFINE LABEL are put out. The 
operand of the DEFINE LABEL is the label 
Stack entry selected by R6. 


BSAC (Closed) -- UF 


The routine initiates output of the state- 
ment attribute table for the currently 
processed statement. 


BYPA (Closed) -- UD 


Ihe routine puts out either the one part of 
the statement attribute table that contains 
attributes of variables, or the other part 
which contains attributes of constants. 
Then the statement body is positioned to 
Start in input buffer 1. 


DPDS (Closed) -- UJ 


DPDS compares the symbol stack entry cur- 
rently selected by R7 with the argument in 
Ry. RU contains a symbol (either IFPH1 for 
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"DO" or IFPH2 for "BEGIN"j. If the symbol 
stack entry matches the argument in R4, the 
entry is deleted and pointer R7 is decre- 
mented by 1. 


If entry and argument do not match, the 
Search continues until a matching entry is 
encountered. Then the matching entry is 
deleted. All symbol stack entries at a 
higher level than the matching entry are 
moved down one position. Pointer R7 is 
decremented by 1. 


ELEL -- UK (Closed) 


ELEL generates a label and puts out a 
Branch macro with the generated label as 
operand. The generated label is stored in 
ELEL2. Then a Define Label macro with the 
last entry in tbe label stack as operand, 
followed by NOP, is put out. The latest 
Label Stack entry is replaced by the label 
stored in ELEL2. IFPH5 (symbol for "ELSE") 
is entered into the symbol stack. Finally, 
a NOP statement is put out. 


ERROR, JERRAT (Closed) -- US 


This routine is described in phase A35. 


EOST, JEOSA1 (Closed) -- UR 


Ihe routine arranges the contents of the 
input buffers 1 to 4 so that the currently 
Scanned EOS is in input buffer 1. This is 
done by moving and reading new records. It 
puts out the EOS and the attached error 
codes. Any additionally generated error 
codes are also put out. 


FOUT (Ciosed) -- UP 


The routine puts out a Define Label macro. 
The operand of this macro is the last entry 
of the label stack. Stack pointer R6 is 
decremented by 2. 


GEOS (Closed) -- UG 

The routine moves the input pointer PIN 
until an EOS is encountered. The address 
of the byte preceding this EOS is stored in 
IFPH96. 

GRGR -- UO (Closed) 

Entry point to BLBL. 


GSN (Ciosed) -- UH 


GSN moves the statement identifier of the 
current statement into GSN4. It returns to 
4 (O,LINK) if the statement is correct. 
Otherwise, it returns to (LINK). 


IEIE == HI Closed) 


IFIF tests the symbol stack entry currently 
selected by R7. If this entry is IFPH3 
(symbol for "end of unit 1"), a Define 
Label macro is generated. Ihe operand of 
the Define Label macro is the label stack 
entry currently selected by R5. Then R7 is 
decremented by 1 and R5 is decremented by 
2. The symbol stack entry currently 
selected by R7 is tested as described. 
Otherwise, a label is generated, stored in 
the label stack, and put out followed by 
the statement body (see description of 
IFFALSE statement). 


IPDS (Closed) >+ UL 


IPDS increments stack pointer R7 by 1 and 
enters the rightmost byte in RO into the 
Symbol stack. 


JTRNA1 (Closed) -- UQ 


This is the output routine. Register BYZ 
contains the number of bytes to be put out; 
register PIN contains the start address. 
One output buffer is used. 


If the remaining portion of the string 
to be put out is smaller than the remaining 
unoccupied space of the output buffer, the 
String is moved into the buffer.  BYZ is 
added to POUT to update the output pointer. 


If the string to be put out exceeds the 
unoccupied space, an appropriate portion of 
the string is moved to fill the output 
buffer to its capacity. Then the contents 
of the buffer are written onto the output 
medium.  POUT is reset to the start address 
of the buffer.  BYZ is decremented by the 
number of bytes moved into the buffer, and 
PIN is incremented by that number. Then 
JTRNA1 is repeated until output is complet- 
ed. 


LGEN (Closed) -- UC 


LGEN generates a label and enters it right- 
justified into register R1. The format of 
the generated label is shwon in Figure 1. 
MAMA (Closed) -- UT 

This routine puts out 

1. Label list 

2. Statement identifier 

3. Statement attribute table 

NSNS -- UO (Closed) 


Entry point to BLBL. 
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POB (Closed) -- UF 


When POB is called, R2 contains the start 
address and R1 the end address of a string 
to be put out. POB is an "interface" to 
the routine JTRNA1 which requires the start 
address and the length of a string to be 
put out. POB performs the necessary 
transformations. 


STEP (Closed) -- UE 


STEP tests the high-order 4 bits of the 
byte selected by PIN. If these bits are 
Set to X'E', PIN is incremented by 3. If 
these bits are set to X'F', PIN is incre- 
mented by the contents of the two bytes 
following the byte selected by PIN. If 
these bits are set to any other value, a 
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compiler error occurred and a dump is ini- 
tiated. 


VIRGO -- UM (Closed) 


The symbol stack entry currently selected 
by R7 is tested. If this entry is IFPH3 
(symbol for "end of unit 1"), a Define 
Label macro is generated. The operand of 
this macro is the label stack entry cur- 
rently selected by R6. R7 is decremented 
by 1 and R6 is decremented by 2. Then the 
symbol stack entry currently selected by R7 
is tested as described. If the selected 
entry is not IFPH3, VIRGO returns to either 
4 (O,LINK), if only one test has been per- 
formed, or (LINK) if more than one test has 
been performed. 
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PHASE PL/IC30 (PROCESSING CONSTANTS I) -- WA 





This phase performs the following func- 
tions: 


1. It scans all constants for acceptable 
precision. 


2. It replaces the external format of the 
constants by an intermediate one. 


3. It builds up the constant tables as 
part of the statement attribute tables. 


Note: The character strings have already 
been processed in phase A45. 


If a constant is preceded by a prefix 
plus or minus, this sign is removed from 
the source text, and a corresponding sign- 
bit is set in the constant table. 


Phase Input and Output 


Ihe text input consists of a sequence of 
Statements terminated by the end-of-program 
key. Each statement is composed of the 
following elements: 


1. The statement identifier key (6 bytes) 
which may be preceeded by one or more 
label macros. 


2. The symbol table, if there are any 
variables in the statement. 


3. The statement body. 


4. The end-of-statement key (6 bytes) 
which may be followed by one or more 
error-keys (2 bytes). 


The statement body consists of elements 
which formally may be distinguished by 
E-keys (3 bytes) and F-keys (variable 
length). The constants are interspersed 
within the statement body and contain the 
following information: 


e one of the six constant keys, the dif- 
ference depending on the type of con- 


Stant: 

X'F7' = decimal fixed-point constant 
X'F8' = decimal floating-point constant 
X'F9' = binary fixed-point constant 
X'FA' = binary floating-point constant 
X'FB' = bit-string constant 

X'FC' = sterling constant 


e the length of the constant 
and 


(2 bytes), 


e the constant. 


The character strings have already been 
processed in phase A45 and are collected in 
the character-string table on SY5001. 
Within the statement body they are replaced 
by a reference key that consists of the 
following: 


e Key ‘character string" = X'E3' 

e Offset, relative to the start of the 
character string table (2 bytes) 

e Key ‘character string’ = X'E3' 


e Error-byte 


X'00' if no error 

bit 0 set to 1 if error 55 

bit 1 set to 1 if error 56 
AY 5) 

bit 2 set to 1 if error 67 


(see phase 


e length of the character string (1 byte) 


Like the input, the output consists of a 
sequence of statements, terminated by the 
end-of-program key. Each statement is 
composed of the following elements: 


1. The statement identifier key (6 bytes) 
which may be preceded by one or more 
label macros. 


2. The symbol table, if there are any 
variables in the statement. 


3. The constant table, if there are any 
constants in the statement. 


4. The statement body. 

5. The end-of-statement key (6 bytes) 
which may be followed by error-keys (2 
bytes). 


The constant table consists of the fol- 
lowing: 


e Constant-table key = X'F3' (1 byte), 


e Length of the constant table 
and 


(2 bytes), 


e one or more constant entries. 


Each entry of the constant table con- 
tains the following: 


e Internal name of the constant (2 bytes) 


(N = IJKMVC, which is increased by 1 for 
every constant). 
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e Attributes of the constant (inserted and 
used by following phases, here initial- 


ized with x'10') (1 byte). 
e Type of the constant (1 byte) 
X'60' = binary float 
X'61' = binary fixed 
X'62' = decimal float 
X'63' = decimal fixed 
X'67' = pit string 


Note: Sterling constants are stored as 
decimal fixed-point pence. 





e Precision of the constant (1 byte) 


if binary float: P(0<P<53) 

if binary fixed: P(0<P<31) 

if decimal float: P<(0<P<17) 

if bit string: P(0<L<64) 

if decimal fixed, bits 0-3: 
bits 4-7: 


P (0<P<15) 
O (0<Q<P ) 


e Three bytes containing zeros, used by 
following phases for "new type and pre- 
cision." The first bit is set to 1, if 
the constant is preceded by a prefix 
minus. 


e Length of the intermediate representa- 
tion of the constant (2 bytes). 


e Intermediate representation of the con- 
Stant, depending on the type of con- 
Stant: 


binary float 


binary integer contained in a field of 4 
bytes (if P<21) or 8 bytes (if P»21), 
followed by a binary integer (2 bytes) 
representing the binary exponent. 


decimal float 


decimal integer in packed decimal format 
(length of field = FLOOR (P+2/2)), fol- 
lowed by a binary integer (2 bytes) 
representing the decimal exponent. 


binary fixed 
32-bit binary format (see IBM 


System/360, Principles of Operation, 
Form A22-6821) 





decimal fixed 


packed decimal format (see IBM 





————— "d znika iw QNID. A AME ED ES 


Length of field = FLOOR 
(P*2/2). 


Note: Ihe position of the decimal point 
is recorded by the scale factor Q. 
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bit string 





byte-aligned, one binary digit per bit. 


Within the statement body, the constant 
has been replaced by the reference key. 
This key consists of the following: 


e Key 'constant reference" = X'E9' (1 
byte). 


e Internal name of the constant 
stant table) (2 bytes) 


(see con- 


The character strings are referenced by 
key containing the following: 


w 


e Key ‘character string' = X'E3" (1 byte). 

e Offset relative to the start of the 
character string table (2 bytes). 

e Key 'character string' = X'E3' (1 byte). 

Length of the character string (2 
bytes). 


DESCRIPTION OF ROUTINES 
Initialization -- WB 


This is the beginning of the main routine. A 
It initializes pointers, switches etc. CEN 
Then it reads in four buffers of input 

text. 


FCSC -- WC, WD 


This is part of the main routine. It per- 
forms a general scan over the source text. 
The labels, the statement identifier, and 
the attribute table are moved into the 
output buffer. The length of the attribute 
table is saved in STABL; the begin address 
of the statement body is saved in PINS. 
The statement body is scanned for con- 
Stants, which are processed in FCON. If 
errors are detected in the character 
strings, the corresponding error codes are 
moved into the error table. When the end- 
of-statement key has been reached, control 
is transferred to FEST. 


Input parameter: 
PINS - address of the beginning of the 
Statement body. 


This is part of the main routine. It moves 
the constant table (if constants exist in 
this statement) into the output buffer. 

The constant table is followed by the 
Statement body in which the constants are 
replaced by 3-byte reference keys. 
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Input parameters: 


RLEN = (register) length of external rep- 
resentation of constant. 

PIN = (register) address of constant key. 

PTAB = (register) constant table pointer. 


TABL = (half-word) length of constant table 
+ length of symbol table. 


Output parameters: 

PIN = PIN + length of constant key. 

PTAB = points to the next available byte in 
the constant table. 

TABL + length of the last entry 
processed. 


[I 


TABL 


By means of one of the called routines, 
the constant is scanned for acceptable 
precision. Type and precision are entered 
in the constant table with the constant 
itself in its intermediate representation. 
The constant table entry is completed by 
entering the internal name, the attribute 
byte, the three 0-bytes, ana the length of 
the intermediate representation. 


If IJKMVC is greater than 232-2, it is 
reset to 0, and an error nessage is pro- 
duced. The Same error message iS generated 
in the case of a table-space overflow (TABL 
must not be greater than the table space), 
furthermore, PTAB and TABL are not 
increased. 


Finally the constant key is replaced by 
the constant reference key and as many 
blanks as are needed to overlay the con- 
stant in its external format. These blanks 
are eliminated in FEST. If the constant is 
preceded by a prefix plus or minus, the 
minus sign is taken into account by setting 
the first bit of the 3 zero-bytes to 1. 

Ihe prefix signs are then removed from the 
source text by overlaying them with the 
constant key and replacing all bytes of the 
constant by blanks. 


Routine FBFL -- BI 


Input parameters: 

R1 — address of the constant in its 
external format 

RLEN length of the external format 

PTAB = pointer to the constant table 


l! 


Output parameters: 

PTAB = unchanged 

RLEN = length of the intermediate represen- 
tation of the constant 


This routine processes the binary 
floating-point constants. The precision of 
the constant is determined in FPFL. If 
there are more than 53 binary digits (error 
number 58), the constant is truncated on 
the right, the exponent is increased 
accordingly, and JERR is called. The expo- 


nent of the intermediate representation is 
obtained by subtracting the number of 
digits specified after the binary point 
from the exponent specified by the program- 
mer. The binary digits of the external 
format (each digit occupying one byte) are 
condensed to a bit string (each digit 
occupying one bit) in FBIN. The constant 
is stored in the constant table. 


Routine FRE] == WM 
Parameters: same as in FBFL. 


This routine processes the binary fixed- 
point constants. If there are more than 31 
digits (error number 62), the constant is 
truncated on the right, and JERR is called. 
The binary digits of the external format 
(each digit occupying one byte) are con- 
densed to a bit string (each digit occupy- 
ing one bit) by means of FBIN. 


Routine FDFL -- WK 
Parameters: same as in FBFL. 


This routine processes the decimal 
floating-point constants. The constant is 
stored as a decimal integer followed by an 
exponent. This exponent is obtained by 
reducing the exponent specified by the 
programmer by the number of digits after 
the decimal point. If there are more than 
16 digits (error number 58), the number is 
truncated on the right and the exponent is 
increased by the number of digits being 
truncated. 


ROUTING: PDFL-=e= WN 


Parameters: same as in FBFL. 


This routine processes the decimal 
fixed-point constants. If there are more 
than 15 digits (error number 63), the con- 
Stant is truncated on the right. 


Routine FBST == WL 
Parameters: same as in FBFL. 


This routine processes the bit string 
constants. If a replication factor greater 
than 1 has been specified, the bit string 
is expanded accordingly. Bits exceeding 64 
are truncated (error number 56). 


Routine FSTL -- WJ 
Parameters: same as in FBFL. 


This routine processes sterling con- 
Stants. The constant is converted to and 
stored as decimal fixed-point pence. The 
conversion is done by the instructions ADD 
and MJLTIPLY DECIMAL; if, however, the 
decimal feature is not available, these 
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instructions must be simulated. The preci- 
sion of the constant is taken from the 
converted number; leading zeros are 
ignored. If more than 15 significant 
digits have been obtained (error number 
61), the decimal fixed-point pence number 
is truncated on the right. 


Routine FPFL -- WI 

Inpek- parameters: 

R1 = address of the constant in its 
external format 


RLEN = length of the external format 


Output parameters: 


R1 = unchanged 

REXP - exponent specified by the programmer 

RLEN = number of digits specified for 
fixed-point portion of constant (P) 

RQ = number of digits specified after 


decimal (binary) point (Q) 

This routine scans the preciSion and the 
exponent of a floating-point constant. If 
the specified exponent exceeds 3 digits 
(error number 57), the remaining digits are 


truncated. 


Routine FPFI -- WI 


uum nm AE A A A TE WC z = 


This is a secondary entry point of FPFL. 


Input parameters; 

R1 = address of the constant in its 
external format 

RLEN = length of the external format 
fixed-point constant) 


(of a 


Output parameters: 


R1 = unchanged 

RLEN = number of digits of decimal fixed- 
point constant (P) 

RO = number of digits specified after 


decimal (binary) point (0) 
This routine scans the precision of a 


fixed-point constant. 


Routine FREP -- WL 

Input dora cern: 

R1 = address of the constant in its 
external format 

RLEN = length of the external format 

SUPPE parameters: 

R1 = address of the basic string 

RLEN = length of basic string 

REPL = replication factor 


Converts the replication factor of a 
bit-string constant to binary. If no 
replication factor is specified, REPL is 
set to 1. A zero replication factor is 
ignored (error number 55) and REPL is set 
to Te 
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Routine FBIN -- WL 

Input parameters: 

R1 = address of the first digit of the 
constant 

RLEN = number of digits 

Output paramters: 

(R4, R5) resulting bit string (binary 

number) , right-aligned 


This routine condenses a character 
string of zeros and ones to a bit string. 


Routine JEOS -- WP 

This routine positions the contents of 
input buffers 1-4 so that the currently 
Scanned EOS is in input buffer 1 (this is 
done by calling JMIB). The EOS and the 
error codes attached to it are written on 
the text output file. If additional error 
codes are generated, they are also put out. 


Routine JMIB -- WQ 


This routine moves input text to the left 
and reads in new records. 


Routine JSLC -- WR 


This routine determines if a statement is 
too long (i.e., if its EOS key is in the 
first Y input buffers). If so, the state- 
ment body is deleted so that the statement 
consists only of the statement identifier 
and the EOS (with error codes). The fol- 
lowing statement is positioned so that it 
begins in input buffer 1. If the statement 
is not too long, this routiné returns to 
the calling routine. 


Routine JIRN -- WO 


input parameters: 


PIN = pointer for source text 
POUT - pointer for output buffer 
BYZ = number of bytes to be moved 


OUTPUT parameters: 

PIN = PIN+BYZ 

POUT = address of next available byte with- 
| in the output buffer 


If all the bytes to be moved do not fit 
into the output buffer (or if it is com- 
pletely filled), the buffer is filled by 
the first part of the text to be moved and 
then written on the text output work file. 
The remaining bytes, if any, are moved to 
the beginning of the buffer. 


Routine JERR -- WO 


This routine checks whether the error table 
is full and returns in that case. If the 
error table is not full, the number of 
errors is increased by one and the corres- 
ponding error key is inserted. 





Aon 
ary 
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Ihe main task of this phase is to sort the 
blocks arising in the source program. The 
input is on TXTIN. Three different cate- 

gories are to be distinguished. 


1. The source program consists of only one 
block. Therefore, only one scan of the 
input string is required. The block 
with the level number zero is written 
onto TXTOUT. 


2. The source program consists of blocks 
with the level numbers zero and one. 
This requires the input string to be 
Scanned twice: 


a. The block with the level number 
zero is extracted and written onto 
TXTOUT. The blocks with the level 
number one are written onto SYS001. 


b. The input is on SYS001 and written 
unchanged onto TXTOUT. 


3. The source program consists of blocks 
with the level numbers zero, one, and 
two. This requires the input string to 
be Scanned three times: 


a. The block with the level number 
zero is extracted and written onto 
TXTOUT. The blocks with the level 
numbers one and two are written 
onto SYS00 1. 


b. The input is on SYS001. The blocks 
with the level nunber one are 
extracted and written onto TXTOUT. 
The blocks with the level number 
two are written onto TXTIN. 


c. The input is on TXTIN and written 
unchanged onto TXIOUT. 


If, in the nth scan, a BEGIN statement 
is found that opens a block with level 
number n, a label is generated in front and 
the block with the label is written onto 
SYS001 or TXTOUT. Instead of the BEGIN 
block a CALL macro containing the new label 
is generated. If the BEGIN statement is in 
an embracing BEGIN block, the statement is 
additionally changed to NEW BEGIN. 


If a PROCEDURE statement is found, eith- 
er the entire attribute table or the first 
18 bytes of the attribute table are stacked 
depending on the length of the table. 


If an END (procedure) statement is 
found, the last entry in the stack is 
cleared. 
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If a RETURN statement is found, the 
contents of the last entry in the stack are 
inserted after the first 8 bytes of the 
RETURN statement. 


The contents of the attribute table of 
each statement are translated into a new 
form by the translate subroutine. 


I/O Handling (Buffers) 

Six buffers are used: five buffers, i.e., 
output buffer 1, three work buffers, and 
one input buffer, are in the I/O area, and 
output buffer 2 is defined in the table 
area. 


DESCRIPTION OF ROUTINES 


— — —MM A — ee M  À— —— — E 


C (B) contents of location pointed to by B 

C(B+1) contents (length 2 bytes) of loca- 
tion pointed to by B+1 

A (B) address of B 

Initialization -- VC 


The following items are defined and set to 
their initial values: 


ALEVEL actual level (0) 

CLEVEL current level (-1) 

MAXCL maximum value of CLEVEL (-1) 

ZAEHL I/O record counter (0) 

ZAEHL2 I/O record counter (0) 

COUNTER I/O record counter (0) 

COUNTER2  I/O record counter (0) 

ML move-instruction length (4) 

HISPEI intermediate storage for address 

BEGINBIT switch 

NEWBESIN key of changed BEGIN (X'17') 

NBEGIN key of changed BEGIN (X'16"') 

OUTPUT temporary buffer 

TATTRIB attribute table stack 

ATTRIB address of TATTRIB+3*21 

Pointers: 

B6 start address of output buffer 2 

BO IJKMBS = start address of output 
buffer 1 

B1 start address of work buffer 

B2 B1 + buffer length 

B3 B2 + buffer length 

B4 start address of input buffer 

B5 B4 + buffer length 

Registers: 

OP2 pointer for output buffer 2 is 
Set to B6 

OP1 pointer for output buffer 1 is 
set to BO 
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CP current pointer in work buffer is 
set to B5 
LENGTH counter used for text output 


Main Routine -- VD 


The main routine scans the current input 
string for some special keys and calls the 
appropriate subroutines. | 


Procedure Handling -- VE and VF 
Entry point: VEB2 


This routine is called when a label macro 
is found. The label macro is written out 
if it is not followed by a PROCEDURE state- 
ment. 


If it is followed by a PROCEDURE state- 
ment, the subroutine CLEVMAX increases the 
current level CLEVEL, and if CLEVEL is not 
zero, a library bit is inserted. Then the 
label and the beginning of the PROCEDURE 
Statement are written out. 


If the PROCEDURE statement is detected 
during the first scan through the input 
string, some additional actions are 
required, e.g., the attribute table must be 
Stacked, translated, and written out. 


Begin Handling -- VG 
Entry point: VGB2 


This routine is called when a BEGIN state- 
ment is found in the input string. At 
first the current level CLEVEL is increased 
by one in the routine CLEVMAX and is then 
compared to the actual level ALEVEL. 


If the current level is equal to the 
actual level and the actual level is one, 
the switch BEGINBIT is set to one. 


If the current level is not equal to the 
actual level, the difference between the 
actual level and the current level is test- 
ed. If the difference is one, some poin- 
ters are changed to move the label macro 
into the OP2 buffer. 


The label macro is 7 bytes long and 
contains the following information: 


Byte (s) Contents 
1 F2 - macro key 
2 00 
3 07 
4 72 : label 
5 E1 | 
6-7 variable counter 
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Switch BEGINBIT is tested and if BEGIN- AN 
BIT = 1, the BEGIN key is replaced by the 
contents of NEWBEGIN. 


The prestatement is moved into the OP2 
buffer. Thereafter, any existing labels 
located behind the prestatement are moved 
into the OP1 buffer followed by the CALL 
Statement. 


The call macro is 19 bytes long and 
contains the following information: 


Byte(s) ^ Contents 
1 EO 
2 FF 
3 09 

4-6 refer to the BEGIN statement 
7 macro key 
8 00 
9 07 
10 AO 
11 E1 
12-13 variable counter IJKMVC 


14 EA 
15-49 refer to BEGIN statement. 


The variable counter IJKMVC is increased 
by one. When the value X'FFFF' is reached, 
an error message is generated. 
ES 


Mo e" 
Return Handling -- VH and VI 


Entry point: VHB2 

This routine is called when the beginning 
of a RETURN statement is found. The poin- 
ter LENGTH is increased by six and the 
input/output subroutine is called. Unless 
this routine is not called during the first 
Scan through the input stream, (ALEVEL - 0) 
the end of the routine is reached. Other- 
wise, the attribute table is processed. If 
an F4-key is found, the translate routine 
is called and the translated attributes are 
moved into the output buffer. Thereafter, 
the constant table, if there is one, is 
moved and the last entry of the attribute 
Stack (made by detecting the last PROCEDURE 
Statement and pointed to by ATTRIB) is 
inserted. Then, RETKON is moved into the 
output area.  RETKON is 6 bytes long and 
contains the following information: 


Byte (s) Contents 
1 E1 
2*3 RETURNL 
4 EZ 
» 00 
6 EB 





Figure 1 shows the format of the RETURN 
statement at the end of this routine, 
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exists not in all 


cases 


A AAA 


not changed 





| 
Attribute of 
the PROCEDURE 


RETKON 





RETURN L 


Figure 1. Format of RETURN Statement 


End (Procedure) Handling -- VK 
Entry point: VKB2 


This routine is called when an END 
(procedure) statement is found. First, 
ALEVEL is tested. 
entry of the attribute-table stack is 
cleared. 


The following actions are also performed 


by the END (begin) Handling routine: 


The beginning of the statement is writ- 


ten out, the routine Label Handling is 


Called, the statement end with error keys, 


if any, is written out, and CLEVEL is 
decreased by one before the end of the 
routine is reached. 


END (Begin) Handling -- VL 


Entry point: VLB2 


This routine is called when an END (begin) 


Statement in the source text is found. 


ALEVEL and CLEVEL contain one, the BEGINBIT 
is set to zero before branching to the END 


(procedure) Handling routine. 

Label Handling -- VM 

Entry point: VMB2 

This routine is called when generated 


labels are found in the prestatement. 
These labels are moved into the output 


buffer and the counter CLEVEL is increased 


by one. 
Entry point: VNB2 
This routine is called if the end-of- 


program key is detected. 


Source text is written out and the next 
phase is called. 


If it is zero, the last 


If IJKMBC contains one, the end of the 


Otherwise, the next scan 


through the input stream is started. 
Depending on MAXCL and ALEVEL, the text is 
processed. If MAXCL equals ALEVEL, the 
Endlevel routine is called. The output 
(text unchanged) of the last scan is moved 
onto PXTOUT and the end of the phase is 
reached, otherwise, the routine returns to 
the initialization routine of this phase, 
and a new scan begins. 


mc wana ee FA int ra 


Entry points: 
VPB2 (translate routine 1) 


TRANSLAT (translate routine 2). 
The subroutine Translate translates the 


attributes in the variable entry into the 
following 1-byte form: 


Bit 0 x 0 = not controlled, 
1 = controlled 
Bits 1-3 : 000 = Scalar variable without 
picture 
001 = Scalar variable with 
picture 
010 = Array without picture 
011 = Array with picture 
100 = ENTRY name or function 


name without picture 
Function name with pic- 
ture 

Constant 

Binary float 


101 


110 
Bits 4-7 : 0000 


0001 = Binary fixed 
0010 = Decimal float 
0011 = Decimal fixed 
0100 = Zoned decimal 
0101 = Zoned decimal (T) 
0110 = Character string 
0111 = Bit string 

1000 = Sterling 

1001 = Label 

1010 = Pointer 

1100 = Major Structure 
1101 = Minor Structure 
1110 = Others 

1111 = File 
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Input parameter: 

RPOI (4 bytes) contains the address of the 
variable entry in the prestatement to be 
translated. 


Output parameter: | 
ELENG (1 byte) contains the entry length of 
the declared variable. 


Endlevel Routine -- VT 
Entry point: VTB2 


This routine reads the output of the last 
Scan of the text from SYS001 or TXTIN and 
writes it unchanged on TXTOUT. 


ea M A — LÀ — KO A O CALE A O ZZA tmt A cma 


Entry point: VUB2 


The current level CLEVEL is increased by 
one and compared with MAXCL. If CLEVEL is 
greater than MAXCL, MAXCL is set to CLEVEL. 


I/O Handling -- VW 
Entry point: VWB1 


This routine controls the buffer handling. 
It is called when a string of the source 
program is to be written out. At first, a 
test is performed to determine whether the 
String is contained in its full length in 
the buffer area. 


If it is, the move routine is called 
where the string is moved into the output 
area. Then, the read routine is called 
where the input buffer is filled, if 
required, and this routine returns. 


If the string is not contained in its 


full length in the buffer area, the section 
of the string contained in the buffer area 
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is moved, and the input and work buffers 
are filled. Then the remainder of the 
string is moved and written out, and the 
routine returns. 


Read Routine -- VX 
Entry point: VXB1 


The input and work buffers are filled if 
required. Therefore, CP is compared to B2. 
If CP is lower than B2, the routine 
returns. Otherwise, the contents of the 
buffers B2, B3, and B4 are moved into the 
buffers B1, B2, and B3, respectively. The 
buffer B4 is filled with the next record 
from ITXTIN or SYSO001. | 


Move Routine -- VY 
Entry point: VYB2 


This routine is called if a string has to 
be moved into the output area. Depending 
on the contents of ALEVEL and CLEVEL, buf- 
fer BO or B6 is used. The entire string or 
part of it is moved into the buffer area 
depending on the length of the string and 
the number of free bytes in the buffers. A 
full buffer is written out by the write 
routine, if required. 


Write Routine -- VZ 
Entry point: VZB2 


Depending on the contents of ALEVEL and 
CLEVEL, OPT or OP2 are compared to B1 or 
BO. If the result of this comparison is 
not equal, the routine returns without 
further actions. Otherwise, the contents 
of the buffers BO or Bo are written onto 
TXTOUT, IXTIN, or SYS001 depending on ALEV- 
EL. 





gx 
Mna 
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The 1/0 scan is performed in this phase and 
the phases C55, C60, and 265. These phases 
process all I/O statements. The functions 
of these phases are: 


1. to check the statements for errors that 
are not detected by phases A60 and A65. 


2. to prepare the statements for process- 
ing in later phases: 


a. to generate DO statements for the 
repetitive specifications in the 
data lists, and 


b. to arrange the statements and 
include information required to 
permit sequential processing of the 
statements in later phases when the 
appropriate I/O macros are to be 
generated. 


3. to generate assignment and expression 
statements for expressions contained in 
some options and lists. 


Phase C50 is used to perform part of the 
processing required for GET and PUT state- 
ments. The options FILE, STRING, PAGE, 
LINE, and SKIP are checked for errors. 
Assignment statements are generated as 
required. 


Repetitive specifications in the data 
lists are checked for number and nesting 
depth. A DO and an END statement are gen- 
erated for each repetitive specification. 


Phase_Input and Output 


Ihe input for the phase is the program text 
on TXTIN and the file table on SYS001, 


Phases C55, C60, and C65 also process 
the program text from TXTIN and C60 and C65 
the aforeementioned file table. 
Program Text on TXTIN. Each syntactical 
element of the text string begins with an 
'E'-or an 'F'-key. Elements with an E-key 
have a fixed length. Elements with an 
F-key are of variable length. Bytes 2 and 
3 of an F-element indicate the length of 
the element. 


This phase and the other I/O-scan phases 
(C55, C60, and C65) process elements with 
one of the following keys: 


EO Statement identifier 
E1 Reference to declared variable 
E2 Delimiter 
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E3 Reference to character-string constant 
EU Reference to generated variable 
E9 Reference to constants other than 


character-string 
EA End of statement 
EB Error 
EC Reference to library names 
ED I/O-intermediate key 
EF Keyword 
FO Generated variable table 
EZ Macro 
F3 Constant table 
F4 Declared variable table 
FE Format integer constants 
FF End of program 


The text string consists of statements 
that appear in the same order as in the 
source program, except that nesting blocks 
are resolved, i.e., the blocks are now 
ordered serially. 


Each statement begins with a statement- 
identifier key which is followed by the 
declared variable and/or constant table. 
These tables contain the attributes of the 
variables and the attributes and values of 
the constants, respectively. (See phases 
B90 and B92 for the format of a variable 
table and phase C30 for the format of a 
constant table.) The syntax of the 
Statement body which follows the table (s) 
is described in phases A60 and A65. The 
end-of-statement key terminates the state- 
ment, the end-of-program key the entire 
text string. A statement may have one or 
more labels which are in the form of inter- 
nal macros. Such labels may precede either 
the statement identifier or the statement 
body. 


The declared variables in the text 
string do not appear with their actual 
internal name, but with their offset in the 
declared-variable table. 


File Table on Table File. There is one 
record in the file table for each file name 
and file name parameter. The file number 
is identical with the record number in the 
file table. Each record contains the 
attributes and options for the appropriate 
file name or file-name parameter. For the 
format of a file-table record refer to 


phase B25. 


Otitput. This phase and the other I/O scan 
phases cause 


1. the I/O statments from TXTIN to be 
processed and 
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2. additional (generated) statements to be 
inserted into the input statements. 
The end of the I/O statement is sig- 
nalled by setting bit seven in the 
second byte of the last end-of- 
Statement key to 1. 


To optimize the object code that is 
generated on account of the I/O statements, 
it is necessary that the inserted 
Statements do not destroy the contents of 
Specific registers.  Preserving the con- 
tents of these registers is ensured by 
setting the appropriate bits in byte four 
of the end-of-statement key. Bits 0 to 7 
correspond to registers fourteen to five. 


If an error is detected during one of 
the I/O scan phases, bit 1 in IJKMJT is set 
to Ta 


Initialization, Scan (General) -- XA 


General control, initialization of the 
phase, and scanning for the I/O statements 
is the same for all I/O scan phases. 


Text input/output is performed in over- 
lapped mode under control of the inter- 
face (see phase A00). Five buffers are 
used by the I/O scan phases: one buffer as 
output buffer and four contiguous buffers 
as input buffers. During the processing of 
an 1/0 statement, the input string is 
always adjusted in such a manner that the 
next end-of-statement key is fully in the 
input buffer area. Thus, no further con- 
trol for reaching end-of-buffer is 
required. 


The variable and constant tables 
required during processing of the I/O 
Statements are read into the table space. 


After the input buffers have been 
filled, the statement key is checked to 
determine if it is an I/O key. If it is 
not, the statement concerned is skipped and 
the input buffers are filled again, if 
necessary. 


When an I/O key is found, the statement 
identifier key is saved and the statement 
attribute table is placed into the table 
Space, and the statement is scanned for the 
end-of-statement key. 


Only correct statements (without T- or 
S-type errors) are processed. When an 
incorrect end-of-statement key is found, 
the statement is deleted from the text 
string except for the end-of-statement key. 


Correct statements are written out by 
the appropriate I/O routine. The end-of- 
Statement routine causes the errors, if 
any, to be indicated in the end-of- 
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Statement key and the error number to be 
written out. 


Interface with Other Phases 


The second byte of the statement-identifier 
key is used to pass on information about 
the type of the statement (used in the 
phases D75 and D80). 


The bits are set to 1 to indicate the 
following: 
Bit PAGE option 
SKIP option 
LINE option 
Statement refers to a PRINT file 
LIST option 
STRING option 
GET Statement 
PUT statement 


SNOW E Un | O 


If a data list contains a repetitive 
Specification, bit 29 in IJKMJT is set. 


If standard input file is assumed, bit 
54 in IJKMLB is set; if standard output 
file is assumed, bit 55 in IJKMLB is set. 


DESCRIPTION OF ROUTINES 


Note: 


The symbols RO, RA through RM, BASE 


and RETURN are references to general 


registers. 


Symbols used in flow charts: 


AT2BUTE Position of string bits in 
entry of attribute table 

BGRTBPO Address of repetitive specifi- 
cation table | 

BGSTPO Address of parenthesis stack 

BIFIMSK Mask to test for binary fixed 

BLBYTE Position of block byte in EOS 
key 

BLPOS Position of block byte in 
GENVAD 

CATBYTE Work byte to build up the 
GENVAR attribute byte 

CONBG Address of declared-constant 
table 

COUNT Count register 

CSTRMSK Test-mask for character string 

CUBL Current block number 

DASPBG Address of data specification 

DO DO delimiter element 

EDATTA End of declared-variable table 

EDRTBPO End of repetitive specifi- 
cation table 

EDSTPO End of parenthesis stack 

ENDBUF End of input buffers +1 

EOP End-of-program key 

EOS End-of-statement key 

ERFBT Mask for setting the error bit 
in IJKMJT 

ERFLAS Error flag byte 

ERRTAB Error table 





OS 
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FIBL 
FIDEMSK 
FILMSK 
FLBYTE 


FNBYTE 


GENVAD 
GENVAR 
GEPMSK 


GETMSK 
GEVAR 
IJKMBL 


IJKMBS 
IJKMJT 
IJKMTS 
IJKMTT 


IJKMVC 
INBUF 
INPO 
IOMSK 


ISTKEY 


KELEN 
LC85 
LEBYTE 


LEDS 
LEEL 
LEGEOS 
LEIN 
LELPAR 
LENGTH 


LENGTH]1 
LENGTHV 
LEPAR 
LERR 
LETEL 
LEVPOS 
LE1BYTE 


LEZBYTE 


LIBG 
LIBUF1 
LIBUF2 
LIBUF3 
LINMSK 
LI SMSK 
MOMAC 
N 
NATBYT 


NATBYTE 
OUBUF 


OUPO 
PABG 





File-block area 

Mask to test for fixed decimal 
Mask for testing the file bit 
Position of flag byte in end- 
of-statement key 

Relative position of file- 
number byte in attribute table 
Generated variable definition 
Generated variable reference 
Mask to set register-preserve 
bits for GET/PUT 

Mask for setting the GEI bit 
Generated-variable reference 
Buffer length (entry in 
communication area) 
Address of buffer area 
in communication area) 
Job information bytes (in 
communication area) 
Address of table Space 
in communication area) 
Address of TABTAB (entry in 
communication area) 

Variable counter in interface 
Address of input buffers 

Input pointer 

Mask to set I/O bit in END-of- 
Statement key 

Internal equal sign for 
assignment statement 

Length of key 

Offset for the C85 skip bit 
Address of precision byte in 
entry of the variable table 
Length of generated variable 
Length of one E-key element 
Length of end-of-statement key 
Length of internal name 

Left list parenthesis 

Length of area to be written 
out 

Current length 

Maximum length of GENVAD 

Left parenthesis 

Length of error key 

Length of two E-key elements 
Position of level byte in EOS 
Address of length byte for 
character string data in 
attribute table entry 

Address of length byte for 
non-character string data in 
attribute table entry 

Begin of LINE option 

Address of second input buffer 
Address of third input buffer 
Address of fourth input buffer 
Mask for setting the LINE bit 
Mask for setting the LIST bit 
Move-macro area 

Counter 

Position of scalar/array bits 
in entry of attribute table 
Address of attribute byte in 
entry of variable table 
Address of output buffer 
Output pointer 

Begin of PAGE option 


(entry 


(entry 


PALMSK Mask for setting the PAGE bit 

PRINMSK PRINT mask 

PRINTMSK Mask for setting the PRINT bit 

PSTMSK Mask to test for PUT STRING 
Statement 

PUSTMSK Mask to test for PUT STRING 
Statement 

PUTMSK Mask for setting the PUT bit 

REGBYTE Position of register-preserve 
byte in statement key 

RILPAR Right list parenthesis 

RIPAR Right parenthesis 

RTBPO Pointer for repetitive speci- 
fications 

SATBYTE Position of statement attri- 
bute byte in statement key 

SAVIO Area for saving statement 
identifier 

SAVMSK Mask for preserving registers 

SBC85 Mask for setting the C85 skip 
bit 

SCAMSK Mask for testing on scalars 

SEOS Area for end-of-statement key 

SKIBS Begin of SKIP option 

SKIMSK Mask for setting the SKIP bit 

SRIMSK Mask for setting the STRING 
bit 

STABYTE Statement-attribute byte 

STAID Position of statement iden- 
tification in statement key 

STAKEY Area used to build the state- 
ment key 

STIMSK Mask for setting the standard 
input-file bit 

STIMMSK Stream-input mask 

STKELE Length of statement key 

STOMSK Mask for setting the standard 
output-file bit 

STOUMSK Stream-output mask 

STPO Pointer for parenthesis stack 

STRXBYTE Position of structure byte in 
attribute-table entry 

STRSAV1 (2,3) Save area 1 (2, 3) for GEASS 
parameter 

T Table file 

TBPO Pointer in table space 

TEBYTE Test byte to indicate current- 
Statement file declarations 

TINPO1 (2,3) Temporary input pointer 1 (2, 
3) 

TTMSK Mask to zero bit 2 in TABTAB 
entry 

VARBG Address of declared-variable 
table 

AZ TAB2 Relative entry in TABTAB of 


file table 


The statements are processed in two 


passes over the text string. 


The 


Operations performed in each pass are des- 
cribed separately. 


The file or the string option, 
is the first option. 


sent, 


file or string option, 


if pre- 
If there is no 
a Standard system 


file is assumed. 
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If the string option is present, the 
option identifier is examined to determine 
if this is a character string. In this 
case, an assignment statement is generated 
for a subscripted variable. This assign- 
ment statement is placed into the string 
option for a GET statement or behind the 
original I/O statement for a PUT. The sub- 
scripted variable in the string option is 
replaced by a generated variable, which 
also constitutes the left or right side in 
the assignment statement for a GET or PUT, 
respectively. 


If the file option is present, the 
appropriate file block is fetched from the 
table file and the file options are checked 
to determine if they are consistent with 
the type of statement. 


For a file-name parameter, an internal 
move macro is generated. The object code 
generated by this macro causes the file- 
name argument to be inserted into the 
parameter list at object time. 


In a PUT statement, the PAGE and/or 
LINE, or SKIP options may appear ahead of 
the data specification. 


For the expression in the LINE or SKIP 
option, an assignment statement to a binary 
fixed generated variable is generated and 
placed ahead of the PUT statement. The 
expression in the option is replaced by the 
generated variable. 


The data list is scanned for repetitive 
Specifications. Each left-list parenthe- 
Sis, except the data list parenthesis 
itself, indicates the beginning of a repet- 
itive specification. The pointer value for 
this parenthesis is placed into a parenthe- 
ses stack. On a DO following a list ele- 
ment, the updated input pointer, the poin- 
ter to the end of the repetitive specifi- 
cation (next right-list parenthesis), and 
the last entry in the parenthesis stack are 
placed into the repetitive specification 
table and the last entry in the parenthesis 
Stack is cleared. 


Format of a repetitive-specification 
table entry: 


[oec eie ? gus dM Ed d Mr EE LE qoc Nene REC 1 
| Begin of | Address of ele-| End of | 
| Rep.Spec. | ment after DO | Rep.Spec. | 
Po makao E rcu decur uS cio Os: dolci ii 
1 5 9 

Pass 2 


The input statement is written onto TXTOUT 
in this order: statement key, statement 
attribute table, internal macro generated 
for a file-name parameter, and PAGE (SKIP 
or LINE) option, if present. 
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The data specifications are written out 
with the following changes: The format list 
or lists in the data specification are 
written ahead of the data lists. For each 
left list parenthesis of a data list, 
except the first one, a DO statement is 
generated. Ihe pointer to the appropriate 
text after the DO is fetched from the 
repetitive-specification table and is found 
by comparing the input pointer with the 
Stacked pointer. (First address in each 
entry of the repetitive-specification 
table). 


When a DO is encountered, an END is 
generated to close the DO group. 


Each generated statement has the same 
format as described above. The statement 
attribute table is the same as that for the 
GET/PUT statement. 


The generated variables are defined as 
automatic. Whenever possible, the same 
definition is used for successive 
variables. If a new definition is required 
(for example, if a new block is reached), 
the old definition is written out. This is 
also done at the end of the program text 
when, in addition, an end-of-statement key 
is written out following the variable defi- 
nition. 


Initialization and Scan -- XD, XE 


The functions of this routine are explained 
under Initialization, Scan (General). The 
following registers are used: RO, RA 
through RI, RL and RETURN. RF contains the 
pointer for the table Space.  RG contains 
the length of the declared variables or the 
constant table. RH contains a temporary 
input pointer in number of bytes: 


The main purpose of this routine is to test 
for the presence of the GET (or PUT) 
options and to set the bit configuration of 
the second byte of the statement- identifi- 
er key (see Interface wit 

In the CONTEB subroutine, which is called 
by this routine, the bit configuration of 
the test byte TEBYTE is set. The meaning 
of the bits of this byte is shown below. 


Bit No. Meaning 
0-2 O = PRINT file 
1 = file other than PRINT 
3-1 not used 
5 0 = file option contains no file 
name parameter 
1 = file option contains a file 
name parameter 
6 0 = stream input file 
1 = file other than stream input 
7 0 = stream output file 
1 = file other than stream output 
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SCADAL1 -- XG 


Ihis routine is used to build up the repet- 
itive specification table. 


The routine processes the GET (or PUT) 
options and causes them to be written out. 


SCADAL2 -- XJ 


This routine causes the DO statements to be 
rearranged and completed. Also, END state- 
ments are generated. These statements are 
written out on the text output file. 


FEFIBL -- XK 


When the subroutine is entered, INPO points 
to the internal file-name in the text 
string. 


The subroutine loads the nth file block 
of the file table into storage (n - file 
number of the current file). If the name 
in the file option is a file-name paramet- 
er, an internal move macro is generated and 
the file-name parameter in the file option 
is replaced by an 'ED'-key with a new 
internal name. If the name in the file 
option is not a file-name parameter, the 
offset in the variable table of the file- 
name is replaced by the actual internal 
file-name in the text. 


The internal file-name is checked for 
Validity. If the file-name is invalid (0 
as internal name), the subroutine is left 
via the error exit. 


CONTEB -- XL 


This subroutine causes the proper bit 
configuration to be set in TEBYTE, which is 
used in the CHECKST routine to determine if 
the current statement is consistent with 
the file declaration. 


INPUT =~ XM 

This subroutine causes the input buffers to 
be filled as determined by the current 
value of the input pointer. When this 
Subroutine is left, at least three input 
buffers are filled. The input pointer is 
adjusted. 


The subroutine uses register RL as 
return register. 


OUTPUT -- XN 


Input parameters: 

Register RC contains the address of the 
area to be written out. 

Register RD indicates the length of the 
area. 


This subroutine causes 


1. the contents of an area of arbitrary 
length to be moved into the output 
buffer and 


2. the data in the output buffer to be 
written on the text output file when 
the buffer is filled. The pointer in 
the output buffer is updated and the 
register pointing at the area whose 
contents are to be written out is 
increased by the length of the area. 


The secondary entry points OUTPUT1, 
OUTPUT2, and OUTPUT are used to set param- 
eters: OUTPUT1 is used if the end of the 
area to be written out is determined by 
INPO; OUTPUT2 is used if an area of the 
length of one 'E'-key element is to be 
written out; OUTPUT3 is used if an area of 
the length of two 'E'-key elements is to be 
written. 


Output parameter: 

Register RC contains the input address plus 
the length of the area that has been writ- 
ten. 


This subroutine increases the input pointer 
until either 


1. an EOS is found or 


2. the sum of the input pointer and the 
length of the next element exceeds the 
upper limit of the input buffers. 


This subroutine increments the input poin- 
ter until it points to the position immedi- 
ately after the list. A list is a number 
of elements enclosed by a pair of normal or 
list parentheses. When the subroutine is 
entered, the input pointer points to the 
left parenthesis of the pair. 


SKIEX -- XQ 


Input parameter: 
The input pointer INPO points to the begin- 
ning of the current expression. 


Output parameters: 
INPO points to end of expression plus 1: 
RA contains 0 if end is a comma, 
4 if end is a right-list paren- 
thesis, 
8 if end is DO. 


This subroutine increments the input 
pointer until it points to the position 
immediately after the current expression. 
For the purpose of this subroutine, an 
expression is a string of 'E'-key elements 
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delimited by a comma, a DO key, or a right 
list parenthesis which are not enclosed in 
a pair of parentheses. 


COMOMAO -- XR 

This subroutine generates an internal move 
macro and inserts an 'ED'key element with a 
new internal name into the text string. 
This new name is used as the name of the 
constant in the parameter list into which 
the argument for the file-name parameter is 
moved at object time. 


Format of the move macro: 


Input parameter: 

Register RA points to the entry for the 
file-name parameter in the declared varia- 
ble table. 


EOST -- XS 


The subroutine is called when an end-of- 
Statement is reached or a skip to the next 
EOS is required. 


The subroutine causes the EOS to be 
written on the text output file and error 
keys to be added if any errors have been 
encountered during the processing of the 
Statement. The subroutine causes the input 
buffers to be refilled and INPO to be reset 
to point to the beginning of a new 
Statement. 


If an end-of-program key is found to 
follow the EOS, the end-of-phase routine is 
called. 


EOPH -- XS 


This subroutine is called when an end-of- 
program key is reached. 


The subroutine causes the definitions of 
the last generated variables to be written 
out. These definitions are followed by an 
end-of-statement key and the end-of- 
program key. 


The contents of the output buffer are 
written out on text output file and phase 
C55 is fetched using the interface routine 
IJKAPH (calling macro IJKPH). 


ERROR -- XT 


Input parameter: 
Register RA contains the special error key. 


The errors detected during the process- 


ing of a statement are placed into an error 
table. | 
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The error table is 10 bytes long. Its 
format is as follows: 


a 
"m A 


Byte(s) Contents 
1 Error key 
2 Number of errors in current 
statement 
3-10 Special error keys 


A maximum of eight errors per Statement 
(one special error key per error) is placed 
into the error table for a statement. 


The subroutine causes the error bit to 
be set in the communication routine. 
GEASS, GEDOST, GEEND -- XU 


Input parameters: 
Register RF contains one of the following: 


X'OE' for an assignment statement 
x'12' for a DO statement 
X'13' for an END (DO) statement. 


This subroutine which is referenced in 
the various flow charts to phase C50 by 
either of the names GEASS, GEDOST, and 
GEEND, generates either an assignment, or a 
DO, or an END (DO) statement as determined 
by the contents of RF. The prefix mask of í 
the statement key is taken from the state- 4 
ment key inside which the statement is 
generated. The bits used to preserve reg- 
isters are set by means of the bit configu- 
ration of the SAVMSK byte. 


The statement attribute table for the 
input statement is used for all Statements 
to be generated and inserted in the input 
Statement, except the END statement. 


The statement body for the assignment 
statement consists of a generated variable 
contained in GENVAR, an IST-key, and the 
expression pointed to by TINPO (begin) and 
INPO (end + 1). For the DO statement, the 
Statement body consists of the repetitive 
Specification, the beginning and end of 
which is found in the repetitive specifi- 
cation table (INPO points to the left list 
parenthesis of the repetitive element). No 
Statement body is needed for the END state- 
ment. 


At the beginning and end of the state- 
ment, an EOS is generated which is that of 
the processed (proper) statement. 


The generated variable (reference) is 
written out whenever an assignment state- 
ment is generated. The variable is written 
out ahead of the assignment statement for a 
GET and following the assignment statement 
for a PUT. 
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OUTTAB_-- XV 


This subroutine causes the declared- 
variable and constant tables to be written 
out. 


GEVAO -- XW 


Input parameter: 
Register RG contains: 


4 when the subroutine is to use the 
attributes of the element to which INPO 
is pointing, 


8 when the desired attributes are binary 
fixed and precision 8. 


This subroutine builds up both generated 
variable definitions (GEVAD) and generated 
variable references (GEVAR). 


When the subroutine is entered the first 
time for a program, the value in the varia- 
ble counter in the communication region is 
inserted in GEVAD and GEVAR as an internal 
value. The block and level numbers are 
obtained from the EOS of the current state- 
ment and also inserted in GEVAD. 


When a new block is reached, GEVAD is 
written out (by calling OUTGEV) before the 
above described operations are performed 
for the new block. 


When the subroutine is entered for the 
Second and subsequent times and a new block 
has not yet been reached, the same internal 
name is used and, therefore, the same stor- 
age is used for these variables. The 


length count is updated to maintain a count 
of the highest value of all variables. The 
attributes of GEVAD are character string 
and automatic. The attributes of GEVAR are 
indicated by register RG. 


Output parameters: 
A generated variable of the following for- 
mat is constructed: 


r T 
[E4 |Intern|Eu |Attri- |EL |Preci- |E4 |Pict. Rane 


| |Name |  |butes | |sion | for 0 | 
E EEA Moc ROA K AAA x Coney A A J 


This subroutine causes the generated varia- 
ble definition (GEVAD) to be written out. 
CEIL(N/8) variables of length eight are 
made available for output (= maximum length 
required). The first variable definition 
is assigned the previously processed inter- 
nal name, all other variable definitions 
are assigned an internal name of 0. 


A generated variable definition made 
available for output has the following 
format : 


NACZEP t TA 5 
X'08 ' | Block | 
|Level | 


The portion of the text string beginning 
with ‘internal name‘ is repeated as often 
as necessary with an internal name of 0. 
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PHASE PL/IC55 (I/O SCAN II) -- YA 


This phase processes the data lists of 
GET/PUT statements. Each data list item is 
examined for structure and validity. 
Assignment and expression statements are 
generated as required. 


In the output text, each data list item 
is preceded by a characteristic. Some of 
this information is used in phases D75 and 
D80. 


The GET/PUT statements are scanned for 
their data lists. The list items are 
scanned for the information listed below, 
and this information, if present, is evalu- 
ated by this phase. 


1. The item is scalar, array, or struc- 
ture. 


2. The item either contains an operator, a 
subscript, a function call, or a pseudo 
variable, or the item requires no cal- 
culation. 


3. The item contains a numeric field other 
than floating point or a variable with 
zoned decimal attributes. 


4. The subsequent item is the first item 
of or following an iteration group. 
This item is referred to as "special 
item." 


The information is summarized in the 
FLAG byte with the following format: 


Bit No. Meaning 

0 1 = An expression or an assignment 
Statement must be generated. 

1 1 = Presence of an operator or a 
constant not allowed for input. 

2 0 = Scalar. 

1 = Array. 

3 1 = Special item. 

y 1 = Structure. 

5 1 = Numeric field other than float- 
ing point or zoned decimal. 

6 1 SUBSTR or UNSPEC. 

7 — Wrong element; neither arithmet- 


ic nor string type. 


The bit configuration of tbe above flag 
byte is evaluated when the output informa- 
tion is processed. Invalid data items, 
variables not of type string or arithmetic, 
array and structure expressions, pseudo 
arrays and pseudo structures are not writ- 
ten out on the text output file. Struc- 
tures are reduced to their basic elements 
and each element is written out in the same 
way as other single data items. 
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Each data item is preceded by a charac- 
teristic which has the following format: 


| ED 


An expression statement is generated 
whenever there is an operator in the data 
item or a function in a PUT statement. 


An assignment statement is generated for 
pseudo variables in input lists, scalar 
numeric fields (other than float), scalar 
zoned-decimal variables and subscripted 
variables. An assignment statement for a 
GET is generated with the data item to the 
left of the equal sign; for a PUT, the data 
item is on the right side of the equal 
Sign. On the other side of the equal sign, 
there is always a generated variable, the 
attributes of which are derived from the 
attributes of the pseudo variable or the 
subscripted variable. The generated varia- 
bles are decimal fixed for numeric fields 
and zoned decimal variables. 


The generated variables are written out 
ahead of the assignment statement in case 
of a GET and following the assignment 
Statement in case of a PUT. 


For a numeric field array (except float) 
and for a zoned decimal array, the assign- 
ment statement is preceded by a loop-begin 
and followed by a loop-end macro. The 
loop-begin and loop-end macros generate an 
object time loop which causes each array 
element to be read in or written out. 


The abovementioned assignment statement 
consists of 


1. a generated decimal-fixed variable as 
for a scalar numeric field and 


2. a generated pointer variable with data 
attributes of the array that points 
consecutively to each array element in 
the loop. All other single variables 
and character string constants are 
written out unchanged. 


A constant reference is expanded from 
three bytes to twelve bytes. The E9-key is 
repeated for each 3-byte group. The addi- 
tional bytes have the same contents as 
those of the generated variables. The 
constant definition for the appropriate 
constant is also written out. 
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| DESCRIPTION OF ROUTINES EOS End-of-statement key 
( EXPMSK Mask to test whether an expres- 
| Note: The following routines used in this sion statement must be generat- 
phase are described in phase C50: ed 
FEADD Address of entry in variable- 
INPUT EOST attributes table 
OUTPUT ERROR FLAS Expression flag byte indicating 
SKISTA OUTTAB characteristics 
SKILI OUTGEV FLAG 1 Flag byte to control output 
SKIEX GENVAD Generated-variable definition 
GENVAR Generated-variable reference 
Symbols used in flow charts: GEPMSK Mask to test for pseudo 
variables 
ALBYTE Length position in LOEDM GEPOR Area for generated pointer 
ANBYTE Position of number of elements reference 
in attribute table GEVAR Generated-variable reference 
ARAMSK Mask to test for array IJKMBL Buffer length (entry in com- 
ARBIT Mask to test for array bit munication area) 
ARRMSK Mask to test for array expres- IJKMBS Address of buffer area (entry 
Sions in communication area) 
ATBYTE Position of attribute byte IJKMTS Address of table space (entry 
ATPO Pointer for attribute table in communication area) 
AT2BYTE Position of string-attribute IJKMVC Variable counter in communi- 
byte in attribute table cation area 
BISTMSK Mask to set bit string in GEN- ILBYTE Internal-length position in 
VAR attribute table 
BLBYTE Block byte in end-of-statement IL2BYTE Internal-length position in 
key character string 
BLPOS Block byte in GENVAD INBUF Address of input buffers 
CACOKEY Key for character-constant INPMSK Mask to set CHKMSK for GET 
string INPO Input pointer 
CATBYTE Byte to generate the GENVAR IOMSK Mask to test and set I/O bit in 
" attribute byte EOS 
(C CHAR Area to build characteristic of ISTKEY Equal sign element in assign- 
A element ment statement 
CHKMSK Mask to check data-list item KELEN Length of key 
CONAR 1 Address of constant definition LABBYTE Position of label in LOBGM 
with table key LAEBYTE Position of label in LOEDM 
CONAR2 Address of constant definition LEBYTE Position of length byte in 
without table key constant 
CONATT Area to build attributes and LEEL Length of E-key element 
precisions for the constant LEGEOS Length of EOS key 
reference LEIN Length of internal name 
CONBG Address of declared-constant LENGTHV1 Intermediate length of GENVAD 
table LENSTV Maximum length of GENVAD 
CONLE Length of constant element LEPAR Left parenthesis 
(fixed) LETEL Length of two E-key elements 
CONLEN1 Length of constant definition LEV Level of tested structure 
with table key and without LEVPOS Level byte in end-of-statement 
length bytes key 
CONLEN2 Length of constant definition LE1BYTE Character-string length-byte in 
with table key and length bytes attribute-table entry 
COPO Pointer for constant-attributes LE2BYTE Length-byte in attribute-table 
table entry for non-character-string 
CORKEY Constant reference key data 
CSTRMSK Mask to test for character LIBUF 1 Address of second input buffer 
string LIBUF2 Address of third input buffer 
CUBL Current block number LIBUF3 Address of fourth input buffer 
DARMSK Mask to reset array bit in LISMSK Mask to test for the LIST bit 
CATBYTE LOBGM Area to generate loop-begin 
DBEMSK Mask to set the special-item macro 
bit in SPEMSK LOEDM Area to generate loop-end macro 
DEFIMSK Mask to set decimal fixed in N Counter 
GENVAR NAMBYTE Name position in LOBGM 
DELMSK Mask to zero the delete bit NATBYTE Position of attribute byte in 
EDATTA End of variable-attributes variable-attributes table 
table NEBYTE Position of number of elements 
ENDBUF End of input buffer +1 in LOBGM 
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OUBUF Address of output buffer 

OUPMSK Mask to set CHKMSK for PUT 

OUPO Output pointer 

PICBIT Mask to test for picture bit 

PICTMSK Mask to test for the picture 
bit 

POBYTE Pointer position in LOBGM 

POIMSK Mask to reset pointer in GENVAD 

POINAM Pointer-name position of entry 
in attribute table 

PSAMSK Mask to test for pseudo arrays 

PSSMSK Mask to test for pseudo struc- 
tures 

PUTMSK Mask to test for PUT bit 

RECLEV Recursion switch 

REGBYTE Position of register-preserve 
byte in statement key 

RILPAR Right list parenthesis 

RIPAR Right parenthesis 

SATBYTE Position of flag byte in state- 
ment identifier 

SAVIO Statement-identifier save area 

SAVMSK Register-preserve mask 

SEOS Save area for EOS 

SPEMSK Mask to set the special item 
bit in the FLAG byte 

SPVMSK Mask to test for subscripted 
variables 

SRCDMSK Mask to set the register- 
preserve bits for RC and RD 

SRIMSK Mask to test for STRING 

STABYTE Save area for statement flag- 
byte 

STAID Position of statement 
identification in statement key 

STAKEY Area to build the statement- 
identifier key 

STKELE Length of statement key 

STRMSK Mask to test for structure 
expressions 

STUMSK Mask to test for structure 
variables 

TBPO Pointer in table space area 


TINPOI (II) Temporary input pointer I (II) 
TINPO Temporary input pointer 
TINPO1-3) Temporary input pointer 1 (2, 


3) 
VARBG Address of declared-variable 
table 
INISC2 -- YB 


This routine initializes the phase and 
controls the scanning of the input text. 


GEPUII -- YC, YD 
This subroutine causes the data list items 
of GET/PUT statements to be evaluated and 
either processed and written out or written 
out unchanged.  Erroneous data list items 
are Skipped. 

SKISTAT -- YE 


Input parameter: 
INPO points to the preceding EOS (if entry 
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SKISTAT1 is used) or to the statement 
identifier key (if entry SKISTAT2 is used). 


This subroutine causes a statement to be 
Skipped and written on the text output 
file. Entry point SKISTAT1 is used if the 
preceding and the following EOS are written 
out, too. Entry point SKISTAT2 is used if 
the statement is to be written out without 
the EOS's. 


Output parameter: 

INPO points to the position following EOS 
(if entry SKISTAT1 is used) or to the EOS 
of the current statement (if entry SKISTAT2 
is used). | 


EOPH -- YF 


This routine is called when an end-of- 
program key is encountered. 


Those definitions of generated variables 
which are not yet written out are now 
written out on the text output file fol- 
lowed by an end-of-statement key and the 
end-of-program key. Phase C60 is fetched 
by calling the interface routine IJKAPH 
using the calling macro IJKPH. 


IDEXPR -- YG 


Input parameter: 
INPO points to the beginning of a data list 
item. 


This subroutine tests a data list item 
for specific characteristics and causes 
appropriate indicator bits to be set in the 
FLAG byte. All bits of the FLAG byte, 
except bit 3 are set to 1 if the appropri- 
ate characteristics are encountered. 


Output parameters: 

INPO points behind data list item; 

TINPO points to the beginning of data list 
item; 

FEADD contains entry from variable- 
attributes table if first element of data 
list item is a variable; 

FLAG contains a bit configuration that 
reflects the processing performed in this 
subroutine. 


TEEL == YH 


Input parameter: 
ATPO points to the entry in the attribute 
table for the variable to be tested. 


This subroutine sets bits 5 and 7 of the 
FLAG byte to 1 if the appropriate data-item 
characteristics are encountered. For 
pointer variables, bit seven of this byte 
is not set to 1 because these variables may 
appear in a valid expression of a PUT 
statement. 
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Output parameter: 

FLAG contains a bit configuration that 
reflects the processing performed in this 
subroutine. 


TESTR -- YI 


Input parameter: 

ATPO points to a structure or to an element 
Of a Structure in the variable-attributes 
table. 


This routine updates ATPO. The secon- 
dary entry point TESTR1 is used if, when 
the routine is entered, ATPO points to an 
element of a structure. 


Output parameters: 

ATPO points to the next element or a struc- 
ture or to the position following the last 
element of the structure. 

RH contains 0 if no further element of the 
Structure is present. 

RH contains 4 if the next element is found. 
GEEXP1,GEASS1 -- YJ 


Input parameters: 

RF contains X'OF' if an expression state- 
ment is to be generated and X'OE' if an 
assignment statement is to be generated. 
This routine generates an expression or an 
assignment statement as determined by the 
contents of RF. The prefix mask of the 
Statement key is taken from the statement 
key of the input statement into which the 
generated statement is inserted. The 
register-preserve bits in the statement 
flag byte are set by means of the SAVMSK 
byte. 


To generate the insertion statement, the 
routine uses the statement-attribute table 
for the input statement into which the 
expression or assignment statement is 
inserted. 


The statement body for the assignment 
Statement consists of the generated varia- 
ble in GEVAR and the expression pointed to 
by TINPO (begin) and INPO (end+1). For an 
expresion statement, the statement body 
consists of the expression only. At the 
beginning and end of the assignment 
(expression) statement, an EOS is generat- 
ed. This is the EOS of the currently proc- 
essed statement. If an assignment state- 
ment is generated, the generated-variable 
reference is written out. It is written 
ahead of the assignment statement for a GET 
and following the assignment statement for 
a PUT. 


OUTSVC -- YK 


This subroutine causes a single variable or 
a single constant in a data list to be 
written on the text output file. The 
address of the item to be written out is 


contained in TINPO; for a variable, the 
entry in the variable-attribute table is 
contained in FEADD. 


In case of a pointer-type variable, the 
routine returns to an error call in GEPUII. 
Otherwise, the variable is written out as 
it appears in the input stream. The same 
is done for a character-string constant. 


For a constant other than character 
String, the constant definition is written 
out as it appears in the constant- 
attributes table, but with the DELETE bit 
Set off. The constant reference is written 
out in a format as follows: 


T T 
| Attri-| | 
| butes |E9| cision|E9 
L L 


— — ae | es e eee au dA w 


T T 
| | Intern. | 
|E9|] name | E9 

7 AN MEIE Varas 


OUTCOND -- YK 


Input parameter: 
RC contains the value of FEADD. 


This subroutine generates a constant 
definition in the form of a constant- 
attribute table entry. This definition is 
generated for a constant, the address of 
which is contained in RC. The delete bit 
is set to 0 and the definition is written 
out on the text output file. 


OUTSTR -~ YL 


Input parameter: 
FEADD contains the address of the entry in 
the structure-attributes table. 


This subroutine causes a structure to be 
written out element by element. Each 
element is tested for validity, and for 
each element a characteristic is built up 
and written out. The subroutine returns 
control to GEPUII for an error call if an 
invalid element is found. 


OUTPCI -- YM 


This subroutine writes out a single numeric 
field with attributes other than float. 

The address of the numeric field is con- 
tained in FEADD. The subroutine generates 
a variable with the attributes decimal 
fixed and an assignment statement. 


If the numeric field is an array, a 
pointer is generated in addition. This 
pointer replaces the numeric field in the 
assignment statement. One each internal 
loop macro is generated to precede and 
follow the assignment statement when this 
is written out. Those bits in SAVMSK that 
have been set prior to the generation of 
the assignment statement are reset before 
control is returned from this subroutine. 
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OUTSBST and OUTSPV -- YN tained in the variable counter in the com- AR 
munication region is used as internal name e 

When entered via entry point OUTSBST, the and inserted in GENVAD and GENVAR. The = 

subroutine writes out pseudo variables that block and level numbers are obtained from 

appear in a data list of a GET statement. the EOS of the current statement and 


For pseudo variables in a PUT statement, an inserted in GENVAD, 
expression statement is generated and con- 
trol is returned immediately to the 
appropriate point in GEPUII. When a new block is reached or when 
specified by RG, GENVAD is written out (see 
For SUBSTR, a variable is generated with OUTGEV) before the above described opera- 
the attributes of the first argument in the tions are performed. 
substring variable. For UNSPEC, a length 
of 64 bits is generated. Then, an assign- In all other cases, the same internal 
ment statement is generated for both. namę is used and, hence, the same storage 
area is used for these variables. The 
The subroutine is entered via OUTSPV for length is updated to indicate the length 


subscripted variables. A variable and an value of the longest variable so far proc- 

assignment statement are generated. essed. GENVAD has the attributes CHARACTER 
and AUTOMATIC. The attributes of GENVAR 

CONLBE -- YO are indicated by register RG. 

This routine generates the internal loop- If the entry point GEPOI is used, a 


begin and loop-end macros for an array, the pointer variable is generated. 
address of which is contained in FEADD. 


The bits (in SAVMSK) to preserve registers Input parameter: 
RC and RD are set to 1. The generated Register RG contains: 
loop-begin macro is written out on the text 
output file. 4 to indicate that the subroutine is to 
use the attribute of the element whose 
GEVA/GEPOI -- YP address is in FEADD; 
8 if a pointer variable is to be gener- 
ated a new GENVAD is to be used; ER 
This routine builds up both the generated 12 to indicate that the desired attri- 1 ; 
variable definition (GENVAD) and the butes are coded decimal (length must ST 
generated variable reference (GENVAR). be derived from the variable whose 
address is in FEADD); and 
When this subroutine is entered the 16 to indicate a bit string of a length 
first time for a program, the value con- of 64 bits. 
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In this phase, the format list of the 
GET/PUT statement, the FORMAT, OPEN and 
CLOSE statements are processed. 


The format list items are checked for 
validity. For a remote format item, a move 
macro may be generated. 


The OPEN/CLOSE options are checked for 
errors and in some cases, assignment state- 
ments are generated. 


The second byte of the statement iden- 
tifier key is set to X'üF' in a CLOSE and 
to X'8F' in an OPEN statement. This infor- 
mation is used by the phases D75 and D80. 


The GET/PUT statement is scanned for the 
format list, the preceding part of the 
Statement is written out and a checking 
routine is entered. After the check, a 
test is performed to determine if the 
length of the list is not greater than 
three buffer lengths. In that case, an 
error message is given and a dummy format 
list is written out. Otherwise, the format 
list is written out without further chan- 
ges. The process is repeated if further 
format lists are present. 


There is a difference between 
programmer-specified labels (format labels) 
and generated labels in the FORMAT state- 
ment. The generated labels are written out 
as they appear in the text input; the for- 
mat labels are handled as described below. 


First, the list of the FORMAT statement 
is tested in the same routine as the 
GET/PUT format list. Then, a test is per- 
formed to determine if the statement is 
preceded by at least one format label and 
if the list is not greater than three buf- 
fer lengths. If an error occurs, a message 
is written and the statement is deleted 
from the text string. Otherwise, the 
Statement is written out until the end-of- 
statement key excluding the labels. The 
format labels are written out behind the 
list in the form: 


byte 0 
bytes 1-2 


key X'ED' 
internal name 


The names are also summarized in the 
format label table which is written out 
with record length 32 (16 names). A test 
is performed to determine if no more than 
127 format labels appear in a program. 


The format lists of a GET/PUT and of a 
FORMAT statement are processed by the same 
checking routine. As the validity of some 
format items is dependent on the type of 
the file to which the statement belongs, an 
actual check is possible only for the 
GET/PUT statement. The statement flag byte 
which is used for this check is set in such 
a way that the check is always right for a 
FORMAT statement. 


For control format items (except X) the 
Statement is tested if it refers to a PRINT 
file. 


The nesting depth of iteration groups, 
(i.e., an iteration factor followed by 
enclosed format items or by a single format 
item) is examined to determine if it is not 
greater than five or two for GET/PUT or 
FORMAT statements. The depth of a group 
containing a remote format item is examined 
to determine if it is not greater than two. 


If A and B format items appear in a GET 
Statement, a test is performed to determine 
if a field-length constant follows. 


If a remote format item appears in a 
FORMAT statement, the processing of the 
Statement is terminated with an error call, 
and the statement is deleted from the text 
String. In a GET/PUT statement, the label 
designator in a remote format item is 
examined first to determine if it is a 
constant. In this case, the label is exam- 
ined if it is internal to the same block as 
the GET/PUT statement. For each remote 
format item with label variable, an inter- 
nal name is reserved which replaces the 
name of the label variable in the remote 
format item. Also, a move macro is gener- 
ated and written out which will effect the 
Storing of the label variable value in a 
generated constant with the reserved name 
which is generated by the macro generation 
phase for a remote format item. 


In the OPEN/CLOSE statement, the name in 
the file option is examined first to deter- 
mine if it is a file name or file-name 
parameter. 


For a file name or file-name parameter, 
the appropriate file block is fetched from 
the table file, and a test byte and a flag 
byte of the following format are construct- 
ed: 


Test byte. The bits are set to 1 to indi- 
cate the following or are not used. 
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Bit 0-4 always zero EDFLTA End of format label table E 
5 1 if PRINT is specified ENDBUF End of input buffers+1 m 
6 zero EOS End-of-statement key w 
7 always 1 EOST End-of-statement routine 
ERROR Error handling routine 
Flag byte. The bits are set to 1 to indi- FEFIBL Routine for reading in 
cate the following or are not used. appropriate file block 
FIBL File block area 
Bit 0-3 always zero FILMSK Mask for testing file name 
4 1 if neither INPUT, nor OUTPUT, FLBYTE Flag byte position in EOS 
nor UPDATE and BACKWARDS FOLATA Format label table 
5 1 if PRINT FORMAT Routine for processing format 
6 zero statements 
7 1 if INPUT, OUTPUT, or UPDATE is FORLI Dummy format list 
specified FORMSK Mask for setting flag byte 
for format statement 
If the INPUT option is present, bit 4 of GEASS3 Routine for generating 
the flag byte is reset. If INPUT or OUTPUT assignment statements 
is present, bit 7 of the flag byte is con- GEPUF Routine for processing 
verted. If PAGESIZE is present, bit 5 of GET/PUT statement 
the flag byte is set. GEPUMS Mask for testing GET/PUT 
GEVA Routine for generating varia- 
After all bits have been set, the flag bles 
and test bytes must contain the same bit GEVAR Generated variable 
configuration., Otherwise, an error message (reference) 
is written out, For the PAGESIZE expres- IIOKEY ED-key 
sion, an assignment statement is generated IJKMBS Begin of buffer area; entry 
with a generated binary-fixed variable as in communication area 
left side. This is inserted into the PAGE- IJKMBL Buffer length, entry in com- 
SIZE option and written out followed by the munication area 
generated variable. This process is IJKMTT Begin of TABTAB, entry in 
repeated for each file group. The state- communication area 
ments are written out in the sequence the IJKMTS Begin of table space, entry 
input became available with assignment in communication area f m 
Statements possibly included. IJKMN Interface move routine Nor 
IJKMJT Job information bits 
(communication area) 
DESCRIPTION OF ROUTINES IJKMVC Variable counter, entry in 
communication area 
Note: For the description of SKISTAT refer IJKPO Interface output routine 
to phase C55. For the descriptions of the IJKPH Interface routine for fetch- 
following routines, refer to phase C50: ing a new phase 
INBUF Begin of input buffers 
INPUT SKILI OUTTAB INPO Input pointer 
QUTPUT EOST GEVAO INPUT Routine for filling input 
SKISTA ERROR OUTGEV buffers 
INPUT Input Routine 
Symbols used in flow charts: IOMSK Mask for testing I/O bit 
ISTKEY Internal equal sign for 
ATBYTE position of attribute byte in assignment statement 
variable table entry LABMSK Mask for testing label varia- 
AT2BYTE Position of attribute byte in ble 
variable table entry LABYTE Position of attribute byte in 
BLBYTE Position of block number in variable table entry 
variable table entry LC65,LC85 Position of C65 and of C85, 
CHAR ED-KEY field with label name Skip bit in communication 
COMOMA Routine for constructing move area 
macro LEDLM Length of label macro 
CONBG Begin of declared constants LEEL Length of E-key element 
table LEGEOS Length of end-of-statement 
CONTB Routine for constructing test key 
byte LEIN Length of internal name 
COUNT Counter for format labels LELPAR Left list paranthesis 
COVAMS Mask for testing label con- LETEL Length of two E-key elements 
Stant LIBUF 1 Begin of second input buffer 
CUBL Current block number LIBUF2 Begin of third input buffer 
EDATTA End of declared variables LIBUF3 Begin of fourth input buffer 
table MOMAC Move macro area 
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NAMBYTE 


NEWPH 
OPCLO 


OUBUF 
OUPO 
OUTPUT, 1 
OUTTAB 
OUTGEV 
POINAM 
PRINTMSK 
PUTMSK 
RILPAR 


SATBYTE 


SAVIO 
SBC65,SBC85 
SCAFO 

SEOS 
SKISTA 
SKISTAT1,2 
SKIDLI 


SKILI 
SKIEX3 


SKISTAT1 
STAKEY 


STBYTE 
STKELE 


STRBYTE 

TBPO 

TBYTE1 
TINPO,1,2,3,4 
TINPO1 


IINPO2 


TINPO3 
TINPO4 


VARBG 
ZIAB18 


ZTOUT 


Position of internal name in 
label macro 

Parameter for IJKPH 

Routine for processing 
OPEN/CLOSE statements 
Address of output buffer 
Output pointer 

Output routine 

Routine for writing out vari- 
able and constant table 
Routine that writes out gen- 
erated variable definitions 
Position of pointer name in 
variable table entry 

Mask for testing print files 
Mask for testing PUT 

Right list parenthesis 


Position of statement flag 
byte in statement identifier 
key 

Statement identifier save 
area 

Skip bit for IJXC65 and for 
IJXC85 in communication area 
Routine for scanning format 
list 

End-of-statement key save 
area 

Routine for skipping to EOS 
or end of buffer 

Routine for skipping and 
writing out statements 
Routine for skipping data 
list 
Routine for 
Routine for 
sions 
Routine 
ments 
Area for building the entire 
statement key 

Statement flag byte save area 
Length of statement identifi- 
er key 

Position of attribute byte in 
variable table entry 


skipping lists 
skipping expres- 


for skipping state- 


Pointer in table space 

Test byte 

Temporary input pointers 
Temporary input pointer 
pointing to begin of format 
labels 

Temporary input pointer 
pointing to end of statement 
Temporary input pointer 
pointing to begin of state- 
ment 

Temporary input pointer 
pointing to end of format 
labels 

Begin of declared variable 
table 

Entry in TABTAB for format 
label table 

Routine that writes onto 
table file (interface macro) 


Initialization and Scan -- YU - YV 


The functions of this routine are the same 
as in phase C50. 


GEPUF -- YX 


This routine causes the processing of GET 
and PUT statements. 


FORMAT -- YY 


This subroutine processes FORMAT state- 
ments. 


SCAFO -- YZ 


This routine checks the format lists of 
FORMAT and GET/PUT statements. In case of 
an error, an error message is written out 
and the scan proceeds. If an R format item 
is detected in a FORMAT statement, the 
routine returns to the initialization and 
Scan routine, and the wrong FORMAT state- 
ment is deleted from the text string. 


OPCLO -- ZA 


This subroutine processes OPEN and CLOSE 
Statements. 


UM numen ma e ee 


The bits for INPUT, OUTPUT, UPDATE, BACK- 


WARDS, PRINT are set in the flag and test 
bytes according to the declaration. 
COMOM ~~ ZC 


This routine causes a move macro for a file 
name parameter and a label variable in an R 
format item to be constructed, and an ED- 
key element with a new internal name in the 
text string to be inserted. The macro is 
written out onto the text output file. The 
new name is used as the name of the 
constant in the parameter list into which 
the argument -- corresponding to the file 
name parameter or current value of the 
label variable -- is moved at object time. 


The move macro has the following format: 
usta MEWA | xi er inpr E CREME MM GN 1 
| Length- | 

| | 16 


Input Parameter: 

RG points to the entry of the file name 
parameter or label variable in the delared 
variables table. 


SKIDLI -- ZD 
A data list which may contain entire state- 


ments is skipped. 
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SKIEX3 -- ZE out on the table file. The output buffer 
is written out on the text output file. 

The input pointer is set to the address Phase C65, C85, or DOO is called via the 

behind an expression. An expression means interface routine IJKPH depending on the 


a String of E- and F-key elements delimited Skip bits in IJKMJT. 
by an end-of-statement key or by a right 


list parenthesis. GEASS3 -- ZG 

Input Parameter: In this routine, an assignment statement is 

INPO points to the begin address of an generated. The statement identifier key is 

expression. provided by RF; the prefix mask of the 
Statement key is taken from the input 

Output Parameters: Statement in which the statement is gener- 

INPO points to the end of an expression; ated. The statement attribute table is 

RA - zero if end is EOS, or four if end is that of the statement in which the state- 

right list parenthesis. ment is built. The statement body is a 
generated variable (GEVAR), and IST-key, 

EOPH -- 2ZF and the expression pointed to by TINPO 


(begin) and INPO (end * 1). 
This routine is called after reaching an 
end-of-program key. First, the last gener- The generated variable is also written 
ated variables (their definitions) are out after the end-of-statement key of the 
written out followed by an end-of-statement assignment statement. 
key and the end-of-program key. If format 
labels appeared in the program, the last Input Parameter: 
record of the format-label table is written RF - X'OE', key for assignment statement. 
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PHASE PL/IC65 (I/O SCAN IV) -- $A, $B 


In this phase, all record-oriented I/O 
Statements, i.e., READ, WRITE, LOCATE, and 
REWRITE and the DISPLAY statement are proc- 
essed. 


In the second byte of the statement 
identifier key, information about the spe- 
cial type of the statement is made availa- 
ble for the phases D75 and D80. The right- 
most four bits of the byte contain the 
following: 


x"00" if READ SET 

oT if READ SET KEY 
x'03' if READ INTO 

X*O4' if READ INTO KEY 
x'06' if REWRITE 

x'07' if REWRITE FROM 
x"08' if  REWRITE FROM KEY 
x'09' if WRITE FROM 

X' 0A" if WRITE FROM KEYFROM 
X'OB' if LOCATE SET 

X'Or' if DISPLAY 


The leftmost four bits contain the fol- 
lowing: 


0 for consecutive buffered files, 
1 for consecutive unbuffered files, 
2 for regional files. 


Record I/O Statements -- $A 


All record-oriented I/O statements are 
processed in one routine. For the same 
option appearing in any statement, the same 
action is taken. 


The record variable is tested for valid- 
ity. If the variable in the SET option is 
subscripted, an assignment statement is 
generated. 


For the KEY/KEYFROM expression, an 
assignment statement is also generated. 
The statements are written out with the 
options in a fixed order and with included 
assignment statements, if any. 


During processing, a FLAG and a TEST 
byte are constructed depending on the file 
declaration and the format of the state- 
ment. 


The TEST byte contains the following: 


bit 0 - 1 if READ 
2- 1 if KEY/KEYFROM 
3 - 1 if WRITE 
4 - 1 if LOCATE 
5- 1 if REWRITE 
6 - 1 if DIRECT 
7- 1 if DIRECT 


The FLAG byte contains the following: 


bit 0 - 1 if INPUT or UPDATE or UNBUFFERED 
without INPUT, OUTPUT, UPDATE 
2-1 if DIRECT 
3 - 1 if OUTPUT or DIRECT/UPDATE or 
UNBUFFERED without 
INPUT/OUTPUT/UPDATE 
if BUFFERED OUTPUT 
if UPDATE 
if KEY/KEYFROM 
if FROM/INTO 


SHDN E 
l 
— m MA m 


The condition code resulting from the 
instruction TM FLAG, TEST must be 1. 


Display (General) -- $B 


In the DISPLAY statement, for an expression 
other than a single, unsubscripted variable 
that needs no conversion or other than 
constant, an assignment statement is gener- 
ated. In addition, for a subscriped name 
in the REPLY option, if present, an assign- 
ment statement is generated. 


The statements are written out in the 
sequence the input became available, i.e., 
with assignment statements included. 


DESCRIPTION OF ROUTINES 
Note: The routine SKISTAT is described in 


phase C55; the following routines are des- 
cribed in phase C50: 


SKIEX SKILI ERROR 
INPUT EOST OUTGEV 
OUTPUT COMOMAO OUTTAB 
SKISTA 


Symmbols used in flow charts: 
ATBYTE Relative position of attribute 
byte in variable table entry 
Relative position of second 
attribute byte in variable 
table entry 

Routine for checking record 
variable for validity 

Begin of declared constant 
table 

Routine for setting test and 
flag bits appropriate to the 
file 

Field for constructing second 
half of statement identifier 
flag 

Mask for testing character 
string 

Mask for constructing charac- 
ter string 


AT2BYTE 


CKREVA 
CONBG 


CONTBR 


COUNT 


CSTRMSK 


CSTMSK 
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EDATTA 
ENDBUF 
EOST 
EOS 
ERROR 
FEFIBL 


FIBL 
FILMSK 
FLAG,2 


GEASSR, 1,2 


GENVAR 
GEVARE 


GEVAR 
IJKMBS 


IJKMBL 
IJKMTS 


IJKMN 
IJKMVC 


IJKPO 
IJKMJT 
IJKPH 
INBUF 
INFRAD 
INPO 
INPUT 
ISTKEY 


KELEN 
KEYAD 


KEYTAD 
LC85 


LEEL 
LEGEOS 


LENGTHV 1 
LENGTHV 


LEPAR 
LETEL 
LIBUF1 
LIBUF2 
LIBUF3 
MOMAC 


N 


NATBYTE 


NEWPH 
OTSEKT 


OUBUF 
OUPO 
OUTGEV 


OUTPUT, 1,2,3 


OUTTAB 
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End of declared variable table 
End of input buffers+1 
End-of-statement routine 
End-of-statement key 

Error handling routine 

Routine for reading file block 
from table file 

File block area 

Mask for testing file 

Flag byte 

Routine for generating assign- 
ment statements 

Generated variable 

Routine for generating varia- 
bles 

Generated variable reference 
Begin of buffer area, entry in 
communication area 

Buffer length, entry in com- 
munication area 

Begin of table area, entry in 
communication area 

Move routine interface 
Variable counter in communi- 
cation region 

Interface routine for writing 
onto the text output file 

Job control bits, communi- 
cation area 

Interface routine for fetching 
a new phase 

Begin of input buffer 

Holds begin of INTO/FROM 

Input pointer 

Input routine 

Internal equal sign for 
assignment statement 

Length of E-key 

Holds begin of KEY/KEYFROM 
option 

Holds begin of KEYTO option 
Position of C85, skip bit in 
IJKMJT 

Length of E-key element 

Length of end-of-statement key 
Intermediate length of GENVAD 
Maximum length of GENVAD 

Left parenthesis 

Length of two E-key elements 
Begin of second input buffer 
Begin of third input buffer 
Begin of fourth input buffer 
Area for constructing move 
macro 

New internal name 

Relative position of attribute 
byte in variable table entry 
Parameter for IJKPH 

Routine for writing out SET 
and KEYTO option 

Address of output buffer 
Output pointer 

Routine for writing out gener- 
ated variable definitions 
Entries in output routines 
Routine for writing out 
declared variable and constant 
table | 





PICBIT Mask for testing numeric AN 
fields 7 
POIMSK Mask for constructing pointer l 
PTMSK Mask for testing pointer 
REW Parameter for IJKPH 
RILPAR | Right list parenthesis element 
RIPAR Right parenthesis element 
SAVIO Statement-identifier key save 
area 
SBC85 Skip bit for C85 
SEOS EOS save area 
SETAD Holds begin of SET 
SETID Area for constructing the 
assignment statement key 
SKISTAT2 Routine for skipping state- 
ments 
SKISTA Routine for skipping to EOS or 
end of buffer 
SKILI Routine for skipping lists 
SKIEX Routine for skipping expres- 
sions 
STKELE Length of statement identifier 
key 
STRSAV 1-6 Save areas for generated vari- 
able and expression for con- 
structing assignment statement 
STRBYTE Offset of file identification 
byte in variable table entry 
SWITCH Parameter for IJKPH 
TBPO Declared variable and constant 
table pointer 
TEBYTE Test byte 
TINPO,1,2,3,5Temporary input pointers BA 
VARBG Begin of declared variable a 
table 39 


Initialization, Scan -- $C , $D 


The functions of this routine are the same 
as in phase C50. 


Record-Oriented 1/0 Routine -- $E - $G 


See section Record I/O Statements. 


CKREVA -- $H 


This routine tests the record variable for 
validity. The record variable must not 
have the attribute DEFINED, and must not be 
a parameter, nor an entry name; the record 
variable must be a level 1 variable. 
Structures must begin on double-word boun- 
daries. The length of the record variable 
must not be greater than the block size of 
the appropriate file. If the appropriate 
file has variable length records, the 
length of the record variable divided by 8 
must yield a remainder of four. © 


If the appropriate file has fixed-length 
records, the length of the record variable 
must be equal to record size. 





Input Parameters: 
INPO must point to the record variable. 
FIBL contains the appropriate file block. 
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OTSEKT -- $1 


In this routine, the SET and the KEYTO 
option parameter are written out. 


If the variable is subscripted, a varia- 
ble with the same attributes is generated 
except the storage class which is static. 
This generated variable is written out as 
Option parameter. The position of the 
original variable and the generated varia- 
ble are saved and used to construct an 
assignment statement at the end of the 
Statement. 


Input Parameter: 

RG: if four, routine entered from SET 
option; 
if eight, routine entered from KEYTO 
option. 


CONTBR -- $J 


In this routine, all bits in the TEST and 
FLAG byte and in the first half of the 
Statement-identifier flag byte are set 
according to the appropriate file declara- 
tion. 


Input Parameter: 
FIBL contains the appropriate file block. 


Output Parameters: 
Some bits in TEST, FLAG, and SAVIO. 


DISPLAY -- $K 


See section Display (General). 


GEVARE -- $L 


In this routine, both the generated varia- 
ble definition (GENVAD) and the generated 
variable reference (GENVAR) are created. 


If the name field in GENVAD is zero, an 
internal name is fetched from the variable 
counter in the communication region and 
inserted into GENVAD and GENVAR. If RG is 
zero, the variable created earlier is writ- 
ten out at the beginning of the routine and 
the variable just being created is written 
out at the end of the routine. Otherwise, 
the same internal name is used. Thus, the 
Same amount of storage will be used for 
these variables. The length is updated to 
hold the greatest value of all variables. 


GENVAD has the attributes character 
string and static. The attributes of GEN- 
VAR are specified by RG. 


Input Parameter: 
RG if zero or eight, a character string is 
generated, the length of which is speci- 


fied in KEYLEN 
if four, a pointer is generated. 


The output parameters GENVAR and GENVAD 
have the following format: 


pope qo elias Wal GRAĆ GÓRA St 
| dint. | | | | | | | 
|E4|Name [E4|Attr.]E4|Prec.|E4|Zero | 
NEC RZESZĘ: A A SZA AAN ENIMS AE 
GENVAR 
A ln E TA 
| |lInt. | I | [| [| | 
|FO|Length|Name ]100/|80/[00/|10/|08[|00| 
bcoclkceccedcoceceed.cbecdaube.due be 
GENVAD 


The part of GENVAD beginning with Inter- 
nal Name is repeated as often as needed 
with the internal name - zero. 


GEASSR, GEASSR1 and 2 -- $M 


In this routine, an assignment statement is 
generated. The prefix mask of this state- 
ment key is taken from the input statement 
in which the assignment statement is gener- 
ated. The statement attribute table is 
taken from the input statement in which the 
assignment statement is built. 


The statement body for GEASSR consists 
of a generated variable contained in GEN- 
VAR, an IST-key, and an expression pointed 
to by TINPO and INPO. In GEASSR2, the 
order of the generated variable and the 
expression is changed. 


In GEASSR 1, the statement body consists 
Of an expression pointed to by either 
STRSAV3 and STRSAV2, or STRSAV6 and STRAV5, 
respectively, an IST-key, and a generated 
variable, located in either STRSAV! or 
STRSAV4. 


At the beginning and at the end of the 
Statement, an EOS is generated which is 
that of the processed statement and which 
must be correct. The first EOS written out 
by GEASSR1 has the I/O bit inserted. 


EOPH -- $N 


This routine is called when an end-of- 
program key is reached. First, the last 
generated variables, i.e., their 
definitions, are written out followed by an 
end-of-statement key and the end-of-program 
key. The output buffer is written out on 
the text output file. 


Phase C85 or C95 is called via the 


interface routine IJKPH as determined by 
IJKMJT. 
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PHASE PL/IC85 (DO STATEMENT Iu. a $0 Pa 
f 8 


\ 


w 
This phase is called if the source program beginning or ending of a DO Head, no 
contains DO, GET, or PUT statements. It statement body is required. The format 
replaces certain DO statements and END (of of these two statements is as follows: 
group) statements with macros and other 
statements, which are then processed in a Byte (s) Contents 
subsequent phase. 
1 Statement identifier key X'EO' 
The DO statements processed in this 2-3 X'0001' for Begin of DO Head 
phase are of the following form: X'0101' for End of DO Head 
4-6 not relevant 
1. DO scalar = C1 TO C2; 7 EOS key X'EA' 
DO scalar = C1 TO C2 WHILE 8- 12 not relevant 
(expression4) ; 
DO scalar = C1 TO C2 BY C3; e The Define Label macro, 
DO scalar = C1 TO C2 BY C3 WHILE 
(expression4) ; e The Branch macro, and 
DO scalar = C1 BY C3 TO C2; 
DO scalar = C1 By C3 TO C2 WHILE e Generated label constants. 
(expression4) ; (For details, see description of phase 
C25) 
C1, C2, C3 must be constants (either 
binary fixed or decimal fixed with Generated temporaries (generated variables 
scale factor 0). The scalar must be with unknown attributes) are used to hold 
binary fixed. The decimal fixed con- the 'frozen' values of expression 1 and 
stants are converted to binary fixed to expression 2 (see PL/I Lanquage 
minimize object time conversions. Specifications). 
iln 
2. DO scalar = expression 1 TO expression |» These temporaries are not defined by l 
e BY: 'C3% macros like generated labels and generated se? 
DO scalar = expression 1 TO expression label variables, but solely by their occu- 
2 BY C3 WHILE rence in a statement referencing them. 
(expression4) ; Storage for these temporaries is assigned 
in subsequent phases. The format of gener- 
C3 must be an (optionally signed) ated temporaries is as follows: 


arithmetic constant. 


Byte(s) Contents 
The END (of group) statements processed 


in this phase are those associated to DO 1 key X'E8' for generated temporar- 
Statements listed above. ies 
2-3 X'0000' for expression 1 (1T in 
Phase Input and Output examples) 
X'000C' for expression 2 (2T in 
The input is a string of 3-byte elements examples) 


and/or elements of variable length. 


Examples for Input/Output of Phase C85 
The output is similar to the input, 








except that macros and new statements Legend to the examples: 

replace DO statements and END (of group) 

Statements.  Substituted statements and Statements (as opposed to macros) have 

macros are: Statement identifiers consisting of capital 

letters (for instance: IFFALSE, SET, READ 

e The IFFALSE statement generated when a etc.) 
TO and/or WHILE occurs in a specifi- 
cation. (See description of phase C25 Macros are identified by lower case letters 
for more details.) (for instance: define label, branch etc.) 

e The Begin of DO-Head statement, and the Generated labels are written like 1L, 2L, 
End of DO Head statement. These two 3L etc. 
Statements indicate that all statements 
and macros included by them belong to Note: The input as well as the output is a 
one DO-Head. Since the only function of string of 3-byte elements and/or elements 
these statements is to indicate the of variable length. 
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1. DO 1=C1 TO C2; BEGIN OF DO-HEAD; END OF DO-HEAD; 
i . SET 1=C1; . 
( ¿ branch 1L alpha 
alpha define label 2L è 
" SET I=1+1; branch 2L 
5 define label 1L define label 3L 
. IFFALSE 3L I<=C2; 
END; END OF DO-HEAD; 6. DO I=ex1 TO ex2 BEGIN OF DO-HEAD; 
. BY C3 SET 1T=ex1; 
alpha WHILE (exl); SET 2T=ex2; 
. . SET I-TT; 
branch 2L alpha branch 1L 
define label 3L A define label 2L 
‘ SET I=I+C3; 
2. DO I=C1 TO CZ BEGIN OF DO-HEAD; END; define label 1L 
WHILE exl; SET I=C1; IFFALSE 3L I«-2T;* 
‘ branch 1L IFFALSE 3L (ext); 
; define label 2L END OF DO-HEAD; 
alpha SET I=1+1; A 
A define label 1L alpha 
è IFFALSE 3L I<=C2; . 
A IFFALSE 3L exl; branch 2L 
END; END OF DO-HEAD; define label 3L 
alpha *If C3 is positive, I <= C2 is used. 
3 If C3 is negative, I »- C2 is used. 
branch 2L 


define label 3L 
Phase Performance 


3. DO I=C1 TO C2 BEGIN OF DO-HEAD; 
BY C3; SET: 1-1; The input stream is scanned for DO state- 
. branch 1L ments and END (of group) statements. All 
alpha define label 2L other statements are bypassed and put out 
4 — r SET I=I+C3; unchanged. If a DO statement is encoun- 
( ¿ define label 1L tered, the type of the statement is tested. 
END; IFFALSE 3L I<=C2;* If the statement is to be processed by this 
END OF DO-HEAD; phase, a 1 is entered into STACK and the 
. Statement is processed. If the statement 
alpha is to be bypassed, a 0 is entered into 
. STACK. The pointer to STACK is incremented 
branch 2L by 1. 


define label 3L 
If an END (of group) statement is 





4. DO I-C1 TO C2 BEGIN OF DO-HEAD; encountered, the pointer to STACK is decre- 
BY C3 SET 1=C1 mented by 1, and the last entry in STACK is 
WHILE exl; branch 1L tested. If this entry is a 1, the state- 

. define label 2L ment is processed. If this entry is a 0, 

alpha SET I=I+C3; the statement is bypassed. 

z define label 1L 

. The statement attribute tables of the 

END; IFFALSE 3L ex4; Statements processed in this phase are 
END OF DO-HEAD; Stored in the table space for later use. 
š The appropriate table stored in the table 
alpha space will be attached at the beginning of 
. each statement. Note that the macros gen- 
branch 2L erated in this phase are not prefixed by a 
define label 3L table. 

5. DO I=ex1 TO ex2 BEGIN OF DO-HEAD; 

BY C3; SET 1T=ex1; Tables and Pointers 
è SET 2T=ex2; 
alpha SET LSTI; STACK (with pointer STAP) consists of 15 
š branch 1L elements, each 1 byte long. A=1 in 
; define label 2L | such an element means that the asso- 
END; SET I=1+C3; ciated DO statement has been proc- 

| define label 1L essed and that the current END (of 

IFFALSE 3L I<=2T;* group) statement must be processed. 


A=0 means: bypass this statement. 
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KELLER (with pointer KEP) consists of 15 
elements, each 1 word long. The 
first half-word of each element 
contains a 'start label', the second 
half-word contains an 'exit label'. 
(A "start label" is the generated 
label 2L in I/O examples 1 to 4; an 
"exit label" is the generated label 
3L in I/O examples 1 to 4.) The 
information stored in this stack is 
used when processing END (of group) 
statements. 

PIN, IPOINT, POINT are input pointers 
POUT, OPOINT are output pointers 


DESCRIPTION OF ROUTINES 
(Open) 


A routine is called open if 
control is transferred to it 


by 


1. a simple B instruction, 
in which case control is 
also returned by a B 
instruction, or 

2. some in-line coding that 
requires a separate des- 
cription. 


A routine is called closed if 
control is transferred to it 
by a BAL instruction. Con- 
trol is returned by a BR 
instruction in this case. 


(Closed) 


DOPH -- $P 


This is the "master" routine of this phase. 
DOPH sets pointers, loads registers, etc. 
and reads the first 4 records into input 
buffers 1 to 4. 


R1,.. Rn: symbolic registers. 


DOPH scans and puts out the input stream 
until a specific DO statement or an asso- 
ciated END statement is encountered. In 
this case, the statement attribute table is 
stored in the table area. If DOPH encoun- 
tered a DO statement, ANDOST is called. 
ANEND is called if DOPH encountered an END 
(of group) statement. Before ANEND is 
called, the statement identifier END (of 
group) is replaced by the statement iden- 
tifier NOP. The scan continues until the 
end-of-program key is encountered. 


ANDOST (Open) -- $Q - $S 


This routine processes specific DO state- 
ments. The code put out by this routine is 
described in the I/O examples. 


If a DO statement contains errors or if 
the table space is not large enough to hold 
additional entries to the attribute table, 
the statement is passed on unchanged to the 
next phase. 
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ANEND (Open) -- $T 


ANEND is called only if the associated DO 
Statement has been processed in this phase. 
It decrements KEP by 4 and puts out the 
macros 


"Start Label' 
"Exit Label' 


branch 
define label 


‘Start Label* is taken from 0 (KEP). 
‘Exit Label" is taken from 2 (KEP). 


BSAC (Open) -- $T 


The routine stores the statement attribute 
table for variables and constants in the 
table area. 


BYPA (Closed) -- $U 


The routine stores either the statement 
attribute table for variables or the state- 
ment attribute table for constants in the 
table area. Upon exit, BSAC7 contains the 
address of the next unoccupied byte in the 
table area, the statement body begins in 
input buffer 1, and BSAC6 contains the 
address of the first byte of the attribute 
table for constants in the table space. 


COSC (Closed) -- $V 


The routine determines whether an expres- 
Sion in a DO statement consists of a sin- 
gle, optionally signed BINARY FIXED con- 
Stant or of a DECIMAL FIXED constant with a 
Scale factor of 0. If the expression is of 
any other type, COSC branches to UNSUC. If 
one of the above specified expressions is 
encountered, all prefix operators (+ and -) 
are reduced to one. Example: + --- + 
results in -. 


If the expression is a BINARY FIXED 
constant, the corresponding attribute table 
entry is stored in ENTRI, PIN is increment- 
ed by 3, and the program returns. 


If the expression is a DECIMAL FIXED 
constant with a scale factor of 0, the 
expression is tested for being greater than 
2147483647 (= 2**31 - 1). If yes, the 
program branches to UNSUC. If no, OLD is 
Set to 1, the DECIMAL FIXED constant is 
converted to BINARY FIXED, a new attribute 
table entry is created in ENTRI, PIN is 
increased by 1, and the program returns. 
Upon return, PIN points to the next byte 
following the constant. 


ENDX (Closed) -- $W 


Upon entry, R1 contains the start address 
of an expression. Upon return, R1 contains 
the end address of an expression. 
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EOST, JEOSA1 (Closed) -- $Y 


The routine arranges the contents of input 
buffers 1 to 4 so that the currently 
scanned EOS is in input buffer 1 (this is 
done by moving and by reading in new 
records). It puts out the EOS and the 
error codes attached to it. Any addition- 
ally generated error codes are also put 
out. 


ERROR, JERRA1 (Closed) -- $X 


This routine is described in phase A35. 


GEOS (Closed) -- $W 


The routine moves the input pointer PIN 
until the last byte of the statement body 
is reached. It stores the value of PIN in 
IFPH96. 


GSN (Open) -- $W 


This routine checks for error-free state- 
ments. If the bit checked is on, the 
Statement contains an error and the routine 
returns without any further action. If the 
bit is off, the end-of-statement delimiter 
is stored in GSN4Y and the routine returns. 


JIRNA1 (Closed) -- $2 


This is the output routine. Register BYZ 
contains the number of bytes to be put out; 
register PIN contains the start address of 
these bytes. One output buffer is used. 

If the string to be put out fits into the 
remaining unoccupied space of the output 
buffer, the string is moved into the buf- 
fer. BYZ is added to POUT to update the 
output pointer. 


If the string to be put out it too big, 
an appropriate part of the string is moved 
to fill the output buffer to its capacity. 
Then the contents of the buffer are written 
onto the output medium.  POUT is reset to 
the start address of the buffer.  BYZ is 
decremented by the number of bytes moved 
into the buffer. PIN is incremented by 
that number. Then JTRNA1 is repeated until 
output is completely accomplished. 


LGEN (Closed) -- $X 


LGEN generates a label constant of the 
following format: 


byte 0 key for generated label constant 
X'EE' 
bytes 1-2 number of the constant 


The number in bytes 1 and 2 of the label 
constant is obtained by adding 1 to the 
counter IJKMVC each time LGEN is called. 
Upon exit, the generated label constant is 
Stored right justified in R1. 


IJKMVC is the "variable and constant 
counter" of the compiler. If its value 
exceeds 65534, an error is indicated. 


STEP (Closed) -- $X 


STEP tests the high-order 4 bits of the 
byte selected by PIN. If these 4 bits are 
set to X'E', PIN is incremented by 3. If 
these bits are set to X'F', PIN is incre- 
mented by the contents of the two bytes 
following the byte to which PIN is point- 
ing. If these bits are set to any other 
value, a compiler error occurrs and a dump 
is initiated. 


Phase PL/IC85 153 


PL/I PLM 8 


IBM Confidential 


This phase is called if the source program 
contains at least one DO, GET, or PUT 
statement. All DO and END (of group) 
statements, bypassed by the first DO phase, 
are now processed. 


Phase C86 performs the following func- 
tions: 


e It analyzes all DO nests, 


e replaces all DO statements and END (of 
group) statements by macros and other 
statements which are then processed by 
subsequent phases, and 


e checks whether the restrictions on the 
nesting of DO statements and on the 
number of repetitive specifications are 
obey ed. 


A riarum ki c CEZ MAREM 


The input is a string of 3-byte elements 
and/or elements of variable length. The 
complete DO or END (of group) statement 
body must be available in the input buf- 
fers. 


The output is similar to the input, 
except that macros and new statements are 
substituted for DO and END (of group) 
statements. The following new statements 
may be substituted: 


e The IFFALSE statement. 
This statement is generated whenever a 
TO or WHILE occurs in a specification. 
IFFALSE is discussed in a subsequent 
section of this publication. 


e The "begin of DO head" statement. 


e The "end of DO head" statement. 
These two statements indicate that all 
Statements and macros included by them 
are associated and thus belong to one 
"DO head". These statements require no 
Statement body, because they only signal 
the beginning or ending of a "DO head". 
The format of these statements is as 
described in phase C85. 


e ^ Assignment statement with special oper- 
ands. 
If a DO statement contains more than 1 
repetitive specification, an assignment 
Statement as shown below is generated. 
The only difference between a label 
assignment written by a programmer and 
one generated by the DO phase is that in 
the generated label assignment two oper- 
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ands are followed by the 3-byte element 
X'EE0009' or X'EE0069'. The format of 
the assignment statement is as follows: 


Byte (s) Contents 


1-3 statement identifier X'EO0000E' 
4-6 not relevant 

7 key X'EE' for generated label 
8-9 name of generated label 


10-12 X'EE0009' indicating a generated 
label variable < 
13-15 3-byte element "=": X'E200FB' 

16 key X'EE' for generated label 
17-18 name of generated label constant 
19-20 X'EE0069' indicating a generated 

label constant 
22-27 EOS delimiter X'EA....' 


The 'Define Label' macro 
The 'Branch' macro 
The 'DO-Branch' macro 


This macro is generated if a DO state- 
ment contains more than one repetitive 


Specification. The 'DO-branch' macro R 
initiates a branch to the address con- "NU 
tained in the generated label variable bod 
nV. The format of this macro is as 

follows: 


Byte(s) Contents 


1 macro key X'F2' 
że 3 length of macro 

4 X'81' for DO branch 

5 X"'E4"'" for generated label variab 
6- 7 name of generated label variable 
8-10 not relevant 


Generated label constants. 


Generated label variables. 

The label variables are used to hold the 
values of generated label constants. To 
allocate storage (8 bytes for 1 generat- 
ed label variable), the macro 'Define 
Generated Variable" is generated as 


follows: 
Byte (s) Contents 
1 key X'F0' for "define generated 


label variable" 
2-3 length (overall) 
4- 5 | name of generated label variable | 
6-10 attributes of the generated 
label variable (arranged as in 
the statement attribute table) 
11 bits 0-1: level number 
bits 2-7: block number 
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Generated temporaries (i.e. generated 
variables with unknown attributes). 
These temporaries are used to hold the 
"frozen" values of expression 1, expres- 
sion 2 and expression 3 (see PL/I Langu 
age Specifications, Form C28-6809. Gen- 
erated temporaries are not defined by 
special macros like generated labels and 
generated label variables. They are 
defined only by their occurrence in a 
statement referencing them. Storage for 
generated temporaries is assigned in 
later phases. The format of the gener- 
ated temporaries is as follows: 





Byte (s) Contents 


1 key X'E8' 

2 x'00' 

3 X'00' for expression 1 
examples) 
X'OC' for expression 2 
examples) 
X'18' for expression 3 
examples) 


(1T in 
(2T in 
(3T in 
Specification separator. 

Specification separators are used to 
Separate 2 repetitive specifications and 


consist of 2 macros as shown below: 


X'FDOOONES' 
x'FDO0O004D5' 


macro 1 
macro 2 


Examples for the Input to the DO Phase and 
the Produced Output 


Legend to the examples: 


Statements have statement identifiers 
consisting of capital letters ,e.g., 
IFFALSE, SET, READ etc. 





Macros are identified by lower case 
letters, e.g., define label, branch, 
etc. 


Generated labels are of the form 1L, 2L, 


Generated label variables are written 
like 1V, 2V, etc. 





Generated temporaries (variables with 
unknown attributes) are of the form 1T, 
2T, 3T. 


Note that in reality the input as well as 
the output is a string of 3-byte elements 
and/or elements of variable length. 


Input Output 

DO; BEGIN OF DO-HEAD; 
á NOP; 

. END OF DO-HEAD 
alpha r 


END; 


DO I=exl; 


alpha 


END; 


DO WHILE exl; 


alpha 


END; 


DO I=ex1 


WHILE exi; 


alpha 


END; 


DO'/I-ex1 
BY ex3; 


alpha 


END; 


DO I=ex1 
BY ex3 


WHILE ex; 


alpha 


END; 


DO I=ex1 
TO ex2; 


alpha 


END; 


alpha 


BEGIN OF DO-HEAD 
SET I=exl; 
END OF DO-HEAD 


alpha 


BEGIN OF DO-HEAD 
define label 1L 

IFFALSE 2L ex; 

END OF DO-HEAD; 

alpha 

branch 1L 

define label 2L 


BEGIN OF DO-HEAD; 
SET I=ex1; 
IFFALSE 1L exl; 
END OF DO-HEAD; 
alpha 


define label 1L 


BEGIN OF DO-HEAD; 


SET 1T=ex1; 

SET 3T=ex3; 

SET I=1T; 
branch 1L 
define label 2L 
SET I=I+3T; 
define label 1L 
END OF DO-HEAD; 


alpha 
branch 2L 


BEGIN OF DO-HEAD; 
SET 1T=ex1; 

SET 3T=ex3; 

SET I=1T; 

branch 1L 

define label 2L 
SET I=I+3T; 
define label 1L 
IFFALSE 3L exl; 
END OF DO-HEAD; 


alpha 


branch 2L 
define label 3L 


BEGIN OF DO-HEAD; 
SET 1T=ex1; 

SET 2T=ex2; 

SET I-1T; 

branch 1L 

define label 2L 
SET I=1+1; 

define label 1L 
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IFFALSE 3L I<=2T; alpha branch 2L 





END OF DO-HEAD; Ą | define label 1L C 
3 š specification separator s 
alpha END; SET 1V=3L; 
" | SET I=ex2; 
branch 2L branch 4L 
define label 3L define label 3L 
Specification separator 
8. DO I=ex1 BEGIN OF DO-HEAD; SET 1V=5L; 
TO ex2 SET 1T-exl; SET I=ex3; 
WHILE exl; SEI 2T=ex2; branch 6L 
š SET I=1T; define label 6L 
E branch 1L | define label 4L 
alpha define label 2L define label 2L 
è SET I=I+1; END OF DO-HEAD; 
" define label 1L A l 
END; IFFALSE 3L I<=2T; alpha 
IFFALSE 3L exl; $ 
END OF DO-HEAD; DO-branch 1V 
. define label 5L 
alpha 
A 12. DO I=ex1 BEGIN OF DO-HEAD; 
branch 2L TO ex2 BY ex3 define 1V 
define label 3L ex4 TO ex5 SET 1V=1L; 
BY ex6; SET 1T-ex1; 
9. DO I=ex1 BEGIN OF DO-HEAD; . SET 2T-ex2; 
TO ex2 SET 1T=ex1; r SET 3T=ex3; 
BY ex3 SET 2T=ex2; alpha SET I=1T; 
" SET 3T=ex3; ; | branch 3L 
alpha SET I-1T; > define label 1L 
a branch 1L END; SET 1=I+3T; 
A define label 2L define label 3L 
END; SET I=I+3T; IFFALSE 2L (3T>=0) € as 
define label 1L (I<=2T) | (3T«0) 6 ‘ i 
IFFALSE 3L (3T>=0) 6 (I>=2T) ; d 
(I<=2T) | (3T<0) 6 branch 4L 
(I>=2T) ; define label 2L 
END OF DO-HEAD; specification separator 
p SET 1V=5L; 
alpha SET 1T=ex4; 
. SET 2T-ex5; 
branch 2L SET 3T=ex6; 
define label 3L SET I=1T; 
branch 7L 
10. DO I=ex1 BEGIN OF DO-HEAD; define label 5L 
TO ex2 SET 1T=ex1; SET I=I+3T 
BY ex3 SET 2T-ex2; define label 7L 
WHILE exl; SET 3T-ex3; IFFALSE 6L (3T>=0) 6 
i SET I=1T; (I<=2T) | (3T<0) € 
: branch 1L (I>=2T) ; 
alpha define label 2L branch 8L 
š SET I=I+3T; define label 8L 
END; define label 1L define label 4L 
IFFALSE 3L (3T>=0) € END OF DO-HEAD; 
(I<=2T) | (3T<0) € : 
(I>=2T) ; alpha 
IFFALSE 3L exl; A 
END OF DO-HEAD; DO-branch 1V 
è define label 6L 
alpha 
* FUNCTIONAL DESCRIPTION 
branch 2L | 
define label 3L The input stream is scanned for DO and END 
(of DO group) statements. All other state- 
11. DO I=ex1, BEGIN OF DO-HEAD; ments are bypassed and put out unchanged. 
ex2, ex3; define 1V If a DO statement is encountered, its 
5 SET 1V=1L; statement attribute table and its constant 
: SET I=ex1; table is stored in the table storage for 
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later use. The DO statement is analyzed 
and statements and/or macros are put out, 
depending on the structure of the DO state- 
ment (see examples). The attribute and 
constant tables are added to each generated 
statement. Macros generated in this phase 
are not prefixed by these tables. 


If an END (of DO group) statement is 
encountered, the type of code being gener- 
ated depends on the structure of the cor- 
responding DO statement. The required 
information is stored in 5 push-down 
Stacks. The two stacks ANDO5 and ANDO6 
have a capacity of one element per level. 
The remaining three (ANDO1, ANDO2, and 
AND03) have a capacity of more than one 
element per level. In each push-down 
Stack, the element size is one half-word. 
The stack pointers are the symbolic reg- 
isters R6 and R7. 


ANDO1 


(stack pointer R7) contains ‘start labels’. 


(In examples 5 to 10, '2L' is a start 
label). 

ANDO2 

(stack pointer R7) contains ‘exit labels". 


An exit label is the generated label of a 
statement to which control is transferred 
after the execution of the DO group has 
been terminated. (In examples 6 to 10, 
'3L'" is an exit label.) 


ANDO3 

(stack pointer R7) contains "G-labels". 
G-labels are generated only if the DO 
statement contains more than one specifi- 
cation. A G-label is a generated label to 
which a branch is directed when the state- 
ments representing one specification have 
been executed. (In example 12, ‘4L" and 
'8L' are G-labels.) 


ANDO5 

(stack pointer R6) 
variables. (In examples 11 and 12, 
a generated label variable.) 


contains generated label 
LAN is 


ANDOO 
(stack pointer R6) is used to store the 
number of specifications per DO statement. 


PIN, IPOINT, POINT are input pointers 
(symbolic registers); POUT, OPOINT are 
output pointers (symbolic registers). 


DESCRIPTION OF ROUTINES 
A routine is called open if 


control is transferred to it 
by 


(Open) 


1. a simple B instruction, 
in which case control is 
also returned by a B 
instruction, or 


2. Some in-line coding that 
requires a separate des- 
cription. 


A routine is called closed if 
control is transferred to it 
by a BAL instruction. Con- 
trol is returned by a BR 
instruction in this case. 


(Closed) 


R1, R2,... are symbolic registers. 


DOPH -- AA 


This is the "master program" of this phase. 
DOPH initializes pointers, registers, etc. 
and reads the first U records into input 
buffers 1, 2, 3, and 4 It scans and puts 
out the input stream. If a DO or END (of 
group) statement is encountered, the state- 
ment attribute table is stored in the Table 
Area.  ANDO is called if a DO statement has 
been encountered, or ANEN if an END (of 
group) statement occurred. (See descrip- 
tion of ANDO and ANEN.) Before ANDO is 
called, a 'Begin of DO head' statement is 
put out. Before ANEN is called, the state- 
ment identifier END (of group) is replaced 
by the statement identifier NOP. 


The scan is continued until the end-of- 
program key is encountered. 


ANDO -- AB, AC, AD (Open) 


Analyzes and processes DO statements. If 
the DO statement contains errors, a NOP 
Statement is put out, EOST is called, and 
control returns to DOPH which continues the 
Scan. 


If the DO statement is correct, a series 
of macros and statements is generated (see 
examples). The attribute table stored in 
the table area is attached to each 
generated statement. 


Error messages are produced if the DO 
nest is deeper than 12, and if there are 
more than 50 specifications in one DO nest. 


ANEN -- AE (Open) 


Puts out macros and statements, depending 
on the structure of the corresponding DO 
Statement. (See examples.) 


BSAC -- AG (Open) 


This routine stores the statement attribute 
table and the statement constant table in 
the table area. 
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BYBY -- AO (Closed) 


This routine is called only if the specifi- 
cation contains a BY. It generates the 
following: 


SET 3T = expression 3; 
SET SCALAR = 1T; 

branch NL 

define label ML 

SET SCALAR = SCALAR + 3T; 
define label NL 


BYPA -- AH (Closed) 


Stores either the statement attribute table 
for variables or the statement attribute 
table for constants in the Table Area. 

Upon exit, BSAC7 contains the address of 
the next free byte in the Table Area, and 
the statement body begins in input buffer 
Ts 


CON -- AK (Closed) 


CON may be considered as an entry to LGEN. 


Generates a 'name' for constant 0 or 1 and 
puts it into R1. The 'name' is a 3-byte 
element. The first byte of this element 
contains X'E9'; the subsequent two bytes 
contain the number of the constant. 


Retrievement of the constant number is 
discussed in the description of LGEN. 


This routine is described in phase A35. 
EOST, JEOSA1 -- AR (Closed) 


Arranges the contents of input buffers 1 to 
4. The currently scanned EOS is moved to 
input buffer 1. This is accomplished by 
moving and by reading in new records. Puts 
out EOS and the error codes attached to it. 
Any additionally generated error codes are 
also put out. 


Closed) 


Moves the input pointer PIN until the last 
byte of the statement body is reached. 
Stores the value of PIN in IFPH96. 


GEOS -- AI 


GSN -- AJ (Open) 


This routine is described in phase C85. 


INC1 is called only if the specification 
contains a TO clause but not a BY clause. 
It generates the following: 


SET scalar = 1T; 
branch nL 
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define label mL . 
SET scalar - Scalar * 1; a 
define label nL 

IFFALSE oL scalar < 


Il 


2T; 


Generates an entry for the constant 1 in 
the statement attribute table for con- 
stants. 


JTRNA1 -- AQ (Closed) 


Output routine. Register BYZ contains the 
number of bytes to be put out, register PIN 
the starting address. One output buffer is 
used. 


If the (remaining portion of the) string 
to be put out fits into the remaining unoc- 
cupied space of the output buffer, the 
String is moved into this space.  BYZ is 
added to POUT to update the output pointer. 


If the string to be put out is too big, 
the output buffer is filled to capacity by 
a part of the string, and the contents of 
the buffer are written onto the output 
medium.  POUT is reset to the start address 
of the buffer.  BYZ is reduced by the num- 
ber of bytes moved into the buffer. PIN is 
incremented by that number. Then JTRNA1 is 
repeated until the output is completely 
accomplished. 


KRAFT -- AM (Closed) Nod 


SET Scalar = 17; 
branch nL 
define label mL 


LGEN -- AK (Closed) 


Generates a label constant of the following 
format: 


Puts out: 


byte 0 X'EE', key for generated label 
constant 
bytes 1-2 number 


The number in bytes 2 and 3 of the con- 
Stant is obtained by adding 1 to the coun- 
ter IJKMVC each time the routine is called. 
Upon exit, the generated label constant is 
Stored right-justified in R1. IJKMVC is 
the "variable and constant counter" of the 
compiler. If the value of IJKMVC exceeds 
65534, an error is indicated. 


LVGE -- AK (Closed) | 
LVGE may be considered as an entry to LGEN. 


The routine generates a label variable of 
the following format: 





byte 0 X"E4", key for generated label 
variable 
bytes 1-2 number 
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The number in bytes 2 and 3 of the label 


variable is obtained by adding 1 to the 
counter IJKMVC each time the routine is 
called. Upon exit, the generated label 
variable is stored right-justified in Rl. 
IJKMVC is the "variable and constant 
counter" of the compiler. If the value of 
IJKMVC exceeds 65534, an error is indicat- 
ed. 


STEP -- AF (Closed) 


The high-order 4 bits of the byte pointed 
to by PIN are tested. If these bits con- 
tain X'E', PIN is incremented by 3. If 
they contain X'F', PIN is incremented by 
the contents of the two bytes following 
next. If these bits contain any other 


value, a compiler error has occurred and a 
dump is initiated. 


TIST == AP (Closed) 


Puts an entry for the decimal fixed con- 
Stant 1 into the statement attribute table 
for constants. If no available space is 
found in this table, an error message is 
given and the processing of the current 
Statement is terminated. 


WHY -- AN (Closed) 
Called only if a WHILE appears in a speci- 


fication. The routine puts out IFFALSE mL 
expression; 
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This phase initiates the new interface used 
by the phases D00, D05, and D10. This 
interface has only some of the capabilities 
of the main interface (see phase A00) and, 
therefore, is shorter. The storage saved 
is used by the phases using this interface. 


Both the old interface, which is located 
after the register save area and pointed to 
by register 12, and the LIOCS table for 
SYS001 are written on SYS001 and replaced 
by the new interface. 


All items of the communication region 
which are used by phases DOO, D05, and D10 
are saved in the communication region of 
the new interface. 


The new interface uses an automatic 
end-of-file branch on the text work files. 
Therefore, the address of the end-of-file 
routine of the new interface is inserted 
into the LIOCS tables. 


Phase DOO is called by the EOPH routine 
of the new interface. An end-of-file indi- 
cator is written on the current text output 
work file and the functions of the input 
and output work files are switched. 


IJKMJT : Job communication bytes 
interface) 

TEXTIN : Contains address of text input 
work file table 

TEXTOUT : Contains address of text output 
WOrk file table 


(old 


KSYS001 : Contains information on IJSYSO1, 

KSYS002 : IJSYSO2, and 

KSYS003 : IJSYSO3 in old interface 

ZTOUT : Subroutine for reading table 
records 

TASAVA : Area for saving the SYS001 table 

ZIABO7 : TABTAB entry for DS table (not 
used at this point) 

IJKWT : Wait routine in old interface 

T : SYS001 

IJKMTT : Begin of TABTAB, entry in old 
communication region 

TABLEM : Contains address of SYS001 table 

NOTEF : Area for building NOTE/POINT 
information 

POINTN .: LIOCS macro instruction 

BEGINT : Begin of old interface 

WRITEI : Begin of LIOCS write macro 
instruction 

ENDINT : End of old interface 

TABLEN : Length of LIOCS table 


INTTABEN: Begin of communication region in 
new interface 


AR Begin and 
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PHASE PL/IC95 (NEW INTERFACE) -- AV 


LE : Length of area written 

NEOFAD : Address of new end-of-file rou- 
tine 

EOFADD : Relative address of end-of-file 


entry in LIOCS table for disk 
EOFADT : and for tape work files 
DUMPSAVE: Save area for old end-of-file 
address 
IJKMVC : Variable counter, entry in old 
communication region 


IJKMNN : Name of address constant for 
origin of compilation, entry in 
old communication region 

IJKMBL : Block length on text work files, 
entry in old communication region 

IJKMN : Move routine of old interface 

NINTL : Length of new interface 

INTBES : Begin of new interface 

TABLE : Begin of communication region in 
new interface 

EOPH : End-of-phase routine in new 


interface. 
NEW INTERFACE 


Only three routines are provided by the new 
interface. A fourth entry is used inter- 
nally for handling the end-of-file condi- 
tion. 


As in the old interface, the interphase 
linkage is established by a DSECT in the 
phases and with register 12 as base reg- 
ister. 


Read/Nrite -- AW 


Only a non-overlapped input/output on the 
text work files is provided, the same macro 
area is used for both. Therefore, the 
command code must be stored in the 
READ/WRITE macro instruction. Register 1 
is set to text input or text output before 
entering the common part. Prior to execut- 
ing the READ macro instruction, the READ 
routine checks whether the end-of-file was 
reached and returns if this condition 
occurs. The length of the area to be read 
is inserted into the READ/WRITE macro 
instruction in the READ routine only 
because a READ always precedes a WRITE. It 
must be inserted because the EOPH routine 
may modify this parameter. After the 
read/write macro a check macro is given for 
the respective medium. 


The calling sequence is: 


LA 1,area 
BAL 14,READ/WRITE 


where area is the input or output area. 


dl 
Ko 
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EOPH -- AW 


The end-of-phase routine writes an end-of- 
file indicator on the current output work 
file. This is done for tape work files by 
giving a control macro instruction and for 
disk work files by using the write routine 
with the length parameter zero. The end- 
of-file indicator is set to zero, the text 
work files are reset to their beginning by 
POINTS macro instructions, and the 
functions of the text input and output work 
files are switched. At the end, a load 
macro instruction is given with the new 
phase name and a branch to register 1. 


The calling sequence is: 


L 1,2C'DXXDb' 
BAL 14,EOPH 


where DXX is the suffix of the phase name 
to be called. 


EOF -- AW 


This routine sets the end-of-file indicator 
on. It is automatically entered when an 
end-of-file indicator on the input work 
file is detected. 


The entries IJKMVC, IJKMNN, IJKMBL, and 
IJKMWC are the same as in the old inter- 
face. 





IJKMJT has a length of only two bytes. 
The first 12 bits have the same meaning as 
in the old interface, bits 12-15 have the 
following meaning: 


bit 12 = 0: tape work files 
— 1: disk work files 
bit 13 = 1: GOTO library routine must be 
called 
bit 14 = 1: built-in functions in current 
compilation 


ADLIBI is one word of the library usage 
bytes matching bytes 5 through 8 of IJKMLB. 


Symbols used in flow charts: 


EOFIND : End-of-file indicator 

CHECK : LIOCS macro 

TEXTI : Holds address of text input work 
file table 

REWR : Area of read/write macro 

INTTAB : Begin of communication region 

READ/ 

WRITE : LIOCS macros 

SAVO1 : Register 1 save area 

TEXTOU : Holds address of text output work 
file table 

PHASEN : Phase name area 

CNTRL : LIOCS control macro 

CCWOFF : Offset in module where CCW chain 
bit is set into table 

POINTS : LIOCS macro 

LOAD : DOS/TOS macro 
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GENERAL DESCRIPTION OF PL/I PHASES DOO - D11 


These phases process the following state- 
ments: 


INPUT 


Phases DOO - D11 are fetched after the 


PROCEDURE GOTO EXPRESSION first I/O scan (phases C50 - C65) and the 
BEGIN ENTRY IF phases decomposing the DO and IF state- 

END (PROCEDURE) RETURN CALL OVERLAY ments. The input is the program string, 
END (BEGIN) NOP CALL DYNDUMP which consists of statement bodies preceded 
CALL SET by the statement key and the attributes of 


If conversion is required, the appropri- 
ate macro instructions are generated. The 
subscripted variables, fixed- and floating- 
point registers, and the working storage 
required during execution are determined 
and optimized. Note that DO loops have 
been replaced by assignment and IF state- 
ments during the phases C85 and C86. The 
compound statement IF was expanded to sim- 
ple statements in phase C25. 


An expression statement is generated 
during the I/O scan 1 (phases C50 - C65) to 
allow the evaluation of expressions con- 
tained in these statements. 


The. phases DOO - D11 use similar main, 
error handling, initialization, and data 
manipulation routines and the same I/O 
concept. 
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the variables and constants contained ther- 
ein. 


The statement body is followed by the 
corresponding EOS key and flags for the 
errors detected during previous pnases. 
Label macro instructions and generated 
variable definitions may also appear in the 
program string but not inside the statement 
body. 


The program string input or output con- 
Sists of syntactical units that can be 
identified according to the preceding key, 
which may be X'Fn', XEn', X'On', or X'In', 
where n is a hexadecimal digit in the range 
from 0 to F. The keys and their meaning in 
the input string for the phases D00 - D11 
are shown in Figures 1 through 3. 








AN 
NZ 
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statement identifier 






number of embracing block 
current block number 

prefix mask 

statement identification 


Xx*00' or x! FF' 















reference to declared variables 








—,— 


SEE in the prestatement 


delimiters 






de limiter identification 
stack priority 








reference to character string constant 
length of character string 


not used 
offset in character string table 


re |eejeoptoTesT s Tale], 
















reference to generated variables 


picture offset 


reference to variables with unknown 


attributes 
X'00', X'C' or x'18' 


reference to constants included 
in the prestatement 
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W 
end of statement 
level number 
block number 
not used in D-phases 
statement number 
error masks 
[EB |, error messages 
error number 
ES reference to built-in function 
As 
[| name of built-in function 
I/O intermediate key ai 


reference to generated label constant 


not available 


generated variable declaration 


not available 

macro 

table of constants 

table of declared variables 
not available 

constant in format statement 


e nd of program string. 





Figure 1. Input for Phase DOO (Part 2 of 2) 
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statement identifier 


number of embracing block 
current block number 
prefix mask 
statement identifier 


Ere EET T; To Ee T4 — sferencs to declared voll 


picture offset 
Attribute 2 
Attribute 1 


EA | al operations 


Operation 
number of operands 


A EN statements operations 


statement operation 
number of operands 


R name of WS 


block number 
level number 
initial value for working storage ** 


define initial value for working 
storage of block 


* on byte boundary 


** on double-word boundary 


mnm function call 


not used 
number of arguments 


ES], | evaluate subscript 


current array number 
number of subscripts 





C Figure 2. Input for Phase D05 (Part 1 of 4) 
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2 









[E7| name | offset [oo] | | tL] pla] , indirect reference (array assignment) 
picture offset 
Attribute 2 
0050 Fr] [t]lela] , reference to returned value 
picture offset 
Attribute 2 
EBJ oof | reference to variable with unkown 
attributes 
x'0' : KIER X'18' 
E9 similar to El (17 bytes) 
itself as in prestatement (22 bytes) 
Amas 


end of statement 













statement number 
block number 

level number 

not used in D05 

error mask 












ce] 


error message - 


error number 


ect FE 
name of built-in function 


number of available arguments 






reference to built-in functions 







similar to declared variable reference to character string constant 





EE and EF are not available. 





Figure 2. Input for Phase D05 (Part 2 of 4) 
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FO generated variable declaration 


UNSPEC function 













macro instruction 


string function 


UNSPEC pseudo variable 
string pseudo variable 


assembler macro instruction 





array function argument (ALL „ANY 
PROD, SUM) 


not available 


array function argument (target) 
(PROD,SUM) 





array function argument (target) 
(ALL, ANY) 





function reference (array function) 
DO separator 

not available 

end of program 


is array name and have the same 
format as X'E1'. 





Dm. 
; 77 
T 


Figure 2. Input for Phase DO5 (Part 3 of 4) 
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STATEMENT IDENTIFIER OPERATIONS 


dyndump 


overlay 


procedure and entry 


= 
GOTO 
entry (prologue ) (similar to procedure) 
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statement identifier 


no embracing block 


no actual block 
pref ix 
statement identification 


x*00' or Xx! FF' 


A 18 by tes — — — — ——— —— — —É» 


K may be: X'ET' 
X'E7' 
X'E8' 
X'EF', 
for detail see Input for the Routine PREMAC in phase D10 





E3| | | end of block 


EH BMG O Z BM GE A EET oe | define initial value for working 
a = 


storage of block 
block number name of WS2 
I | 
level number not used 


M of WS] 





initial value for working storage 


WS! is the name for the working storage on double word boundary and 


WS2 is the name for the working storage on byte boundary. 


ES] y | Ki | k2] Ka. premacros 


number of operands following the E5 key 


a bytes 


for details see Input for the Routine PREMAC in phase D10 





C 


Figure 3. Input for Phase D10 (Part 1 of 2) 


Phases D00-D11 (General) 169 





PL/I PLM 8 


IBM Confidential 


























ZARA 

EA| | | | | | end of statement 

error indicator 

ESR —M 

MA of operands following the EC key 

— AAA 

for details see Input for the Routine PREMAC in phase D10 

3] ME RAE F-keys A 
RAE 


A C bytes NNNM 


any key F'X' except X'FF' 
end of text string 


Figure 3. Input for Phase D10 (Part 2 of 2) 
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The attributes of variables and constants 
are packed into one byte as X'mn'. The 
meanings of m and n are shown in Figure 4. 


amo eq ae (a onm AO aue quus O UD ae A WO (UE ae E duxp GERD A QUA WES ae om a Z we ore CD SU w= UA Oe ow ew ow ow qu 


Attributes* 

Scalar variable without picture 

Scalar variable with picture 

Array without picture 

Array with picture 

ENTRY name or function name without 

picture 

Function name with picture 

Constant 

Format label 
|*The high-order bit of the half-byte m is 
| 1 in case of controlled variables. Oth- 
| erwise it is O. 


———————————— 
Attributes 


—- 
| 
| 
| 


r———————————4 


pna — —— — A zak eee AA A cza a — 


—— 
| 
| 
| 


e! 


| 

} 

| Binary float 

| Binary fixed 

| decimal float 

| Decimal fixed 

| Zoned decimal 

| Zoned decimal (T) 
| CS aligned 

| BS aligned 

| Sterling 

| Label 

| Pointer 

| BS packed 

| Major structure 
| Minor structure 
| Free 

| File 

n 


ppm Ee — — — — a — —, M — — —— —— ma mum AA 
MHBMHOUOUW3 (O .OJOUEWKD5— O 


dum eum wu 


Figure 4. Format of Attribute Byte 

Phases DOO - D11 fetch the input ele- 
ment by element and call the appropriate 
action according to the switch table 
EFACTION (32 bytes). The actions are 
numbered from 0 - 31. ACTIONn refers to 
the key X'En' (or X'F(n-16)' if n greater 
than 16. The switch table contains the 
displacement of the actions 0 - 31 rela- 
tive to the origin action divided by 2. 
Division by 2 is performed in order to 
make each displacement fit into one byte. 
Each action corresponds to a routine to 
be activated if the respective key is 
detected in the input stream. The FETCH 
routine fetches the address of the action 
to be taken and stores it in R10. 


Since the routines may be recursively 
activated, the return addresses are 
dynamically saved and restored. The 
principle of push-down store is extended 
by coupling it with the chain and list- 
processing technique to facilitate 
optimizing the use of registers and work- 
ing storage. 


1 


| 
4 


| 
| 
| 
| 
| 
| 
| 
| 
| 


r 
| 
r 


m LL em ma A A a gm AA quem SOS —À iu — A — — TA 


COMMON SERVICE ROUTINES 


The service routines shared by phases 
DOO-D11 are briefly described in the 
following. 


Saver -- DA 


This routine dynamically saves the rela- 
tive return address of a subroutine in an 
automatic save area. Base register BASE! 
always points to this save routine. The 
link register LINK is assumed to contain 
the return address to be saved when the 
routine is entered. Upon return from the 
routine, LINK contains the computed rela- 
tive address that was saved. The routine 
is called as follows: 


BALR R4,SAVER 


SAVER, which always contains the return 
address (entry of XXXX), is equated with 
BASE. 


RETURN -- DB 


This routine is used to dynamically 
return to the calling routine. It fetch- 
es the return address from the automatic 
Save area and modifies the corresponding 
pointer by decreasing it by 2. The 
return routine is called as follows: 


BCR CON, RETURNER 


where CON is any condition code. RETUR- 
NER, which always contains the address of 
the entry point of the RETURN routine, is 
equated with BASE2. 


ERROR -- DE 
The error routine is activated by: 


BAL  LINK,ERROR 
DC X'mmnn' 


where nn is the error number and mm is 
the severity code. The routine skips the 
Statement in error up to the end of the 
Statement and inserts the error into the 
text after the statement end. 


ADMVC -- DF 


This routine generates names used during 
compilation. The routine fetches the 
current name from the communication area 
IJKMVC and loads it into register 0. An 
error is indicated if the name fetched is 
0, i.e., if the number of names is great- 
er than 32K-1. If the name fetching is 
successful, IJKMVC is incremented by one. 
No arguments are required. The routine 
is called as follows: 


BAL  LINK,ADMVC 
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Data Manipulation Routines -- A3 MOVETO 
Z is VTO AN 
A general move routine MOVE is provided LS is TL currently available table NZ 
to move data between storage, work files, length | 
and table area. This routine is activat- LT is OL currently available output 
ed by one of six routines that pass the length 
required parameters for source and tar- RS is 8 register containing table 
get. The names and functions of these address 
routines are given in Figure 5. New RT is 7 register containing output 
routines may be provided for additional address 
requirements. The general instruction AX is AU load new table pointer to RX 
sequence of the routines listed in Figure AY is A2 write output 
5 is as follows: 
MOVEIO 
BALR Rh4,SAVER saves return address 
BAL RZ,MOVE calls MOVE routine Z is VIO 
DC AL2 (LS-Z) LS is IL currently available input 
DC AL2 (LT=Z) length 
DC X' 1TRS2RTRS 1R7T2' LT is OL currently available output 
DC ALT (AX-A1) length 
DC AL1 (AY-A1) RS is 6 register containing input 
address 
r-7-7------ j------- t----- T-------- T^77------ 1 RT is 7 register containing output 
| From| | | | | address 
{To | Input [Output] Table | Storage| AX is A1 read input 
HL-------- Homo Q1------ I-.------- I-------- 1 AY is A2 write output 
[Input | MOVEII| =. d - | > | 
[Output | MOVEIO| - | MOVETO| MOVESO | MOVEII 
|Table | MOVEIT = | = | = | 
|Storage | MOVEIS = i - | = | Z is VII | 
Lon di dio Lo | J LS is IL currently available length of 
input 
Figure 5. Names and Functions of Data LT is IL currently available length of 
Manipulation Routines input P 
RS is 6 register containing input 1 ź 
Definition of parameters: address A 
RT is 6 register containing input 
Z name of parameter list. address 
LS currently available source length AX is A1 read input 
LT currently available target length AY is A3 load new table pointer to RY 
RS register containing source address 
RT register containing target address MOVESO 
AX action to be taken if source length 
has been exhausted (can be A! or AH) Z is VSO 
AY action to be taken if length of target LS is TL currently available table or 
has been exhausted storage length 
A1 (can be A2 or A3) LT is OL currently available output 
Al origin of A-action routines. | length 
RS is 1 register containing storage 
The general move routine assumes that RZ address 
points to Z. RE 25 7 register containing output 
address 
Parameters used in the different MOVE AX is AL load new table pointer to RX 
routines, AY is A2 Write output 
MOVEIT MOVEIS 
Z is VIT Z is VIS 
LS is IL currently available input LS is IL currently available input 
length length 
LT is TL currently available table LT is TL currently available table or 
length storage length 
RS is 6 register containing input RS is 6 register containing input 
address address 
RT is 8 register containing table RT is 1 register containing storage 
address address 
AX is A1 read input AX is A1 read input 
AY is A3 load new table pointer to RY AY is AJ load new table pointer to RY. 


172 





PL/I PLM 8 


IBM Confidential 


Actions Taken in MOVE: A1,A2,A3,A4 -- AU 


Routine Al. This routine is activated if 
the length available in the current input 
buffer is exhausted. One record is read 
and the length available for the input 
buffer as well as the corresponding input 
pointer PIN are initialized. 


Routine A2. This routine is activated if 
the length of the output buffer is 
exhausted. The following actions are 
performed: 


1. One record is put out; 


2. The available length and the output 
pointer are initialized; 


3. The routine waits for completion of 
the output operation. 


Routine A3. This routine is called if the 
table area is full. The initial value 
X'7FFF' is moved into the corresponding 
target length. 


Routine AU. This routine differs from A3 
only in that it moves the initial value 
X'7FFF' into the source length. 


ACTION31 


This routine is called if the end of the 

program is detected in the input stream. 

It terminates the current phase and calls 
the next phase. 


BUFFER CONCEPT AND PHASE LAYOUT 


The read and write buffers (one of each) 
are located in adjacent storage areas (see 
Figure 60). The first record of the string 
to be processed is read into L2 of the 
read buffer and then scanned accordingly. 
If the beginning of L4 is detected, the 
contents of L4 are moved into LI and the 
next record of the string to be processed 
is read into L2 in non-overlapped mode. 
The pointer is set to the beginning of LI, 
and scanning is continued. This process 
is repeated until the entire string has 
been processed. For the write buffer, the 
procedure is the same. 


This buffer concept eliminates the 
necessity for using the NOTE and POINT 
macro instructions. 


RGG BUFFER A a 


LI | 


AAA 


LI - secondary read buffer 1 
L2 - read buffer 


L4 - secondary read buffer 2 same os for L1 


same as for L1 
same as for L2 
same as for L1 


L5 - secondary write buffer 1 
L6 - write buffer 
L7 - secondary write buffer 2 


L1 
L5 


Figure 6. 


L4 (may be zero) 
L7 (may be zero) 


Buffer Organization 





storage 


length differs from phase to phase, but is fixed in each phase 
length depends on available storage 
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PHASE PL/ID00 (STATEMENT DECOMPOSITION) -- AZ, BA «m 
| ds 


This phase performs the following major 
functions: 


1. It reorders the input stream in rev- 
erse polish notation. 


2. It decomposes the array and structure 
assignments. | 


3. It generates the prologue macro 
instructions. 


4. It processes and deletes the prestate- 
ment. 


The input stream consists of state- 
ments, each statement being preceded by 
its corresponding prestatement and fol- 
lowed by the end of statement. The input 
Stream may be considered as a continuous 
number of syntactical units, each unit 
being defined by its first byte (key). 
This key may be X'En' or X'Fn'. Depending 
on the key found, one of a group of rou- 
tines (named ACTIONO through ACTION31, 
i.e., ACTIONn for key X'En' or ACTION 
(n+16) for key X'Fn') is activated. 


The output is similar to the input, 
except that some of the syntactical units 
have a different format and meaning. 


The table and work areas, which are 
preceded by the area occupied by the I/O 
buffers, are dynamically allocated. 


Operator Priorities 


The operators that may appear in a PL/I 
Source program are ordered by relative 
priority, the lowest priority being zero. 
Within statements, operations with a high- 
er priority are performed before opera- 
tions with a lower priority preceding 
them. Expressions and assignment state- 
ments are evaluated from left to right. 
Exceptions are exponentiation, negation, 
prefix plus, and prefix NOT (logical NOT), 
which are evaluated from right to left. 
The operations that may appear in a PL/I 
source program and the corresponding 
priorities are listed in Figure 1. 


DESCRIPTION OF ROUTINES 


Note: the following routines are des- 
cribed in the section General Description 
of Phases DOO - D11. 

ADMVC 
ERROR 


MOVESO 
MOV ETO 


MOVEIT 
SAVER 
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Symbols used in flow charts: 


PIN -input pointer 

TP -table pointer 

SP -stack pointer 

INP -priority of input element 

STP -priority of element on top of 
Stack 

SORG -Stack origin 


STRORG -structure origin 


Fetch -- BC 


The routine computes the length of the 
current element in the input stream and 
loads the address of the appropriate 
action into registers RL and R10, respec- 
tively. It uses the current value of the 
input pointer PIN as argument and the 
table ACTION as switch table for the indi- 
vidual actions. If the current element 
has an F-key, the length is fetched from 
the two bytes following the key. Other- 
wise, the length is computed from LETAB. 
The routine is activated as follows: 


BAL  LINK,FETCH 


NL 


Init1 -- BB 


This routine is used to initialize the 
Stack pointer and the table pointer. 


ACTIONO -- BD 


This routine is activated when a statement 
identifier is detected in the input 
Stream. The stack and table pointers are 
initialized after checking the necessity 
for output from the table area. If the 
Statement is a DO header or DO trailer, it 
is replaced by X'F20004D5* or X'F20004E5', 
respectively. If the statement is a CALL 
Statement replacing a BEGIN statement, it 
is put out unchanged. In all other cases, 
the statement is checked to determine 
whether it is one of the statements to be 
processed by the phases DOO through D20. 
These statements have the internal rep- 
resentation X'E00002* through X'E00010'. 
If the current statement is one of these 
Statements, switch SW1 is set to X'FF'. 
Otherwise, it is set to X'00'. 


ACTION, 3, 4, 6; 8, 9, 30 





This routine is called when a variable 
name is detected. It moves the current 
input element into the table area. 











PL/I PLM 8 


IBM Confidential 





Figure 1. 


Action5, 7, 13, 15, 17, 21-28 


These routines are not available because 
the corresponding keys cannot occur in the 


text string. 


ACTION2 -- BF 


This routine processes the delimiters in 
the input stream and sets the delimiter 


switch CUR to X'FF'. 


setting CUR to X'FF'. 


If the input is an 
equal sign, the routine returns after 
If the input is any 


delimiter other than open parenthesis, 
close parenthesis, or comma, the input 


Operations and Corresponding Priorities 


priority is compared with the priority of 
the element on top of the stack. If it is 
higher, the current input element is 
Stacked, the stack pointer SP is decreased 
by 3, and the routine is left. Otherwise, 
the element on top of the stack is moved 
to the table. Both the stack and the 
table pointer are then incremented by 3. 


The routine continues processing by 
comparing the input priority with the 
priority of the new element on top of the 
Stack. 


Phase PL/IDOO 17 


l Internal | Priority |Type of | 

AB | |Delimiter |Representation|in String|Operation | 
( ļ--ł---------------------------- }-------------- +--------- }~--------------~-------------- { 
| 0|- | | | | 

| 1]|- | | | | 

| 2|- | | | | 

| 3|Built-in bracket | E200E3 | = |Operand dependent | 

| 4]Entry bracket | E200E4 | = |Operand dependent | 

| 5|Subscripted variable bracket| E200E5 | $ |Operand dependent | 

| 6|Prologue ( | E200E6 | - | = | 

| 71) | E200E7 | 1 | = | 

| 8|Comma | E200E8 | 1 | = | 
}--}------------------------ }--~----------- E--------- > m ł 

[10] | E203EA | 3 |String | 

11] | E204EB | 4 Bit | 

112]6 | E205EC | 5 |Bit | 
|~-}----~------------------- }--~----------- Jo }----~-~----------------------- { 

113|= | E207ED | 7 | Comparison | 

|14]= | E207EE | 7 | Comparison | 

p15|< | E207EF | 7 | Comparison | 

p16|> | E207F0 | 7 | Comparison | 

117| = | E207F1 | 7 |Comparison | 

[18|>= | E207F2 | 7 | Comparison | 

A }-------------- }---------}---------------+-------------- ł 
I19linfix + | E208F3 | 8 |Arithmetic | 
[20]infix - | E208F4 | 8 |Arithmetic | 

I21|* | E209F5 | 9 |Arithmetic | 

|22]/ | E209F6 | 9 | Arithmetic | 
|23|prefix + | E20AF7 | 11 lArithmetic | 

[24 |prefix - | E20AF8 | 11 |Arithmetic | 
}--}------------------------ }-------------- }---------}------------------------------ { 

|25| | E20AF9 | 11 [Bit | 

[|26|** | E20AFA | 11 [Arithmetic | 

"s [27| statement identifier | E000mn | = |Any | 
( | 28 | PROCEDURE | E00005 | - | - | 
i | 29] BEGIN | E00006 | = | = | 
[30|END (PROCEDURE) | E00007 | = [| - | 
{31|END (BEGIN) | E00008 | - | = | 

|32 |CALL | E00009 | = |Any | 

| 33|GOTO | E0000A | = |Label | 

[34 | ENTRY | EO 000B | = |Any | 

[35| RETURN | E0000C | = |Any | 

| 36| NOP | E0000D | > | = | 

137 | SET | E0000E | - |Any | 

|38| EXPRESSION | E0000F { = | Any | 

[39|IF | E00010 | = |Bit | 

| 40| OVERLAY | E00004 | = | Character f 

| 41 | DYNDUMP | £00003 | = | Any | 

A EA AA ol E ares Ta AAA botica A cg so J 
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If the input element is a (, the pre- 
vious element is checked to determine 
whether it is a delimiter. If it is a 
delimiter (PREV switch is X'FF'), the ( is 
Stacked. If it is not (PREV switch is 
X'00'), a list parenthesis (X'E200E5) is 
Stacked. 


If the input element is a comma, the 
elements in the stack are unstacked until 
a (or a comma is found. 


If the input element is a), the list 
counter is set to 1 and the delimiter in 
the stack is checked. The following 
actions are taken depending on the element 
found: 


1. If the stacked element is a comma, the 
list counter is increased by 1. 


2. If the stacked element is a (, both 
parentheses are deleted and the rou- 
tine is left. 


3. If the stacked element is a list 
parentheses, the counter value is 
Stored in the second byte, the paren- 
thesis in the stack is unstacked, and 
the routine is left. 


ACTION10 -- BE 


This routine is activated if the end of 
Statement is detected in the input stream. 
If the statement contains error (s) with a 
Severity code other than W, the entire 
Statement is skipped. The end of state- 
ment is put out together with the corres- 
ponding error message(s). Otherwise, 
control is transferred to STATEN. 


ACTION11 


The error in the input stream is put out 
unchanged. 


ACTION14 


The delimiter switch CUR is set to X'FF'. 
Processing is as in ACTION1. 


ACTION16, 18, 29 

The delimiter switch CUR is set to X'FF' 
and the element is moved to the output 
medium. 


ACTION19 


Pointer TP is loaded with the origin of 
the constant table in the prestatement. 


ACTION20 
If the current statement is not an expres- 


sion, the element is moved to the table 
area. Otherwise, the delimiter switch CUR 
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is Set to X'FF' and the element is moved 
to the table area. 


CHECKOUT -- BB 


This routine checks for elements in the 
table area that must be moved into the 
output buffer. 


STATEN -- BG 


This routine is called by ACTION10 if an 
end of statement is detected in the input 
stream. It determines whether the source 
program contains arrays or structures. 
PUTOUT is called if neither is present. 


If the current statement is an assign- 
ment statement and the source program 
contains arrays and/or structures, the 
Statement is checked for array or struc- 
ture assignment. Depending on the type of 
Statement, either ARROUT or STROUT is 
called to put out the statement. 


AC1 - AC6 


After the statement end has been found in 
routine STATEN, the information stored in 
the table area is scanned again, element 
by element. For the individual text ele- 
ments (keys EO - EF) one of the routines 
AC1 through AC6 is called. Table T1 
(Figure 2) gives the routine called for 
the corresponding key. 


pee cem Noter 1 
| Key | Routine | 
ļ------- nnn 1 
| EO | AC6 | 
| El | ACZ | 
| E2 | ACT | 
| E3 | AC3 | 
| E4 | AC3 | 
| ES | AC5 | 
| E6 | ACS | 
| E7 | AC5 | 
| E8 | AC3 | 
| E9 | AC3 | 
| EA | ACH | 
| EB | AC5 | 
| EC | AC3 | 
| ED | AC5 | 
| EE | AC3 | 
| EF | AC3 | 
AS La ci J 


Figure 2. Format of Table T1 


ACT == BR 


This routine is called for delimiters. If 
the delimiter indicates an array, a struc- 
ture, or a mixed array and structure 
expression, one of the routines ARRAY, 
CHAIN, or ARRCH is called. 
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ACZ -- BO 


This routine is called for declared varia- 
bles. 


AC3 -- BQ 


This routine is called for operands that 
are not declared variables. The stack 
pointer is decreased by 4. 


ACH -- BO 


This routine is called if the end of 
tatement is detected again. One of the 
routines DYNDUMP, ARROUT, STROUT, or 
PUTOUT is called. 


AC5 


This routine is not available since the 
corresponding element cannot occur. 


AC6 -- BR 


This routine is called for a statement 
identifier. It is identical with part of 
AC1. 


CHECKSP -- BB 


This routine modifies and checks the stack 
pointer. Error 142 is indicated if a 
Stack overflow occurs. 


ARROUT 


This routine puts out the array assignment 
Statement and the corresponding header and 
trailer macros.  PUTOUT is called. 


STROUT 


This routine puts out the structure 
assignment statements.  PUTOUT and ARROUT 
may be called several times to put out the 
Statement after it has been modified. 


ARRAY, ARRAYO -- BS 


This routine is called by AC1 or STROUT to 
process an array operand. If the operand 
was previously used, no action is 
required. The array is compared with 
other arrays in the statement, if any, for 
identical number of elements. 


CHAIN --BS 


This routine is called by ACT for process- 
ing structure operands. 


ARRCH 


This routine is called when mixed array 
and structure expressions are found in 
ACl. The routine consists of a call of 
the error routine ERROR. 


The routine computes the internal length 
(in bytes) of a variable or constant. In 
case of arrays, the length of the element 
is computed. 


PUTOUT -- BH 


When this routine is entered, the state- 
ment being checked is contained in the 
table area in reverse Polish notation. It 
is preceded by the corresponding attribute 
table and followed by the end-of- 
Statement. The statement attribute table 
is used only to fetch the attributes of 
the variables and constants that appear in 
the source text. 


The routine scans the statement body 
element by element and activates the 
appropriate action (one of the routines EO 
through EF) via the switch table TAB10. 
Routine En refers to key En. 


If a prologue is required, one of the 
routines E005, E006, or E00B is called. 
The appropriate routine is selected as 
described in EO. 


EQ -- BI 


This routine processes the "operation" 
Statement identifier. One of the subrou- 
tines E003 - E010 is called. Routine EOnn 
refers to the text element E000nn, which 
represents the statement shown in Figure 
1. 


E003, E004, EQOA, EQOE, EOO0F, E010 -- BI 


The library bit is set to 1, if required, 
and the 3-byte operation is put out. 


E005, E006, EOO0B -- BJ 


These routines generate the prologue 
macros. An additional branch around the 
proloyue is generated for ENTRY state- 
ments. 


E00C -- BI 

If a RETURN statement returns a function 
value, an assignment X'3020E' and a cor- 
responding return macro are put out, In 
all other cases, only the return macro is 
put out. 

E007 -- BI 


A return macro is put out for the end of 
block. X'E00007* is also put out. 


E00D 


The element is skipped. 
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E009 -- BI 


If the CALL statement has no arguments, 
the corresponding CALL macro is generated. 
Otherwise, the number of arguments is 
retrieved from the previous element 
(function bracket) and inserted in the 
second byte of X'EOnn09'. 


. E1 -- BL 


The routine constructs and puts out the 
12-byte element by calling ElGEN and MOVE- 
SO. 


E1GEN -- BK 


In the 12-byte field O, the routine con- 
structs the operand to be put out. TP 
points to the operand in the statement 
body. After return from E1GEN, field O 
contains the following information: 


Bytes Contents 
0-2 name 
3-1 modifier 
D storage class (attribute 1) 
6 data attributes (attribute 2) 
7 L = internal length in bytes 
8 p 
9 
10-11 offset of picture if numeric field 
EZ -- BO 


The routine determines the number of oper- 
ands, inserts this number in the second 
byte of the delimiter, and puts out 
X'E2nnkk'. 


E3 -- BM 

The routine puts out 12 bytes for 
character-string constants. Prior to 
output, the key is modified to ED. 
EU -- BN 


The routine puts out 12 bytes for generat- 
ed variables. 
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E5 -- BM 


The routine puts out a 12-byte operand for 
the indirect target for the RETURN state- 
ment. 


E6, E7, EB, ED 


Since the corresponding text elements 
cannot occur at this point, these routines 
are not available. 


E8 -- BM 


The routine puts out X'E800xx' unchanged 
for variables with unknown attributes. 


E9 -- BN 


A 12-byte operand is put out (in a format 
Similar to a declared variable) for con- 
Stants appearing in the statement body. 


The corresponding entry in the pres- 
tatement is also put out with the maximun 
possible length (22 bytes). 


EA -- BM 


The routine puts out the six bytes for the 
end of statement. | 


EC -- BM 


The routine puts out the function name 
(except for the NULL function). In the 
latter case, the name for the NULL func- 
tion (12 bytes) is put out instead of the 
function name. 


EE -- BM 


The routine constructs a 12-byte operand 
for a label constant or label variable. 


EF -- BM 


The routine constructs and puts out 
12-byte operands for return values. If 
the RETURN statement refers to a main 
procedure, the ERROR routine is called. 


TESTN -- BO 
This routine is called by E2 for checking 


the number of arguments. ERROR is called 
for any number other than 3. 
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This phase: 


1. determines the required conversions. 
The type of conversion depends on the 
operation and on the data types of the 
operands given. 


2. determines the resulting precision 
after conversion. 


3. determines the resulting precision of 
each operation. 


4. determines the macro keys for the 
Operations. The macro key depends on 
the operation and the data type of the 
Operand after execution of the 
required conversions described under 
item 1. An operation may be one of 
the following: 


a. Built-in function 

b. Statement identifier 
c. Subscript evaluation 
d. Function call 

e. String operation 

f. Arithmetic operation 


5. constructs intermediate macro instruc- 
tions. 


6. determines the necessity of working 
Storage fixed-point and floating-point 
registers. 


7. determines the type of operands 
(fixed-point register, floating-point 
register, working storage, etc.). 
This is machine dependent. 


The tables and work areas are 
dynamically allocated (push-down technique 
is used). The I/O buffers are located in 
front of the dynamic area. 


Phase Input and Output 


The input stream is already ordered in 
reverse Polish notation. It consists of 
syntactical units that can be identified 
by the first byte of each element, which 
may be X'En' or X'Fn', where n is a hexa- 
decimal digit from 0 to F. One of the 
actions 0 - 31 is activated depending on 
the key found. 


The output is similar to the input, 
only that some of the syntactical units 
have different formats and meanings. 


DESCRIPTION OF ROUTINES 
MAIN -- DJ 


The main routine initializes the stack and 
table pointers (SP and TP), activates the 
Skip routine, fetches the program string 
element by element, and calls the corres- 
ponding action (ACTIONO to ACTION31). 
ACTION (n) refers to key X"E0'+n. 


FETCH -- DD 


The routine computes the length of the 
current element in the input stream and 
loads the address of the corresponding 
action into register R10. When the key n 
is detected, the address of 

ACTION (n-X'EO') is loaded. If the current 
input element undicates an array, ACTION] 
is prepared to be called. 


CHECKSP -- DJ 


The routine fetches an 18-byte entry into 
the stack. The fetched entry is cleared 
and overlap of the table (constant stack) 
and the variable stack is checked. Error 
142 is given in case of stack overflow. 
ACTIONO (Begin of Statement) -- DK 

This action is called when an E0-element 
is detected in the input string. The 
Stack and table pointers are initialized, 
and the 6-byte input element is moved from 
input to output. 


ACTION1, 7, 13 -- DK 


The routine is called when a constant or 
variable is fetched. The routine stacks 
the input element together with the cor- 
responding attributes.  CHECKSP is called 
to get and clear an 18-byte stack entry. 


ACTION2 (Operation) -- DK 


The routine is called when an operation is 
detected. The routine branches to the 
EXPONENT routine if the detected operation 
is an exponentation. Otherwise, the 
address of the switch table (T20 - X'EA') 
is loaded into register R5. The output 
switch is set to X'EU' and the routine 
branches to ACTIONCO which is common for 
functions and operations. 


ACTION3 -- DL 
This routine is called if a statement 


identifier is detected in the input 
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string. Using byte 2 of the input string 
as a switch, this action activates the 
corresponding routine (E302 - E310) for 
each statement. Routine E3nn refers to 
the input element E300nn. The switch 
table ACTTAB3 (15 bytes) is used for this 
purpose. Each byte of this table contains 
the displacement of the corresponding 
routine divided by 2. Division by 2 is 
performed to make the displacement fit 
into one byte. 


Storage) -- DN 


The current element is put out unchanged 
after saving the current block number and 
level number. 


ACTIONS -- DM 


A function call is generated. The routine 
moves 2 to ACT56+2 in order to allows 
saving of all floating-point registers, if 
necessary. The call switch CALLSW is set 
to 0 in order to pass a result argument. 
Ihe current element is skipped and 
ACTION50 is called to process similar to 
the CALL statement. 


ACTION50 -- DO 


The routine processes a CALL statement or 
function call. The arguments are checked 
and assignments to dummy variables are 
generated, if necessary (e.g., constant, 
variable inclosed between brackets 
...«€tC.). In case of function calls the 
target field in which the function value 
is to be returned is generated. 


ACTIONG -- DN 


The routine converts the subscripts to 
binary integer, constructs the correspond- 
ing inermediate macro instruction, and 
puts it out together with additional 
request 0. The result which has the same 
data characteristic as the type of array 
is stacked and the indirect bit is set in 
the stack. 


ACTION8 (Variables with Unknown 
Attributes) -- DO 


The operand is moved from input to stack 
(3 bytes). If a value is already assigned 
to the operand, the corresponding attri- 
butes are moved from DO to the stack and 
the routine continues similar to ACTION1. 
Otherwise, the routine is completed. 


ACTION9 -- DK 
The action for constants is similar to the 


action for declared variables (ACTION1). 
In addition, the 22 bytes following the 
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constant reference are stacked in the 
constant table area. 


ACTION10 -- DK 


The 6-byte end-of-statement is moved from 
input to output. 


ACTION11 -- DK 


The error message is moved from input to 
output. 


The action is activated to process built- 
in functions. If the built-in function is 
a substring pseudo-variable, the routine 
3030 is called. Otherwise, R5 is set to 
point to the data table for built-in 
functions. The output switch ACTION1+1 is 
set to X'E3'; F1 is set to X'13', and 
ACTIONCO which is common to ACTION2 and 
ACTION120 is called. 


Action14, 25, 30 


These routines are not available since the 
corresponding text elements cannot occur. 


ACTION15 -- DK 


Similar to ACTION1, but the key X'EF' is 
replaced by X'E5'. 


ACTION16, -22, -23, -28 -- DR 

The input element is moved to output. 
ACTION17 

The routine processes the UNSPEC function. 
ACTION18, ACTION29 -- DS 


The input element is moved to output. The 
routine checks if the element is a DO 
header, DO trailer or none of both. If it 
is a DO header, the DO stack is initial- 
ized by clearing it to zero. If it is a 
DO trailer, the required DO variables are 
generated. Otherwise, it is put out 
unchanged. 


ACTION19 

This routine processes the STRING func- 
tion. It is similar to ACTION17 except 
that the bit switch is set to X'06'.. 
ACTION20 


The routine processes the UNSPEC pseudo 
variable. |j 


ES 


; / 
UA 
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ACTION21 


This routine processes the string pseudo 
variable. 


ACTION24 -- DR 


The 3-byte element is skipped and the 
following 12-byte element is stacked. 


ACTION26 -- DR 
The operand X'E800600000' is moved to the 
Stack as source. The current input ele- 
ment is moved from input to output. 


ACTION27 -- DR 


The operand X'E100090000' is moved to the 
Stack as source. The current input ele- 
ment is moved from input to output. 


ACTION31 


This routine is called if the end of the 
program is detected. It terminates the 
current phase and calls the next phase. 


ACTIONCO -- DP 

This routine is used for constructing 

premacros (key X'E5' or X'EC'). It con- 

sists of a sequence of subroutine calls. 

The following routines may be called: 

MOVEII to skip the current element in 

the input stream. 

MOVEDATA to determine N-1, N+1, M, M-18, 
and M+18, where N is the number 
of operands and M is the current 
value for the stack pointer. 


CHECKENT to check if any one of the oper- 
ands is a function without argu- 
ments. The routine modifies the 
preceding key to X'61' if it is. 

ACTION2C to determine the required con- 


version and the precision 
resulting from this conversion. 
DETERMIN to determine the precision of 
the result. 
to determine the appropriate 
macro instruction key for the 
Operation. 
PUTOUTFC/ to put out the intermediate 
PUTOUTE5 macro instruction. 


FINDKEY 


In case of a comparison operation, a 
SET TRUE macro is put out in addition. 


PQ -- DZ 
The routine computes the values p, q, L, 
and p-q and stores the results in Ru, R5, 
R3, and R2, respectively. The routine 
assumes that R1 points to the operand on 
top of the stack. 


POT == DZ 


The routine computes p, g, L, and p-q for 

one operand on top of the stack and stores 
the results in P1, 01, LL1 and LMQ1, res- 

pectively. The routine then calls PO. 


POZ2-==.DZ 


The routine computes p, q, L, and p-q for 
the two operands on top of the stack by 
calling PQ1 twice. The computed values 
are stored in the fields Pl, Q1, LLI, 
LMO1, P2, O2, LL2, and LMQ2, respectively. 


The routine checks whether the available 
key or function name is to be modified 
according to the data type of the result 
and performs the modification, if neces- 
Sary. The routine assumes that the field 
RESULT contains the type of the result of 
the current operation. 


MOVEDATA -- EB 
The routine computes N, N-1, N+1, N*18 
(N-1)*18, and (N*1)*18 and stores the 
results in NO, N1, N2, MO, M1, and M2, 
respectively. N is the number of operands 
for the current operation. If N>12, an 
error is indicated (149). 


PUTOUTE5 


This routine is used for putting out the 
output elements that refer to the opera- 
tion processed. The output consists of a 
5-byte element (with the key E5), followed 
by the operands of the operation (18 bytes 
for variables, 40 bytes for constants), 
and terminated by an 18-byte EE element 
giving the additional requests. For 
details refer to the section Input for the 
Routine PREMAC in phase D10. 


PUTOUIFC 


This routine is used for putting out the 
output elements that refer to the function 
processed. Except for the first 5 bytes, 
the output has the same format as in the 
routine PUTOUTE5. 


ARITH1 -- EI 

This routine moves attributes from a 
result of an operation or function to the 
RESULT field. 

ARITH2 -- EI 

After determining which operand represents 
the result of an operation, this routine 


moves the attributes of the result to the 
RESULT field. 
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RESLEN 


This routine is used to compute the length 
of a result. 


EXPONENT -- EN 


This routine is used for exponentiation 
operations. After changing the operation 
key to a function key, the routine deter- 
mines the type of exponentiation and the 
corresponding function name. 


E302 


The routine generates the intermediate 
macro instruction for the substring pseudo 
variable assignment. The data type of the 
substring (bit or character) is moved from 
the target field to the data vector. 


E303 (CALL DYNDUMP) -- DU 


The routine generates the intermediate 
macro instruction for the DYNDUMP state- 
ment. E303 branches to ACTION12. 


E304 (CALL OVERLAY) -- DU 


Ihe routine calls ACTION2 to generate the 
intermediate macro instruction for the 
CALL OVERLAY statement. 


E305, E306, E30B -- DU 


No action is required. 
E307,E308 -- DU 


These routines are called when an END 
Statement is encountered. The end-of- 
block element E3xxxx is put out. 


E309 (CALL Statement with Arquments) -- DO 


The routine calls ACTION50 after setting 

the CALLSWITCH to GENTAR1-GENTAR in order 
to suppress the generation of the target 

field. 


E30A (GOTO Statement) -- DT 


The routine checks whether the target is a 
label constant or label variable. If it 
is neither or both, a diagnostic is 
produced. If it is a label variable, a 
branch-to-label-variable intermediate 
macro instruction is generated. If it is 
a label constant and the level number of 
the label and the block containing the 
GOTO statement are identical, a simple 
branch macro instruction is generated. 
Otherwise, a label assignment is generated 
and a branch-to-label-variable macro 
instruction is generated. If a branch to 
"label variable' is generated, the library 
GOTO bit is set to 1. 
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E30E -- DV 


The routine generates the assignment macro 
instruction. If the operand on the left- 
hand side of the equal sign is a constant 
or entry name, an error message (54) is 
generated. If the operand on the left- 
hand side is a DO variable, the attributes 
given on the right-hand side are stacked 
in the DO variable stack. 


E30F -- DU 


This routine is called for expressions. 
The routine continues with routine E303 
after clearing the picture byte. 


E310 -- DW 


The routine checks whether or not a 
comparison operation has been generated 
prior to the current IF and generates a 
branch-on-condition macro or a branch-if- 
true macro, respectively. 


Example 


a) IF A>B THEN GOTO I; 
Compare A,B 


BNH L1 
B L 

L1 = o € e © eo o © © 

L > cęeo e 90 09 © © 

b) IF A THEN GOTO L; 

Convert A to bit 
OC A‘ ,A' 
BZ L1 
B L 

L1 a ee e. o o 9o o © 

L > e 0o o o € © © 


E30C, E30D 


These routines are not available since the 
corresponding elements cannot occur. 


ACTION2C 


This routine is common for ACTION12 and 
ACTION2 which are called by ACTIONCO. The 
routine fetches the corresponding 
characteristic data for the operation or 
function from the T-table and stores this 
data in DATA+3, The routine calls the 
routines COMMON and CONVERT to determine 
the data and storage type required for 
each operand. 


DSGEN -- DW 


The routine generates DS instructions for 
working storage in the current block. RO 
contains the length to be generated. To 

ensure that the generated working storage 
lies in the first 4K, the area is generat- 
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m ed as a multiple of DS of length 8 14 (R1), respectively. The routine uses 
( (double-word) . If the length is 0, no the tables FROTO, TYPER, and TYPEC and the 
| working storage is generated. group of routines PREC. 
MOVECON -- EM CHECKENT -- EE 
The routine tests whether the operand is a This routine is called by ACTIONCO. It 
variable or a constant. If it is a con- checks whether the operand is an entry 
stant integer, it is converted to binary name without arguments. If an operand is 
integer in register RO and switch CON is an entry name (function value), this is 
set to 0. Otherwise, CON is set to X'FF'. noted by replacing the El-key by 61 to 
SP points to the argument in the variable allow the generation of a dummy variable 
Stack and TP points to the constant value as well as the appropriate function call 
in the constant stack. If the sign bit is in phase D10. 
1, the two's complement of the integer 
constant is loaded into RO. CONVERT -- DX 
PRECSION -- EF | The routine computes the data type for n 


operands required by an operation. 
The routine fetches the appropriate sub- 


routine according to the matrix FROTO (see The conversion matrix MATRIX (see Fig- 

Figure 1) to compute the precision result- ure 2) is used to determine the data type 

ing from a specified conversion. R3, required for the result. The required 

which contains the type available, and R5, data type is a function of the type of 

which contains the type required, are Operation and the data type of the oper- 

passed as arguments. The resulting P, Q, ands. An example of how the required data 

and L are stacked in 15 (R1), 16 (R1), and type is determined is given below. 

O reae EE IS daj EDS qe mS IE TUTO po c RC E CC LL pee ME poc UMS 1 

| Lo fpa d 2 p 4 D x 3 

ee Sooo }------ }~------------ ł------ }-----~~-----~-------- ł--------- 1 
= | TO/FROM | | | | |Decimal | | 
( | | | [Decimal | |fixed, zoned, | | 
has | |Binary|Binary|float, float | | zoned (T), | | 

| |float |fixed |numeric field|Bit |decimal numeric field|Character | 

}~--------------- t------ ł------ }------------- ł------ }---------~----~------ o 

|0 Binary float | - |PREC3 |PREC6 | PREC15 | PREC9 U = 

| 1 Binary fixed |PREC1C| - | PREC7 | PREC 16 | PREC 10 | = 

{2 Decimal float |PREC20| - | PREC11 | = | PREC11 JL. o 

[3 Bit |PREC1 |PREC4 |PREC7 | - |PREC12 | PREC1B 

|4 Binary integer|PREC2 |PREC2 |PREC2 | PREC 16 | PREC2 [ = 

[5 Decimal fixed |PREC23|PREC26|PREC23 | PREC25|PREC18 if not | = 

| | | | | |decimal fixed | 

[6 Character | = |- = | PREC17 if | PREC13| PREC17 if | = 

| | | |numeric field| |numeric field | 

—————— | — — — À— | PRS — V PEN A IIA nO NM 


|Each of the routines PREC.  computes the precision resulting from the data type 
|conversion. For details on the rules for computing these precisions refer to the 
[SRL publication PL/I Subset Language Specifications, Form C28-6809. The precisions 
[not defined in the language are as follows: 

| 

| 


[Binary float to binary fixed PREC1C 
| P = mn (P,31) Q-20 
|Decimal float to binary fixed PREC7 

P = min (CEIL (P*3.32),31) Q=0 
|Binary float to decimal float PREC20 
| P = CEIL (P/3.32) Q= 0/1 
[Binary float to decimal fixed PREC23 
| P=5 O= 0 


|P, Q, and L of the source data are passed as parameters in RP, RQ, and RL. The 
resulting values are returned in the same registers. 
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Figure 1. Matrix FROTO Used to Determine the Routine for Computing the Precision after 
Conversion 
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Figure 2. Conversion Matrix MATRIX 
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Assume an addition of two operands is to The addition implies that the operation 
be performed. The first operand is of the type required is coded arithmetic (column 
type bit (X'FA' which corresponds to line 7 15 in MATRIX). 
in MATRIX), the second operand is of the 


type numeric field floating point (X'A' For the first operand, column 15 of line 
which corresponds to line 10 in MATRIX). 7 in MATRIX points to 9, which is binary 
The common data type to which both operands integer. For the second operand, column 15 
must be converted is then determined as of line 10 points to 2, which is decimal 
follows: float. 
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If an operation O of type to has n oper- 
ands of type ta, tao .........tn, the common 
type required (t) is: 


t = MATRIX (t1,t0) & 
MATRIX (t2,t0) € 

© 

e 

e 


MATRIX (tn,t0). 


In order to determine the common data 
type of both operands, the values found 
(X'09' and X'02') are anded and yield a 
result of zero. Thus, the data type to 
which both operands must be converted is O0 
= binary float. 


COMMON -- DY 


Ihis routine determines the data type 
required for each operand for a specified 
operation according to the information 
contained in DATA. The routine further 
determines the data type of the result and 
stores it in RESULT. The routine PRECSION 
is called n times to determine the preci- 
sion and length of each operand after con- 
version. R3 and R5, which contain the type 
available and the type required for each 
operand, are passed as arguments, 


DETERMIN -- ED 
This routine is called by ACTIONCO. It 
selects one of a group of routines provided 
for computing the resulting precision of an 
operation of function. The actions per- 
formed for operations by the individual 
routines are shown in flow chart ED, A 
special group of routines is called for 
functions. These routines have the stand- 
ard label P followed by the internal name 
of the function in decimal notation. Fora 
list of all functions and their internal 
names refer to Appendix C. 


The routines store the characteristics 
of the result in the 6-byte field RESULT, 
whose format is as follows: 


bytes 0-1 data attribute 


byte 2 length (in bytes) of the 
result 

bytes 3-4 precision P and Q of the 
result 

byte 5 Zero 

Note: The type of the result is already 


determined and stored in the result field 
prior to calling any one of these routines. 
The routines may determine a new key by 
calling KEY4MOD and move it to DATA+2, if 
required. 


P (NA) 


This is a group of routines; the descrip- 
tions of the routines follow. P(NA) refers 
to the function with the internal decimal 
name NA. Functions other than those des- 
cribed below cannot occur as input for this 
phase. After phase D05, the set of possi- 
ble function names is expanded by separat- 
ing long and short float functions. 


P80 (TIME) 


The function length and precision 9 are 
moved into RESULT+2. 


P81 (DATE) 


The same as P80. L and P are 6. 


P82, P184 (NULL and ADDRESS) 


The attributes for pointer results are 
moved into RESULT. The pointer switch 
(MVCRES1+1) is set to X'20'. 


P84 - P116 


After conversion to float, if necessary, 
these functions have the same attributes as 
the argument. 


P118 (ATAN (Radiant)) -- EK 


The routine checks the number of arguments 
and modifies the name accordingly. If only 
one argument is available, ARITH1 is 
called. Otherwise, ARITH2 is called. 


P120 (ATAN (Degree)) -- EK 


The routine is similar to P118. 
are different. 


The keys 


P126 (REPEAT) -- EK 

The routine computes the length of the bit 
or character string resulting from the 
REPEAT function. 

L = (N+1) *P 

P1260 -- EK 

This routine is used by routine P126 for 
computing and storing the length L of the 
result field. 

P128 (INDEX) 

The result is binary integer with the pre- 
cision (15,0). The routine modifies the 


key, if necessary, to 129 if the argument 
is of the type character. 
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P130 (SUBSTR) P165 (TRUNC) -- EL ATN 
The length of the substring is checked and After moving the initial key for TRUNC to a 
converted to binary integer. The resulting KEY4MOD+3, processing is identical to P162 
(L, P, Q) are determined by calling P1260. and P163. 
P132 (BOOL) 
P168 (ROUND) -- EL 
RESULT (L, P, Q) = Max (La + Pay Qa) , (La, 
P2, Q2); For this reason, P132 calls GET- The routine computes the precision of the 
MAXPO after modifying R1 and R2 to point to result and modifies the function name 
the first and second argument of the func- according to the resulting data type. 
tion. 
P166 BIT P171 FLOAT 
P1340 and P138 (MAX and MIN) -- EJ P167 CHAR P172 FIXED 
P169 BINARY P173  PRESISIO 
The routines compute the precision result- P170 DECIMAL 
ing from these functions. The precision 
rules are given in the SRL publication PL/I These routines are identical. They 
Subset Lanquage, Form C28-6809. The func- generate assignments for the above func- 
tion name is modified according to the tions. Ihe precision of the target may be 
resulting data attribute. Specified by the programmer. If the preci- 
sion is not specified, the rules for data 
P1344 type conversion are applied. 
The routine computes P-Q in R4 and Q in R5 P174 (MOD) 
for fixed-scale data. The parameter R1 
points to the 18-byte argument. The routine computes the precision of the 
result and modifies the function name 
P146 short float ** integer according to the resulting data type. 
P147 long float ** integer 
P148 decimal fixed ** integer P175 ADD 
P149 binary fixed ** integer P176 MULTIPLY A 
P150 short float  ** short float P177 DIVIDE TN 
P151 long float ** Jong float ud 
The routines are identical. The calling 
These routines compute the precision of Sequence is generated either in phase D20 
exponentation results. For P146 and P147, or in phase D17. The precisions, if speci- 
P is identical with the base. The preci- fied by the programmer, will be selected. 
sion for P148 and P149 is previously deter- If no precision is specified, the rules for 
mined in the routine EXPONENT. P150 com- the addition, multiplication, and division 
putes the precision of the floating-point are applied. 


result as max (P1, P2). 


P160 (ABS) -- EL 


Ihe routine determines the key for the 


P178 (HIGH), P179 (LOW) 


The two routines are identical. 


individual ABS functions (4 are available) P180 SUM 

and computes the resulting precision. If P181 PROD 

the argument is float, the result has the P182 ALL 

same precision as the argument. If the P183 ANY 

argument is fixed, the resulting precision 

is (P*1,9). These four functions are identical. 

P161 (SIGN) KEY4MOD 

The routine computes the precision of the The routine modifies the function name 

SIGN function. according to the data type of the result. 
The initial key is moved into KEY4MOD+3, 

P162 (FLOOR), P163 (CEIL) -- EL and the routine assumes that the result has 


already been determined in RESULT. 

These routines compute | 

Note: The following routines are described 

P = max ((P-O*1), 1) and in the section General Description of Phas- 
= 0 





Q es D00 - D11. 
in case of fixed scale, and P in case of ERROR MOVEIO MOVESO MOV EIS 
floating-point. ADMVC MOVEII SAVER 
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This phase is built up of three logical 
parts: 
1. Scan (ACTIONO - ACTION31) 


2. Determination of registers and working 
storage. 


3. Generation of intermediate and conver- 
sion macros. 


The communication among the three parts 
is as follows: 


SSA 1 
V V 
| Part 1 | | Part 2 | | Part 3 | 
AAA J AAA J IA J 
A A 
Ute NE KOBE J 


Symbols used in flow charts: 


PIN : input pointer 

OPR : output pointer 

SP : stack pointer 

TP : table pointer 

INP : priority of input element 

STP : priority of element on top of stack 
SORG : stack origin 

STRORG: structure origin 

SPB : stack pointer (occupied stack 


chain) 
SPA : = SP = stack pointer 
TABORG: table origin 


(free chain) 


Note: The following routines, which are 
used in this phase, are described in the 
Section General Description of the Phases 


ADMVC MOVESO (=MOVSTO) 
SAVER MOVEIT 
PART 1 OF D10 -- EP 


Part.1 scans the input, element by element, 
and calls the appropriate routine 

(ACTION (x)) . ACTION (x) refers to text 
elements with the key X'EO'*x. There are 
as many actions as there àre elements 
(narked by keys) to be processed in this 
phase. However, actions may be represented 
by the same coded routine. The subroutines 
ACTION (x) are the only subroutines used by 
part 1 of phase D10. 


Operands are moved from input into a 
dynamic area (stack. 


ACTIONO 


The pointers for the register table, the 
Stack, and the table area are initialized. 
If the current statement is an expression 
Statement, a store macro instruction for 
the registers is generated, if required, 
and a switch is set for generating the 
corresponding restore macro instruction 
when processing of the statement is com- 
pleted. 


ACTION1, -7, -8, 1! 
The element is moved to the table area. 
ACTION3 


The element is skipped and the working 
Storage required in the current block is 
generated. 


ACTIONU 


The initial values and the names of the 
byte-aligned and double-word-aligned work- 
ing Storage are retrieved from the input 
stream and stored. The input element is 
moved into the field INITIAL. 


ACTIONS, ACTION12 -- EQ 


The 5-byte element is moved to the table 
area. The corresponding operands are 
fetched from the input stream and also 
moved to the table area. If an operand is 
an intermediate result, it is retrieved 
from the stack. After all operands have 
been fetched, PREMAC is called to generate 
the necessary macro instructions for con- 
version and for the operation, if required. 


ACTION6, -13, -20, -21, -2, 17 


These actions are not available since the 
corresponding text elements cannot occur. 


ACTIONS 


The constant value is moved into the con- 
Stant area. The constant operand is moved 
into the operand area. The negative offset 
value of the constant value in the constant 
area is moved into bytes 10-11 of the oper- 
and. 


ACTION10 


This routine is called if the end-of- 
statement is detected in the input stream. 
A load-multiple macro instruction for these 
I/O registers is generated if registers 
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were saved at the beginning of the 
statement. The length of the working stor- 
age required in the current statement is 
compared with that of the current block. 
The greater of the two values is saved as 
working area of the block. 
ACTION11,-16,-18,-19,-22,-21,-28 


The input element is skipped. 


ACTION15 


This routine is called if the input element 
replaces an intermediate result (EF-key). 
The element is moved to the variable area 
and the corresponding stack address is 
evaluated and moved into bytes 2-5 of the 
variable. 


ACTION25 


Switch ACT10SW is set to and the routine 
proceeds similar to ACTION29. 


ACTION26, ACTION27 


The output is modified for array functions 
and the element is skipped. 


ACTION29 
The input element is skipped. 
ACTION30 


The specified registers are freed 
ing ACOMAX) if they are occupied. 


(by call- 


ACTION31 


When the end of the text string is detect- 
ed, this routine terminates phase D10 and 
calls the interface macro IJKPH to fetch 
phase D11. 


PART 2 OF D10 (PREMAC) -- GF 


Part 2 of phase D10 (entry point PREMAC) is 
called if an operation is detected in the 
input stream. It prepares the macro 
instructions. This includes the processing 
of assignments, conversion of the operands 
to the required data types, moving of oper- 
ands to the required storage types, conver- 
sion of floating-point operands from short 
float to long float, and to make requests 
for additional required operands. The 
routines called for performing the indivi- 
dual functions are discussed in later sec- 
tions. 


The general input format of this routine 
is as follows: 
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(D (D 0) (0 (0) (18) 


OS. ee a NEAR: pre 
IK | N [K1 [K2 |K3 |OP1 | 
tas rs 
(18) (1) (1) (2) (2) 
See fae ¡UAT ala: depara: OIE pep 
loOPn {EE |M  |AR1| | ARm| | 
— O EE E hee R E 
da LEA W APERE EE RAEE J 
18 bytes 
K = X'E5' for macro instructions 
X'EC' for functions 
N Number of operands 
OP Operand (see detailed description 
below) 
EE X'EE' 
M Number of additional requests 


AR Additional request 
The format of the operands is: 


Byte (is) 


1 Operand key 
2-3 Name of the operand 
4-5 Modifier 
6 Attribute byte = byte 5 of SYMTAB 
entry 
7 Attribute byte specifying data 
type of operand 
Length of the operand 
Precision of operand, or length in 
bytes (bits) for character (bit) 
string 
10 Scale factor of operand 
11-12 Offset in constant table pointing 
to corresponding constant if oper- 
and key E9 or 69. 
Offset in character string point- 
ing to corresponding ED if byte 13 
contains 8, 10, or 11. 
Name of corresponding DED if byte 
13 contains 4 or 5. 
13 Number giving available data type 
of operand. 
14 Number giving required data type 
of operand. 
15 Length of operand required after 
conversion 
16 Precision of operand required 
after conversion 
17 Scale factor of operand required 
after conversion 
18 Required storage type 


Contents 


o 00 


The output of the routine PREMAC may 
consist of the following: 


1. Macro instructions 


Byte (s) Contents 
1 


key X'F2' 
253 length of macro instruction. 
4 key; for the format of the 


following bytes see phase E50 
for the respective key. 


z 


1 
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Premacros 


4. 


Assembler instructions 


2e 


Byte (s) Contents 


Byte(s) Contents 


key X'F6' 
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Figure 1. 
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**Identical with ATAB. 


N.F. 
NF 





IFL 
FIX 
STR 
STR 
FIX 
FIX 
INT 
FL. 
N.F. 
DEC (T) 
„DEC 


= BIN. 

= DEC. 

- DEC. FL 
= BIT. 

- CHAR. 

= DEC. FIX 
= DEC. 

- DEC. 

- BIN. 
"DEC 

= DEC. EIX. 
- FLOAT. 

= FIX. 

- STERL. 

- BIN. INT 
- ZON. 

- ZON. 


N.F. 
Routine Table 


FIX 
STR. 


INT 


*Identical with ROUTAB. 
utero A cS E AA EE te ne leans a Dn a a O a Z PER ARE 


30|Z0N. DEC (T) 
Figure 2. 


13|BIN. FIX 
14|DEC. FL 
15|DEC. 
16|CHAR.STR. 
17|BIT. STR 
18 | BIN. 
19|STERL. 
21|FLOAT N.F. 
23|FLOAT N.F. 
24|FIX. N.F. 
25|DEC. FL. 
26|DEC. FIX 
27|DEC. FIX 
29|ZON. DEC. 
0 | ERROR 


22|FLOAT N.F. 
28|BIT. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
190 


PL/I PLM 8 


IBM Confidential 


CONVERT -- GG 


This routine performs the conversion of 
operands from available to required data 
type. Most of the conversions are per- 
formed in single steps. 


The conversion table COTAB (see Figure 
1) is used to determine the conversion 
Steps required. The elements V and W in 
column Y and row X in COTAB give the first 
conversion step for a conversion from avai- 
lable data type (Y) to required data type 
(X). V indicates the routine of this part 
of the phase (CACTION(V)) that handles the 
required conversion step. W refers to the 
routines that represent the individual 
conversion steps. The data type Y' 
obtained after conversion step W is given 
as element (w) of ROUTAB. The new attri- 
bute of the operand is given as element (W) 
of ATAB.  ROUTAB and ATAB are identical 
with columns 3 and 4 of the routine table 
(See Figure 2). 


The conversion is continued with further 
conversion steps until the new data type Y' 
equals the required data type X. 


ADDPQL 


This routine determines P, OQ, and L of the 
target depending on the routine number w. 
The table shown in Figure 3 gives the for- 
mulas to be evaluated for the routines. 


LS, PS, QS L, P, Q of the source 

LT, PT, OT L, P, Q of the target 

LC, LB length of character or bit 
string (for source (S) and 
target (T), respectively. 


The routine number specified in the 
lefthand column of Figure 3 is the same as 
the number specified in the lefthand column 
of Figure 2. 


p punte O O UH 1 
| Rout.| EVALUATION OF LT, PT, QT | 
| number | | 
}--~~--}----~---~---~---~------------------- { 
| 3 Jno evaluation (error) | 
[------ ļ---------------------------------- 1 
| 1 |LCT=PS, LT=LCT | 
H------ Yo 4 
| 2 |PT-CEIL (PS/3.32) | 
| | if PT > 6: LT-8,0T-X'58' | 
| | if PT ś.6: .LT=4, Or=Xx"00' 
}------ ł---------------------------------- { 
| 3 | PT-MIN (CEIL (PS¥*3. 32) ,31 | 
| | if PT > 21: LT-8, QT=X'58' | 
| | if PT < 21: LT=4, QT-X'00' | 
}------ Y { 
| 4 |PT-31, LT=4, OT=0 | 
da | ONZE NI A A IN APTUS J 


Figure 3. Evaluation of L, P, and Q of 
Target (Part 1 of 2) 


AO A pm 1 
| 5 |PT=PS, QT-QS, LT-PT | 
I------ A +--+ ---~ { 
| 6 |PT-PS, OT=QS, LT=PT | 
[--—--- {-~---~-----------~---~----+-------- { 
| 7 |PT=PS, QT=0, LT=4 | 
H------ o ł 
| 8 |LBT=PS, LT=CEIL (LBT/8) | 
ļ------ {-~--------------------------------- ł 
| 9 |PT-PS, QT=0S, LT=FLOOR (PT+2) /2) | 
}------ fo------=-~--~~-------~------------ ł 
| 10 |PT-PS, QT-QS, LT-FLOOR (PT+2) /2) | 
ļ----~- q ! 
| 11 |PT=31, QT-0, LT=4 | 
I------ > 1 
| 12  |PT-PS, QT-0, LT=4 | 
ļ------ po ł 
| 13 |PT=PS | 
| | Sf PP > 21: LT 9B, OF =X158" | 
| | if PT < 21: LT = 4, QT =X'00' | 
[------ >> AA M MMMM ł 
| 14 |PT=PS, QT-0, LT-FLOOR (PT+2) /2) | 
ļH----~- PA AAA enn nnn nen 1 
| 15 | PT-PS | 
| | if PT > 6: LT = 8, OT = X'58* | 
[ | if PT € 6: LT 24, OT = x00" | 
[------ Y on ł 
| 16 |LBT=MIN (LCS*8,64) , LT=MIN (LS, 8) | 
ļ------ }-~-------------------------------- { 
| 17 |LCT=ELBS, LT= LCT | 
So A a 
| 18 |PT-CEIL (PS43.32) + 1, | 
| |QT-0, LT=FLOOR (PT+2) / 2) | 
ļ------ Je { 
| 19 |PT=PS, QT=QS LT=FLOOR (PT+2) /2) | 
}------ }---------------------------------- ł 
| 20 |no evaluation (no routine) | 
[----~- }~~---~--~~~--~~--~---~---~---~---~ { 
| 21 |PT=PS, QT=0, LT=FLOOR (PT+2)/2) | | 
[------ Yo oo 1 
| 22 |PT=31, QT=0, LT=4 | 
}----~- }---------~---------------~------+- { 
| 23 |PT=PS | 
| | if PT > 6: LT = 8, OT = X'58' | 
| | if PT < 6: LT = 4, OT =x'00' | 
ļ------ }---------~------------------------ ł 
| 24 |PT=PS, QT=QS, LT=FLOOR (PT+2) / 2) | 
H------ Jo ł 
| 25 |must be assignment, | 
| 26 |PT, QT, LT are given | 
| 27 | | 
| a fen nn nn nnn  — —Á ł 


. Evaluation of L, P, and Q of 
Target (Part 2 of 2) 


ADASSI (0) , 742) -- GI 


The routine processes assignments to binary 
float (X = 0) and decimal float (X - 2). 


ADASSI (1) -- GJ 
The routine processes assignments to binary 
fixed. If the source alos has the attri- 


butes binary fixed, the assignment is iden- 
tical with conversion CV36. 
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ADASSI (3) -- GK 2. a variable or constant that must be 
taken only by its value. (f ^ 
The routine processes assigments to decimal The instruction NE 
fixed. If the source also has the attri- 
butes decimal fixed, processing is contin- MVC X(L), OP 
ued by the part of the phase that prepares 
the input for the macro generation. The is generated and OP is replaced by X. 
final assignment macro is then constructed 
in the following phase, M (OP) M (X) 
ADASSI (4), -5, 28, -11 -- GL 3. a call without parameters. The call 
macro 
This routine processes the assignments to 
zoned decimal (X = 4), zoned decimal T (X = CALL (OP,RE) 
5), Sterling numeric field (X = 8), and 
fixed numeric field (X = 11). The assign- where OP = entry name and RE = return 
ment is performed in two steps: first to value is generated and OP is replaced 
decimal fixed and then final assignment to by RE. 
the required data type. 
M (OP) M (RE) 
If the initial assignment was 
ADCOB3 -- GP 
where ATT = O, 1, ... 11 
ATS = 4, 5, 8, or 11 This routine is used for initializing poin- 
ters. Z1 points to the start address of 
it is separated into the text element with an E5 key. Z2 points 
to the first operand. N Specifies the 
GWO (3, LGWO, PT, OT) =S (ATS, LS, PS, QS) ; number of operands. 
T (ATT, LT, PT, OT) =GWO (3, LGWO, PT, OT) 
CACTIONO -- GO 
where LGWO = FLOOR ( (P+2) /2) 
The routine performs three conversion 
The switch ADASCO separates the first steps. Parameter W specifies the type of " 
assignment (GWO - S) and the second assign- conversion. W = 0 indicates an invalid (~~ 
ment (T = GWO). The initial value of the conversion. For W greater than zero see D 
Switch is zero. Thus, the NO-branch refers the routine table (Figure 3).  ADMVC is a 
to the first and the YES-branch to the subroutine used for increasing and testing 
second assignment. the variable counter IJKMVC. 
If the attributes of source and target CV36 == GR 
are equal, the assignment is identical to a 
character-string assignment. This subroutine is used for the construc- 
tion of binary assignment macros. If the 
ADASSI (6) ,-7 - -GM preceding statement identifier contained an 
indication that size overflow must be 
The routine processes assignments to char- checked, the macro key X'05' is used. Oth- 
acter string (X - 6) and bit string (X - erwise, the key X'06' is used. 
"pa 
CACTION1 -- GS 


ADASSI (9) , -10 -- GN 
This routine performs the conversion steps 


The routine processes assignments to binary that require no transfer of the operand to 


integer (X = 9) and floating-point numeric another address. Thus, the requested tar- 
field (X = 10). If source and target have get field may be freed. For the individual 
the attributes floating-point numeric conversion steps refer to the routine table 
field, the assignment is identical to (see Figure 3). 

action (4) of the conversion routine after 

setting the parameters V and W and changing CACTION2 -- GT 


a SECTAB entry. 
This routine converts from decimal fixed to 





ADTEEO -- GO binary integer. 

The subroutine is used for replacing indi- CACTION3 -- GU 

rectly given operands. If the macro 

instruction M (OP) has the operand OP, OP This routine performs the conversion steps 

may be one of the following: between zoned decimal (T) and decimal 
fixed. Refer to the routine table in Fig- 

1. a normal operand (no action required) ure 3. 
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CACTION4, -5, -6 -- GV-GX 

This routine performs the conversion steps 
that use library routines. Two types of 
macro instructions may be constructed: 


1. (D (2 M (0 (0 (6) (6) (2 (2 
elu ce ue UL ue 
[F2/0016/41 | I |RN [OP1|OP2|DED1|DED2| 
icleeedlzcA2l1.22242-—11.---—1.2- 4-4 


2. (1) (2) (1) (1) (0) (6 (6 (2) 
[F2[0014[42 | I |RN [0P1|OP2|DED| 
Doc A, A O PS A E A 


Format 1 refers to CACTIONY and is used 
for calling library routines that require 
two DEDS. 


Format 2 refers to CACTION5 and 
CACTION6. For CACTIONS, DED must be the 
DED of OP1. For CACTION6, DED must be the 
DED of OP2. RN is the routine name. 


In addition to the construction of the 
required macro instruction, the routine 
sets the bits for the routine name and for 
the indirectly used library routine. The 
routine name and the name of the indirectly 
used library routine are given in columns 5 
and 6 of the routine table (see Figure 3). 


DEROUT0-3,-6,-7 -- GY 


These routines generate the DEDs. For 
coded arithmetic and string data the DEDs 
differ in their length and key (L and K) 
only. 


CACTION7 -- GZ 


This routine performs two conversion steps 
(see routine table in Figure 3). 


ACOMA -- HA-HC 


This part of the program is no subroutine 
but a narrative description of that part of 
PREMAC that constructs the premacros (the 
YES-tree after the decision box D3 in flow 
chart GF. The following actions may be 
required: 


1. Additional request. 
Besides the operands, some macros and 
functions require additional registers 
or working storage. This additional 
Storage must be "requested". 


2. Conversion of float operands. 
Floating-point operands of float macros 
or float functions must have the same 
length. If one of the operands is long 
float, all other float operands that 
are not long float must therefore be 
converted to long float. 


3. Storage type conversion. 
Byte 17 of the specifies the required 
Storage type. The operand gets the 
required storage type. This may cause 
a conversion if the operand already was 
assigned some storage type. 


4. Putting out premacros. 
The premacros are put out in the format 
described under Output of PREMAC. 


ADCOST -- HD 


This subroutine converts operands from 
short float to long float. 


ADDEQ 


This subroutine is used to determine the 
Sign of a scale factor. 


PART 3 OF D10 


Part 3 of phase D10 consists of a collec- 
tion of subroutines called by part 2 to 
determine the operands required to con- 
struct the macro instructions. It checks 
the storage type required for the 

operand (s). If required, registers are 
freed and working storage is generated. 


The technique applied is the so-called 
Stack technique. This technique assumes 
that two stack chains exist at any moment 
during processing: a free chain and an 
occupied chain. If stacking is required, 
the last item of the free chain is deleted 
and added (with the corresponding 
information) as the last item to the occu- 
pied chain. Unstacking is the reverse 
procedure of stacking. 


The individual subroutines forming part 
3 are discussed in the following. 


SOURCE (1) 


SOURCE (I) may be one of 0, 1, 2, 3, and 4. 
The routines are called if a source operand 
is to be converted to a required storage 
type. The routines merely provide the 
parameters for the routine SOURCE. The 
required storage type for SOURCE and the 
corresponding parameters for the individual 
routines are listed in the following table: 


Required 
Routine Storage Type Parameter 
SOURCEO Any of 1, 2, 3, 4 X'OFO00' 
SOURCE 1 Declared or working X'0COO' 
storage | 
SOURCE2 Fixed register X'0100' 
SOURCE3 Float register x'0207' 
SOURCE 4 Working Storage x'0400* 
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TARGET (1) FREE -- ET S 
TARGET (I) may be one of 0, 1, 2, 3, and 4. The routine frees an operand in the occu- xu 
The routines are called if a target operand pied stack chain and adds it to the free 

is to be converted to a required storage Stack chain. 


type. The routines merely provide paramet- 

ers for the routine TARGET. The required 

Storage type for TARGET and the correspond- FREEING 

ing parameters for the individual routines 

are analogous to those of SOURCE (I). This routine is called after the macro 
generation for each operation. It frees 
all operands used as source fields during 


SOURCE the respective operation if these operands 
are work areas that have entries in the 
The routine evaluates the operand to be occupied stack chain. 


used in an operation as a reference to a 
source field. It may be called from one of REQUEST -- ES 
the routines SOURCEO through SOURCE as 


follows: This routine is called to get the work 
area, which may be specified as working 

BAL LINK, SOURCE Storage, fixed-point register, or floating- 

DC X'mmnn' point register. It is called as follows: 

where mm and nn are the parameters required BAL LINK, REQUEST 

for the routine GETOP, which performs the DC X'mmnn' 


main part of the processing. 
where mm is one of the following: 


TARGET 00 single fixed-point register 
01 double fixed-point register 
This routine is called by one of the rou- 02 short floating-point register 
tines TARGETO through TARGET! and is simi- 03 long floating-point register 
lar to SOURCE. The operands are used tar- 04 full-word 
get fields. 05 double-word A 
06 byte-aligned working storage Ni 
The main part of the processing is per- 07 specified single fixed-point register 
formed by the called routine GETOP. 08 specified double fixed-point register 
| 09 not used 
GETOP -- EX | 0A specified short floating-point register 


OB specified long floating-point register 
This routine determines an operand with 





Specified storage type (working storage, nn is the specified register or the length 
fixed-point register, or floating-point in bytes of the required storage. 
register). The routine checks if the type 
required and the type currently available GETST -- ER 
are identical. If they are, the routine is | 
left. Otherwise, REQUEST is called to The routine deletes the last item in the 
generate an operand that has the required free stack chain and adds it to the 
Storage type and to store the contents of occupied stack chain. 
the current operand in the generated oper- | 
and. FETCHA, FETCH1 -- EU 
This routine is called by SOURCE as This routine is called by REQUEST to select 
follows: the parameters for the current request. 
Selection is performed using the tables D 
BAL LINK, GETOP and P. The table P consists of 9-byte 
DC X'mmnn' | entries that have the following format: 
where mm may be byte 0 mask for searching in REGTAB 
byte 1 successful condition code during 
X'Or' any type Searching 
X'Oc' no register type byte 2 successful action displacement 
x'01' fixed-point register byte 3 unsuccessful action displacement 
x'02' floating-point register byte 4 mask to reserve in REGTAB 
x'04' working storage byte 5 mask to free in REGTAB 
| byte 6 macro instruction key if storage 
and nn is either X'07' (floating-point change is required 
register) or X'00' (all other cases). © bytes 7-8 request, if required. 


194 











PL/I PLM 8 


IBM Confidential 


The register and working storage table 
REGTAB consists of full-word entries of the 
following format: 


byte 0 Search mask (key). It may be 
one of the following: 
X'03' fixed-point register 
X'O0C' floating-point 
register 
X'10' double-word 
X'OE' byte-aligned 
byte 1 displacement in QTAB 
bytes 2-3 either register pair or offset 


if storage 


The table QTAB contains the relative 
displacement (1 byte) for entries in RTAB. 
The entries in RTAB have the following 
format: 


displacement of operand format 
relative to S00 

displacement (relative to R012) 
of routine to construct and 
return the operand. The routine 
is executed. 

the required request parameters 
(if available and required type 
are not identical) 

macro instruction key if storing 
is required (if available and 
required type are not identical) 
available storage type X'mn', 
where m and n have the following 
meaning: 

1 - fixed-point register 

- floating-point register 
- Working storage 

declared variable 

- Short 

- long 

- byte-aligned 

' ' for floating-point data 

' * in all other cases 


byte 0 


byte 1 





bytes 2-3 


byte 4 


byte 5 


NOO EN 
| 


byte 6 


4333355353 


The communication between the reference 
to the working area and the tables REGTAB, 
OTAB, and RTAB is as shown in Figure 2. 


ACTIO (R5) 


The selection of the routine to be used 
depends on the address contained in reg- 
ister 5. One of the four routines des- 
cribed in the following may be selected. 


SACTIONX -- EU 


This routine is called if the required and 
available types of an operand are identical 
(successful action, see format of the P 
table). In this case, the operand is a 
register or working storage. 


SACTIONZ -- EV 


This routine is called if an operand is 
required as register, but it is currently 
contained in storage. In this case, a 
register (or a pair of registers) is 
requested by calling REQUEST with the 
appropriate parameters, and a load macro 
instruction is generated. 


FACTIONY -- EU 


This routine is called if working storage 
on full-word or double-word boundary is 
required and this is not available in REG- 
TAB. 


SACTION7 -- EW 


This routine is called if a specified reg- 
ister is required. 
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First Part 


The first part of phase D11 restores the 
old interface for use by this and the fol- 
lowing phases. The new communication 
region is saved. The old interface and the 
saved LIOCS table for SYS001 are read from 
SYS001. The interface is read into the 
appropriate storage area, whereas the LIOCS 
table must be moved. If tape work files 
are used, a back-space record command is 
given to synchronize the tape position with 
the information in the table. 


All items of the old communication 
region that may have been changed in the 
new communication region by phases p00, 
DO5, or D10 are Set to the new values. The 
text input medium is read to the end of 
information, and the NOTE information on 
that point is set into the old communi- 
cation region. The medium is reset with a 
POINTS macro instruction. The old end-of- 
file address is set into the appropriate 
entries of the work file tables. 


Symbols used in flow charts 
TABLE : Contains address of SYS001 in new 


interface 
TABLEM : Save area in phase D11 for 
information required from new 


interface 

INTTABEN: Begin of saved new communication 
region 

EOFADD : Relative address of end-of-file 
entry in LIOCS table for disk 

EOFADT : and for tape work files 

TEXTIN : Contains address of input work 


file table 
NEOFAD : Address of end-of-file routine 
used in this phase 


POINTR : LIOCS macro instruction 

T * SYS001 

CHECK : LIOCS macro instruction 

READ : LIOCS macro instruction 

EXCP : PIOCS macro instruction 

BSR : Backspace record 

TASAVA : Area where SYS001 table is read 
in 

WAIT : PIOCS macro instruction 

IJKMVC : Variable counter, entry in old 
interface 

IJKMLB : Library usage bytes, entry in old 
interface 

ADLIBIN : Part of IJKMLB in new interface. 

IJKMJT : Job communication bytes, entry in 


old communication region 
READ : LIOCS macro instruction 
IJKMBL : Block on work files, entry in old 
communication region 
NOTE : Contains information on input 
work file in old interface 
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POINTS : LIOCS macro instruction 
DUMPSAVE: Save area for old end-of-file 
routine 
TEXTOUT : Contains address of output work 
file table. 
IJKMWC : Length of dynamic work space used 
in D00-D10, entry in old inter- 
face 
LREAD : Length that can be read regard- 
less of buffer boundaries 
LWRITE : Length that can be written 
regardless of buffer boundaries 
PIN : Input pointer 
OPR : Output pointer 
CURBUF : Current buffer index 
K : Key 
MA1 : Area used for macro construction 
AA30 : Area containing the premacro 
AAP3 : Area containing P and Q of oper- 
ands 
Main Part 
The second part of phase D11 generates 
macros. The input of the phase contains 
so-called premacros, which furnish the 
information required for generation of the AR 
macros. The format of the generated macros EN 
must be the same as required by the code icd 


generation phases E50 and E60. The phase 
also generates compiler constants. 


input 


The input to phase D11 may include the 
following elements: 


1. Statement identifier (6 bytes) with the 
key X'EO'. 


2. I/O text (12 bytes) with the key X'E1' 
or X'EU'. 


3. End of statement (6 bytes) with the key 
X'EA'. 


4. Error indicator (2 bytes) with the key 
X' EB'. 


5. | Premacros 


Byte(s) Contents 


1 K = key X'F5' or X'FC'. If K = 
X'FC' and K2 is greater than 
X'40*, the text element rep- 
resents a function and is moved 
unchanged into the output buf- 
fer. 

29 3 Length of premacro 1 = 12 

(N+1) +22 C, where C = number of 
constants. 
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4 Number of operands (N). 
5 K1 
6 K2 
7 K3 
8-12 Not used 


These 12 bytes are followed by the 
operands, each of which has a length of 
12 bytes. Each operand may be followed 
by a 22-byte constant. 


6. Permutable text elements 


Byte (s) Contents 


1-12 Text element 1 


13 Key X'FE' 
14-16 Not used 
17-28 Text element 2 


Text element 1 is exchanged for text 
element 2. 


7. End of text string, key X'FF'. 


8. Further F keys 


Byte(s) Contents 


1 F-key other than those des- 
cribed above. 
293 Length to be skipped (including 
bytes 1-3). 
ü-n Element to be skipped. 
Output 


The output of phase D11 contains the same 
number of elements as the input. However, 
the following additions and permutations 
have been performed: 


1. After the statement identifier indicat- 
ing an entry statement, the assembler 
code CNOP 0,4 has been inserted into 
the text string. 


Format of the code: 
X'F6000780C00004" 


2. After the end of block statement, the 
assembler code 


END OF BLOCK CNOP 0,4 


has been inserted into the text string. 
Format of the code; 


X'F6000380C6000080C00004' 


3. The text element following the FE-key 
is exchanged with the text element 
preceding the FE-key. The FE-key has 
been changed to X'F7'. (See Input.) 


4.  Premacros (see Input) have been proc- 
essed to macros and constants. 


Format of the macros 


Byte (S) Contents 


1 X'Fr2' 
2-73 Length to be skipped 
ü-n Element to be skipped 


Format of the constants 


Byte(s) Contents 


1 X'F3' 
2593 Length to be skipped 
4-n Constant to be skipped 


5. Compiler constants have been inserted 
at the beginning of the text string. 


DESCRIPTION OF ROUTINES 


First, the phase evaluates the buffer 
addresses and the buffer lengths. Then the 
input buffer is filled with input text. 

The first output moved into the output 
buffer consists of compiler constants. For 
the scan of the text string the routine 
FETCH is used. The processing of the indi- 
vidual input elements is performed by the 
corresponding ACTION routines. 


The routine MOVESO is discussed in the 
description of phase DOO. 


Symbols used in flow charts: 


LREAD : Length that can be read regard- 
less of buffer boundaries 

LWRITE : Length that can be written 
regardless of buffer boundaries 

PIN : Input pointer 

OPR : Output pointer 

CURBUF : Current buffer index 

K : Key 

MA 1 : Area used to construct the macro 

AA30 : Area containing the premacro 

AAP3 : Area containing P and Q of the 
operands 

FETCH -- HN 


The routine FETCH scans the text string, 
and determines the subscript for calling 
the appropriate ACTION routine for the 
individual input elements. 


ADMVC -- HO 


ADMVC increments and tests the variable 
counter of the compiler. If more than 
601536 variables are counted, the current 
Statement is Skipped and an error message 
is inserted into the text string. 
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ACTIONO -- HP 


The statement identifier is saved by STIN. 
If this statement identifier indicates an 
END statement, switch ACT10 is set to zero. 
If this statement identifier indicates an 
entry statement, CNOP 0,4 is generated. 


ACTION1, -4 -- HQ 





The text element is either an operand 
(which is moved unchanged into the output 
buffer) or information on I/O statements 
(which is required for the routine ADIOST 


(See MASU (X) ) . 


ACTION2, 3, 5-9, 12-15, 25, 27 


These routines are not available sincethe 
corresponding text elements cannot occur in 
the text string. 


ACTION10 - HR 


This routine is used when the end of a 
Statement is detected. The text element is 
moved unchanged into the output buffer. If 
the statement was an end-of-block 
(ACT1020), the assembler code 


‘END OF BLOCK" CNOP 0,4 


is generated. 


ACTION11, 16-20, 22-24, 26, 29 


The text element is moved unchanged into 
the output buffer. 


ACTION28 -- HS 


The text element is either a function call 

(moved unchanged into the output buffer) or 
a decimal arithmetic macro (processed like 

in ACTION21) 


ACTION30 -- HT 


The permutable text element is exchanged as 
described under Input. 


ACTION31 -- HU 


This routine detects the end of the input 
text and initiates the calling of the next 
phase. 


ACTION21 -- HV, HW 


ACTION (21) 
phase D11, 


performs the main objective of 
the generation of macros. 


198 





HV/D3 


HV/FU 


HV/HU 


HV/JU 


HV/J1 


HW/B3 


HW/B4 


HW/E3 


If the macro to be generated is the 
decimal compare macro, the number of 
operands N will be set to 3. The 
premacro contains two operands but 
the macro must have three. The 
third operand OP1 must not contain 
any information. 

The pointers are set: P1 pointer to 
the macro generation area, P2 poin- 
ter to the premacro (input), P3 
pointer to P-Q-Save area. 

Byte 8 of the operand is extended to 
one word and stored in P3. 

Byte 9 of the operand is extended to 
one word and stored in P3+4, 

If SWY is unequal to 0, OP1 was 
followed by a constant or the macro 
contains more than one operand. If 
OP (1) is not followed by a constant, 
the bytes addressed by P2+7 and 
AA30+31 must have the same contents: 
because in the routine MASU (X) 
AA30+31 will be used for P2+7. If 
the contents of these bytes are not 
identical to each other, one byte is 
moved. 

SW1=15: a decimal macro is generat- 
ed. 

Normally, the operands of the prema- 
cro are given in the sequence OP(N), 
OP (2), OP1. The operands of the 
decimal premacros are given in the 
sequence 
OP (1), OP(N) OP (2) (N = 2 or 3). 
Therefore, the operand in the macro 
generation area and P, Q in P-Q-Save 
area must be rearranged. 


X is determined by using table TAB1. 
If X exceeds 18, the appropriate 
element of TAB1 contains an offset 
pointing to routine MASU (X), which 
then constructs the macro. If X 
does not exceed 18, the appropriate 
element of TAB1 contains the length 
of the macro. 


ADMACO -- HX 


Routine ADMACO moves the constants follow- 
ing the operands of a premacro into the 
output buffer. | 


MASU (X). 


The routines MASU (X) 


keys. 


refer to several macro 
The relation between the macro key 


and the routine name is given by the table 
TAB1 shown in Figure 1. 





f 
Woy 
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AL1 (ADBASC-MASU) 
AL1 (ADBASC-MASU) 
AL1 (16) 

AL1 (ADBOIV-MASU) 
AL1 (10) 

AL1 (ADASSI-MASU) 
AL1 (4) 

AL1 (4) 

AL1 (ADBASC-MASU) 
AL1 (ADMULI-MASU) 
AL1 (4) 

AL1 (4) 

ALt (ADIOST-MASU) 
AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (ADDARI-MASU) 
AL1 (ADDARI-MASU) 
AL1 (ADDMUU-MASU) 
AL1 (ADDIV-MASU) 
AL1 (ADDNEG-MASU) 
AL1 (ADDSHI-MASU) 
AL1 (ADNEG 1- MASU) 
AL1 (4) 

AL1 (ADDARI-MASU) 
AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (ADUNA-MASU) 
AL1 (16) 

AL1 (16) 

AL1 (16) 

AL1 (16) 

AL1 (16) 

AL1 (10) 

AL1 (16) 

AL1 (4) 

AL1 (16) 

AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (4) 

AL1 (16) 

AL1 (16) 

AL1 (16) 

AL1 (16) 

AL1 (16) 

AL1 (10) 

AL1 (16) 

AL1 (4) 

AL1 (16) 

AL1 (4) 

AL1 (4) 

ALT (4) 

AL1 (4) 

AL1 (4) 

AL1 (4) 
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BINARY 
BINARY 
BINARY 
BINARY 
BINARY 


ASSIGNMENTS 


BINARY 
BINARY 
BINARY 
BINARY 
FREE 
FREE 


FREE 
FREE 
FREE 


DECIMAL ADDITION 
DECIMAL 
DECIMAL MULTIPLICATION 
DECIMAL 
DECIMAL 
DECIMAL ASSIGNMENT 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
DECIMAL NEGATION, TWO OP. | 
DECIMAL EXPONENTIATION | 
DECIMAL COMPARISON | 
FREE | 
FREE | 
FREE | 
FREE | 
FREE | 
FREE | 
UNARY PLUS | 
SHORT FL.ADDITION | 
SHORT FL.SUBTRACTION | 
SHORT FL.MULTIPLICATION | 
SHORT FL.DIVISION | 
SHORT FL.NEGATION,20P. | 
SHORT FL.NEGATION,1 OP. | 
SHORT FL.ASSIGNMENT | 
SHORT FL.EXPONENTIATION | 
SHORT FL.COMPARISON | 
SHORT FL.GENERAL EXPONENTIATION | 
FREE | 
FREE | 
FREE | 
FREE | 
FREE | 
FREE | 
LONG FL.ADDITION | 
LONG FL.SUBTRACTION | 
LONG FL.MULTIPLICATION 
LONG FL.DIVISION | 
LONG FL.NEGATION,2 OP. | 
LONG FL.NEGATION 1 OP. | 
LONG FL.ASSIGNMENT | 
LONG FL.EXPONENTIATION | 
LONG FL.COMPARISON | 
LONG FL.GENERAL EXPONENTIATION | 
FREE | 
FREE | 
FREE | 
FREE | 
FREE | 
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ADDITION 

SUBTRACTION 
MULTIPLICATION WITH O.C. 
DIVISION 

NEGATION 


ASSIGNMENT WITHOUT O.C. 
EXPONENTIATION 


COMPARI SON 
MULTIPLICATION WITHOUT O.C. 


SUBTRACTION 


DIVISION 
NEGATION ONE OP. 
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r | T T 1 AR 
| 63 | DC AL1 (4) | FREE | MEN 
| 64 | DC AL1 (ADCHOP-MASU) | CHAR.STR.CONCATENATION | a 
| | 65 | DC AL1 (4) | CONVERSION,ACTION 4 | 
| 66 | DC AL1 (4) | CONVERSION,ACTION 5 | 
| 67 | DC AL1 (4) | CONVERSION, ACTION 6. | 
| 68 | DC AL1 (4) | FREE | 
| 69 | DC AL1 (4) | FREE | 
| 70 | DC AL1 (4) | FREE | 
| 71 | DC AL1 (4) | FREE | 
| 72 | DC AL1 (4) | FREE | 
| 73 | DC AL1 (4) | FREE | 
| 74 | DC AL1 (4) | FREE | 
| 75 | DC AL1 (4) | FREE | 
| 76 | DC AL1 (4) | FREE | 
| 77 | DC AL1 (4) | FREE | 
| 78 | DC ALT (4) | FREE | 
| 79 | DC AL1 (4) | FREE | 
| 80 | DC AL1 (4) | CONVERSION 0 | 
| 81 | DC AL1 (4) | CONVERSION 1 f 
| 82 | DC AL1 (4) | CONVERSION 2 | 
| 83 | DC AL1 (4) | CONVERSION 3 | 
| 84 | DC AL1 (4) | CONVERSION 4 | 
| 85 | DC AL1 (4) | CONVERSION 5 | 
| 86 | DC AL1 (4) | CONVERSION 6 | 
| 87 | DC AL1 (4) | CONVERSION 7 | 
| 88 | DC AL1 (ADCHAP-MASU | CHAR,STR,COMPARISON | 
| 89 | DC AL1 (16) | SHIFT AR.SINGLE RIGHT | 
| 90 | DC AL1 (16) | SHIFT AR.SINGLE LEFT | 
| 91 | DC AL1 (16) | SHIFT AR.DOUBLE RIGHT | 
| 92 | DC AL1 (16) | SHIFT AR. DOUBLE LEFT | 
| 93 | DC AL1 (4) | | 
| 94 | DC AL1 (4) | FREE | P 
95 | DC AL1 (4) | FREE | e 
| 96 | DC AL1 (4) | FREE | = 
| 97 | DC AL1 (4) | FREE | 
| 98 | DC AL1 (4) | FREE | 
| 99 | DC AL1 (ADBSIP-MASU) | BIT STR.NOT,2 OP. | 
| 100 | DC AL1 (ADDING-MASU) | BIT STR.NOT,1 OP. | 
| 101 | DC AL1 (ADBISA-MASU) | BIT STR.ASSIGNMENT | 
| 102 | DC AL1 (ADBSOP-MASU) | BIT STR.AND | 
| 103 | DC AL1 (ADBSOP-MASU) | BIT STR.OR | 
| 104 | DC AL1 (ADBASA-MASU) | BIT STR.COMPARISON | 
| 105 | DC AL1 (16) | SHIFT LO.SINGLE RIGHT | 
| 106 | DC AL1 (16) | SHIFT LO.SINGLE LEFT | 
| 107 | DC AL1 (16) | SHIFT LO.DOUBLE RIGHT | 
| 108 | DC AL1 (16) | SHIFT LO.DOUBLE LEFT | 
| 109 | DC AL1 (4) | FREE | 
| 110 | DC AL1 (4) | FREE | 
| 111 | DC AL1 (4) | FREE | 
| 112 | DC AL1 (4) | BRANCH ON CONDITION | 
| 113 | DC AL1 (ADRTLC-MASU) | RETURN TO LABEL CONSTANT | 
| 114 | DC AL1 (7) | DEFINE LABEL | 
| 115 | DC AL1 (4) | FREE | 
| 116 | DC AL1 (4) | FREE | 
| 117 | DC AL1 (ADRTLC-MASU) | ASSIGN LABEL CONST. | 
| 118 | DC AL1 (16) | POINTER ASSIGNMENT | 
| 119 | DC AL1 (4) | FREE | 
| 120 | DC AL1 (16) | POINTER COMPARISON | 
| 121 | DC AL1 (4) | FREE | 
| 122 | DC AL1 (ADIF-MASU) | IF-MACRO | 
| 123 | DC AL1 (4) | FREE | 
| 124 | DC AL1 (4) | FREE | 
| 125 | DC AL1 (ADUNA-MASU) | UNARY PLUS | 
| 126 | DC AL1 (4) | FREE | 
| 127 | DC AL1 (4) | FREE | 
| 128 | DC AL1 (11) | RETURN TO 1.VARIABLE | 
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Figure 1. 


C V rA E W R ÉD C CELO NM RR T 

| DC AL1 (10) | RETURN TO 1.VARIABLE 
| DC AL1 (4) | FREE | 

| DC AL1 (16) | FREE 

| DC AL1 (16) | FREE 

| DC AL1 (11) | ASSIGN LABEL /. 
| DC AL1 (ADBASA-MASU) | ASSIGN CHAR.STR. 
| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | INITIAL 

| DC AL1 (4) | FORMAT 

| DC AL1 (4) | LOAD TRANSMIT 

| DC AL1 (4) | FREE 

| DC AL1 (ADCALL-MASU) | CALL 

| DC AL1 (4) | RETURN 

| DC AL1 (4) | PROLOGUE 

| DC AL1 (16) | STM 

| DC AL1 (16) | STD 

| DC AL1 (16) | MOVE ADDRESS 

| DC AL1 (4) | DO BEGIN 

| DC AL1 (4) | DS 

| DC AL1 (4) | ARRAY EXPR.BEGIN 
| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | LOAD VARIABLE 

| DC AL1 (4) | SET BYTE 

| DC AL1 (4) | MOVE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | LIBRARY CALL (1) 
| DC AL1 (4) | RETURN FUNCTION VALUE 
| DC AL1 (ADOVLA-MASU) | OVERLAY 

| DC AL1 (16) | L 

| DC AL1 (16) | LE 

| DC AL1 (11) | MVI 

| DC AL1 (4) | DO END 

| DC AL1 (4) | DC 

| DC AL1 (4) | ARRAY EXPR. END 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | LOAD DED 

| DC AL1 (4) | LOAD SCALAR 

| DC AL1 (4) | LOAD ARRAY 

| DC AL1 (4) | FREE 

| DC AL1 (4) | LIBRARY CALL (2) 
| DC AL (ADSECO-MASU) | SET TRUE ON COND. 
| DC AL1 (4) | FREE 

| DC AL1 (16) | LM 

| DC AL1 (16) | LD 

| DC AL1 (4) | DEF.RESULT 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | FREE 

| DC AL1 (4) | LOOP BEGIN 

| DC AL1 (4) | LOOP END 
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Table TAB1 Used to Find MASU (X) 


Phase PL/ID11 


201 


PL/I PLM 8 


IBM Confidential 


Routines Listed in TAB1 


They generate the individual macros. 


L : Length of the macro 

n : Number of operands 

R1 : Precision of the (n-1)-th operand 
R2 : Scale factor of (n-1)-th operand 

R3 : Precision of the n-th operand 

R4 : Scale factor of the n-th operand 

LABEL : Label taken from IJKMVC 

SO : The location after the n operands 


of the macro 

(R1-R2) ---> SO (2 bytes) 
means R1-R2 will be inserted with 
a length of two bytes into loca- 
tion SO. 


ADBASC 


Used for binary addition, subtraction, and 
comparison 


L = 18 


{R1-R2} ---> SO (2 bytes) 


ADBOIV 
Used for binary division 


L = 18 


{R3+1} ---» SO (2 bytes) 


ADASSI 


Used for assignments except the decimal 
fixed, the bit string, and the label 
assignment. No macro will be constructed. 
The premacro is used only for generation of 
constants if necessary. 


ADMULI 
Used for binary multiplication 


a. if overflow must be checked: 
Macro key : X'02' L= 16 


b. if overflow must not be checked: 
Macro key : X'09' L = 16 


if OP1 is given by a register R, the 
preceding register R-1 is used as the 
operand. 

ADIOST 

No macro but a text element which must be 


generated in connection with I/O state- 
ments. The element has the format 


bytes 0 F7 


1-2 0010 
3 10 
1-5 name 
6 EY 
7-8 modifier 
9 EL 


202 


10-11 attributes 
12 EL | ( 
13 P | 
14 Q 


$ 


ADDARI 


Used for decimal addition, subtraction, 
comparison. 


L = 28 

(FLOOR ((R3+2) 
{FLOOR ((R1*2) 
(Byte (3) from stmnt. 
(N-RU]  ---» SO+2 
{N-R2} <---> SO*3 

{LE} ---» SO*5 

N is given by AAP3+20 
LE is given by AA30+19, 


/2)}---> SO 
/2)}---> SO+1 
identifier}---> SO+4 


ADDMU 


Used for decimal multiplication 
L = 27 

{FLOOR ((R3+2) 
(FLOOR ((R1*2) 
(Byte (3) from stmnt. 
{LE} ---» S0+2 


/2)]---» SO 
/2))---» SO+1 
identifierj---> SO+t4 


ADDIV 


Used for decimal division i ` 
L= 25 No 
(FLOOR ((R3+2) /2)]---» SO 

(FLOOR ((R1+2) /2)}---> SO+1 

{Byte (3 from stmnt. identifier}---> SO+4 

(15-R3) ---» S0+2 


ADDNEG 
Used for decimal negation with one operand, 


overlay, and if-macros. 
L = 11. 


{LE} ==> «50 

LE is given by AA30+19 

ADDSHI 

Used for decimal assignment 

L = 21 

(FLOOR ((R3+2) /2)3---> SO 

(FLOOR ((R1+2) /2)}---> SO+1 

{Byte (3) from stmnt. identifier}---> SO+4 
(RU-R2] ---» SO+2 

ADNEG1 


Used for decimal negation with two operands 
L = 18 

(FLOOR ((R3+2) 
(FLOOR ((R1*2) 


/2)]---» SO 
/2)]---» SO+1 


ADUNA 





Used for prefix plus. No macro will be 


generated. 
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ADCHOP 


Used for character string concatenation 
L = 24 


(R3) ---> SO 
(R1] ==> 50+1 
ADCHAP 


Used for character string comparison 
(R3] ---» SO 


(R1) ===> SOF] 
a. if R1 = R3 
L= 18 
b. if R1 # R3 
L = 24 
third operand : GWO 
(GWO) ---> SO+2 (6 bytes) 


ADBSIP 


Used for 'bit string not' with two operands 


L = 19 
(L1) ---» SO 
(M) ---» SO+2 


L1 is given by AA30+31 
M is a mask depending on R3. 


ADDNIG 


Used for 'bit string not' with one operand 
L = 13 

(L13 ---> SO 

(M3 ===> S042 

L1 is given by AA30+19 

M is a mask depending on R1. 


ADBISA 

Used for bit string assignment 
L = 19 

(L23 ---» SO+1 


L2 is given by AA30+19 
Otherwise identical to ADBSIP. 


ADBSOP 


Used for bit string 'and' and 'or' 
L = 18 
a. if R1 does not exceed R3 

(L1) ---» SO 

{L2} ---> SO+1 


b. if RI exceeds R3 

(L13 ---> SO+1 

{L2} ---> SO 

OP1 and OP2 are exchanged. 
L1 is given by AA30+31 
L2 is given by AA30*19. 


ADBASA 


Used for bit string comparison and charac- 
ter string assignment 


L = 18 

{L 1} ===> X0 
{L2} ===> SO«1 
ADRTLC 


Used for return to label constant and 
assign label constant. 
L = 25. 


ADIF 

Used for IF macro. 

L= 17. 

Otherwise identical to ADDNEG. 
ADCALL 

Used for the CALL macro 


1. The number of parameters N is inserted 
preceding the operands. 


2. The macro identification -X'90' is 
inserted. 


3. The length of the macro is calculated 
(L = (N+2) *6 - 1) and inserted. 


4. The second operand is also used as the 
(n+ 1) -th operand. 


5. If the first operand is extern, OP1 DC 
V(OP1) is generated. 


ADSECO 


Used for the set true on condition macro 
L = 14 

{LABEL} ---> SO (2 bytes) 

Byte AA30+6 will be inserted preceding the 
operands. 
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PHASE PL/ID15 (EVALUATION OF SUBSCRIPTS) -- JA on 
R 
This phase evaluates the subscripts. If [ARRAY NUMBER 
the subscripts are constants, evaluation is SE v DAA 
optimized as far as possible. In addition, Le din is [Xan] >= | 
this phase generates the macro instructions : ( 
required for the format label assignments. 
The phase is skipped if there are no arrays | 
and no format labels in the source program. || > 
Phase Input . hh NN 0 m w A m mm ^1 
The text input string may contain informa- ----~———4J 
tion marked by one of the keys listed 
below. The input string is skipped or = p —— _— oo SA —— = 
processed depending on the key found (see CONSTANT | 
Figure 1). | | . .............. NH A A eS J 
wise (end quy ae dd am m. 
a Cr E a. , (en [ems 
|Key |Meaning |Skippable Length | RS M — —-J 
| {if not Processed | 
|----~- }--------~------}+------------------ { 
| | ment |Implied: 6 bytes | 
| EA {End of state- | | 
| | ment |Implied: 6 bytes | 
| EB |Error informa- | | Figure 3. Format of Input String Marked by AR 
| |tion |Implied: 2 bytes | FC-Key WE 
| F2 |Possible format|Processed. For | a 
| |label assign- |string format see | 
| |ment |Figure 2. | Phase Output 
{FC |Array |Processed. For | 
| | |string format See | During the scan through the text, the 
| | [Figure 3. | information marked by an FC-key is checked 
|FFFF [End of program | | for subscripts. If subscripts are found, 
[Other [Of no interest |Skippable length | the corresponding macro instructions are 
| F-keys | [contained in the | generated and put out. If a label assign- 
| | |2 bytes following | ment macro instruction is detected, it is 
l | [the key. | modified to format label assignment if the 
L-----—-— dino nooo din n o o J label operand is a format name. This is 


Keys Scanned in the Input Text 
String 


Figure 1. 


Skipp. 
Length 


Figure 2. 
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checked by searching the corresponding name 
table. All other information is put out 
unchanged. 


Format of Input String Marked by  F2-Key 
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Generated Macro Instructions 


1. Multiply Half-word -- MHMAK 
e] m je] om [e 


Calling Sequence: MH R,OP1 


Add -- AMAK 


2s 
[moie om | omo 


Calling Sequence: 


a. if OP2 register 
AR OP1, OP2 


b. if OP2 storage 
A OP1, OP2 


3. | Load -- LMAK 


pe — 


Calling Sequence: 

If OP2 - register 
LR  R,OP2 

if OP2 - storage 
L R,OP2 


4. Move Address -- MOVMAK 


re] amp [os] omn 


Calling sequence: 


a. if OP1 = register 
LA OP1,0P2 


b. if OP! = storage 
LA 5,0P2 
ST 5,0P1 


d 


——— — M 
Internal name of array 


5. Format label assignment macro instruc- 


tion 


mimw|s| on — 


For a description see the generator 


phases E50-E61. 


Evaluation of Subscripted Variables 


— 


. Arrays with 1 dimension: 


In the input string, the subscript 


appears in the form shown in Figure 4. 


Fc] ies [e [15 [X] ^ | 


TARGET REGISTER 


SUBSCRIPT X 


ARRAY NAME 


O 
O 
Z 
M 
a 
> 
Z 
—i 


Figure 4. Input String (1-Dimensional 


Array) 


A = array number (used to find the 
corresponding entry in the array 
table). The array table entry has the 
format shown in Figure 5. 


p 


po! 


Number of array elements 
Length of one array element 


Figure 5. Format of Array Table Entry 


for 1-Dimensional Array 


The element A(X) is determined as fol- 


lows: 
A(X) = A(1) * FO + L * X 


If X is a constant, L * X is computed 


during compilation and added to FO. In 


this case, the code produced is: 


LA REG,A(1) 
A  REG,FO 


Otherwise, the code produced is: 


L  REG,X 
MH REG,L 
A REG,FO 
LA R5,A(1) 
AR REG,R5 
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A (X,Y) =A (1, 1) +FO+L (Y+B2*X) ATN 
2. Arrays with_2 dimensions: | - 


The code produced is: 
If there are two subscripts, the input 


string has the format shown in Figure L REG,X 
6. MH REG,B2 
A REG, Y 


MH REG,L 
[4 
ec | Length | e | 15 PX] ^ | — A REG,FO 
LA R5,A (1, 1) 
AR REG,R5 


TARGET REGISTER b. X - constant, Y - variable 


A (X,Y) =A (1,1) *FOÜ* L*B2*X*L*Y 


u am cw me —. 


= Sa J pilation and added to FO. 
SS i e a nn — - The code produced is: 
reser L REG, Y LR if Y register 
MH REG,L 
A REG, FO 
AR REG ,R5 
Figure 6. Input String (2-Dimensional C. Y = constant, X = variable 


Array) | 
A (X,Y) =A (1, 1) +FO+L*Y+L*B2*X 
The corresponding entry in the array 
table has the format shown in Figure 7. L * Y is computed during compila- fon 
tion and added to FO. i Ll 


The code produced is: 


[m Poe | e |a| s | m 
L REG ,X 
i MH REG, L*B2 
l A REG, FO 
A 5 LA R5,A (1, 1) 
€ E AR REG,R5 
3 : E 
5 ^o 3 d. X and Y = constants 
g 5 2 S A (X,Y) =A (1,1) +FO+L*Y+L*B2*X 
o um . 
c © U 
5 3 = e X L * Y and L * B2 * X are computed 
S E 5 E 2 during compilation and added to FO. 
£ Z A E 
The code produced is: 
Figure 7. Format of Array Table Entry LA REG,A(1,1) 
for 2-Dimensional Array A REG, FO 
The code produced for evaluation of 
A (X,Y) depends upon the subscripts X 3. Arrays with 3 dimensions: 
and Y. The following 4 cases are pos- 
Sible: If there are 3 subscripts, the input 
string has the format shown in Figure 
a. X and Y = variables 8. 











PL/I PLM 8 


IBM Confidential 


( rc | Length 4] 15 [X] a] ZEL 


TARGET REGISTER 


b. 


X — constant, Y and Z = variables 


A(X,Y,Z)=A(1,1,1)+F0+L*B3*B2*X+L(Z+B3*Y) 


SUBSCRIPT Z CONSTANT z | 


SUBSCRIPT Y CONSTANT Y i 


SUBSCRIPT X CONSTANT X 


ARRAY NAME 


Figure 8. Input string (3-Dimensional 
Array) 


The corresponding entry in the array 
table has the format shown in Figure 9. 


Bound 3 ———— ————*.- 
Bound 2 ———————————- 


-(L*L-B3*L. B3 - B2)—9 


Number of elements 


Internal name ————— — w 
a 

m 
Length of one array element ——== Fi 


Figure 9. Format of Array Table Entry 
for 3-Dimensional Arrays 


The code produced to evaluate the ele- 
ment A(X,Y,Z) is optimized as follows: 


a. X, Y, and Z = variables 


A (X,Y,Z) =A (1,1, 1) *FO*L (Z+B3 (Y*B2*X) 


The code produced is: 





L REG, X 

MH REG,B2 

A REG, Y 

MH REG,B3 

A REG,Z 

MH REG, L 

A REG, FO 

LA R5,A (1,1, 1) 
AR REG,R5 


I 
l 
| 
| 
| 
| 
J 


d. 


L * B3 * B2 * X is computed during 
compilation and added to FO. 


The code produced is: 


L REG,Y 

MH REG, B3 

A REG,Z 

MH REG,L 

A REG, FO 

LA R5,A(1,1,1) 
AR REG,R5 


Y = constant, X and Z = variables 


A (X,Y,Z)=A(1,1,1) +F0+ 
L*B3*Y4L (Z+B3*B2*X) 


L * B3 * Y is computed during com- 
pilation and added to FO. 


The code produced is: 


L REG,X 

MH REG, B3* B2 

A REG,Z 

MH REG,L 

A REG „FO 

LA R5,A (1,1,1) 

AR REG ,R5 

Z = constant, X and Y = variables 


A (X,Y,Z)=A(1,1,1)+FO+L*Z+L*B3 (Y+B2* X) 


e. 


A (X,Y, Z) 


L * Z is computed during compila- 
tion and added to F0. 


Code produced is: 


L REG,X 

MH REG , B2 

A REG,Y 

MH REG,L * B3 

A REG, FO 

LA R5,A (1,1,1) 

AR REG, R5 

X and Y = constants, Z = variable 


=A (1,1,1) +FO+L*B3*Y+L*B3*B2*X+L*Z 
L * B3 * Y and L * B3 * B2 * X are 
computed during compilation and 
added to F0. 


The code produced is: 


L REG,Z 

MH REG,L 

A REG, FO 

LA R5,A (1, 1, 1) 
AR REG,R5 
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f. X and Z = constants, Y = variable IREC : Switch indicating the number 
of records to be read 
A(X,Y,Z)=A(1,1,1) *FO*L*Z*L*B3*B2*X*L*B3*Y OREC : Switch indicating the number 
of records to be put out 
L * Z and L * B3 * B2 * X are com- ONSWIT : Switch which is set to one if 
puted during compilation and added phase D17 must be called 
to FO. EOS : End of statement 
BUFFL : Buffer length 
The code produced is: SLENG : Skippable length 
SAVRO, T : Save buffers for registers 
L REG, Y COLE : Constant length 
MH REG,L*B3 ADBL : Pointer to array name 
A REG,FO TRBYT : l-byte entry used to hold 
LA R5,A (1,1, 1) type of subscripted Variable 
AR REG,R5 STABL : Contains frame for X'E9' 
operand 
FDCO : | Contains frame for X'FD' 
ge XY and Z = constants, X = variable operand 
AMAK : Add macro 
A (X,Y,2) =A (1,1, 1) +FO+L*Z+L*B3*Y+L*B3*B2*X MH MAK : Multiply-halfword macro 
L*Zand L * B3 * Y are computed 
during compilation and added to FO. INIT == JB 
The code produced is: The routine tests for arrays or format 
labels in the current compilation. If an 
L REG, X array or format label is found, the corres- 
MH REG, L*B3*B2 ponding routine is called in order to read 
A REG, FO in the array table and/or the format label 
LA R5,A (1,1, 1) table. The addresses for the 3 input buf- 
AR REG, R5 fers and the 2 output buffers are computed 


and the input and output pointers are set 
to their initial values. 


he X, Y, and Z = constants ES 
A (X,Y,Z) =A (1,1, 1) +FO+L*Z+L*B3*Y+L*B3*B2*X EOACT -- JC 
The underlined expressions are Input: INPT points to an E0-key. 
computed during compilation and | 
added to FO. The routine resets the error Switch 
ERRSW and clears the error stack ERROSTK. 
The code produced is: The begin of statement (6 bytes) is put out 
and the input pointer is adjusted. 
LA REG,A (1,1, 1) 
A REG,FO' EAACT -- JD 
Input: The input pointer INPT points to an 
EA-key. 
DESCRIPTION OF ROUTINES The key EA indicates the end of state- 
ment. If the error switch ERRSW is not 
The text input string is read into the 3 zero, a bit is set to indicate that execu- 
consecutive input buffers IBU1, IBU2, and tion is to be deleted, and both the end-of- 
IBU3. The array table has a maximum length Statement and the error stack ERROST are 
of 384 bytes and is read into the area put out. Otherwise, only the end of state- 
IBU1-384. The format label table has a ment is put out. 
maximum length of 256 bytes and is read | 
into the area following the input buffer EBACT_-- JE 
IBU3. The main routine (see general flow 
chart JA) controls the scan of the input The error message marked by the EB-key is 
string and calls the corresponding process- put out and the input pointer is increased. 
ing routine. The following symbols are 
used in the individual routines: ASKIP -- JF 
IBU1, 2, 3 : Input buffers 1, 2, 3 This routine is required to move input ZEN 
OBU1, 2 : Output buffers 1, 2 information to the output. It increases C 
INPT : Input pointer the input pointer by means of the skip à 
OPT : Output pointer routine SKIP. 
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SKIP -- JG 


Input parameter: Reg 0 contains the length 
by which the input pointer is to be 
increased, 


The input pointer is increased by the 
specified length and checked as follows: 


e — c Qu «UD "MA ow om m m e m Qum W oe oe ma -—— a w e a am dup a ow 


IBU1 I 


If the input pointer points to one of 
the buffers 2 or 3, the buffers 2 or/and 3 
are shifted to the left and the input poin- 
ter is updated accordingly. Then, the next 
records are read into the buffers 2 or/and 
3s 


READIN -- JH 


Input parameter: IREC (1 byte) indicates 
the number of records to be read into the 


input buffers. 


This subroutine controls the reading of 
the input string into the input buffers. 


MOV31 -- JI 


The subroutine moves the contents of the 
input buffer IBU3 into IBU1. 


MOV21 -- JI 


The subroutine shifts the contents of the 
two input buffers by one buffer length to 
the left in the first input buffer. 


MOVO21 -- JI 


The subroutine moves the contents of the 
Second output buffer into the first output 
buffer. 


MOVOUI -- JJ 

Input parameters: REGO contains the length 
to be moved. REGI contains the address of 
the field to be moved. 


The routine moves the input string or 
the data specified in REGO and REG! into 
the output buffer and transfers control to 
the routine OUT. 


OUT -- JK 


RÓ contains the length by which the output 
pointer OPT is to be increased. The rou- 
tine updates the output pointer and, if the 
buffer is full, the record is written. 


EOPACT -- JL 


The input pointer INPT points to the end- 
of-program (EOP) key. The routine writes 
the last record onto the work file and 
tests whether or not the next phase D17 is 
to be called. Phase D40 is called if phase 
D17 is skipped. 


IJKNN -- JH 


The routine fetches a name from IJKMVC in 
the communication region and stores it in 
NAME. The name counter is increased by 1 
and restored into the communication region. 


If the name counter becomes greater than 


64K, an error message is generated. 


ARRTAB -- JN 


The routine reads the array table from the 
work file into the area following the 
output buffers. 


FORMTAB -- JO 


The format label table is read from the 
work file into storage. 


LABELAS -- JP 


The macro instruction is tested for label 
assignment. If it is a label assignment, 
the label operand is tested for format 
label by searching the format label table. 
When the label name is found in the label 
table, the macro instruction is modified to 
a format label macro instruction. 


SUBSCR -- JQ 


The subroutine controls the evaluation of 
subscripted variables. It calls the error 
check routines and the routines that gener- 
ate the macro instructions. 


INITSUB -- JR 
The subroutine initializes the evaluation 


of subscripts. The array number is used to 
find the corresponding entry in the array 


table. (See the description of the input 
String.) 
DIMCHK -- JS 


Depending on the number of subscripts, the 
routine calls the appropriate routine to 
test the array table entry. 


CHECK3, 8, 5 -- JT 
The routines test the array table entry. 


If it contains an invalid number of dimen- 
sions, the error routine is called. 
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IRACT5 -- JU 


Ihe routine calls one of 8 possible actions 
in the case of 3 dimensions (see the sec- 
tion Evaluation of Subscripted Variables). 


TRACTU -- JV 


Calls the corresponding action in the case 
of 2 dimensions 


TRACT3 -- JW 


Calls the corresponding action in the case 
of 1 dimension (see the section Evaluation 
of Subscripted Variables). 


TESCON -- JX 


Tests if the subscripts X, Y, and Z are 
constants. 


If X-constant, bit 7 in TRBYT is set to 1. 
If Y=constant, bit 6 in TRBYT is set to 1. 
If Z=constant, bit 5 in TRBYT is set to 1. 
SACT50 -- JY 


Evaluates A (X,Y,Z) where X,Y,Z = variables 
A (X,Y,Z) =A(1,1, 1) +FO+L(Z+K (Y+J*X)) where 


L = length of array element 

K = bound 3 of declared array 
A (I,J,K) | 

J = bound 2 of declared array 
A(I,J,K) 

FO = - (C0+C1+C2) 

where CO = L 
C1l=L*RK 
C27 L* K*J 


SACT51 -- JZ 


Evaluates A(X,Y,2) where X - constant, Y 
and Z = variables. 

SACT52 -- JZ 

Evaluates A(X,Y,2) where Y - constant, Y 
and Z = variables. 

SACT53 -- JZ 

Evaluates A(X,Y,2) where Z - constant, X 


and Y - variables. 


SACT5U -- KA 

Evaluates A (X,Y,Z) where X and Y = con- 
stants, Z = variable. 

SACT55_--,KA 

Evaluates A(X,Y,2) where X and Z = con- 


stants, Y = variable. 
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(see the section Evaluation 


SACT56_-- KA 


Evaluates A (X,Y,Z) where Y and Z = con- 
stants, X = variable, 


Evaluates A(X,Y,Z) 
constants. 


where X, Y, and Z 


The routine puts out the constant specified 
by R4 and moves the internal name of the 
constant into the area MAK87. 


CVFISCH -- KD 

R4 points to the argument to be converted. 
The routine calls the conversion routine 
and returns the converted constant to RH. 


PMAK87 -- KE 


The routine puts out the constant FO and 
moves its internal name into the area 
MAK87. (For a description of FO see 

SAC 50). 

MAKGEN -- KF 


The routine generates the macro instruc- 
tions according to the number N in the area 
MAK87. The contents of MAK87 are shown in 
Figure 10. | 


nakaz [r2 | gc [e7]X] n Jes] reo | mens | 
6 

18 

39 

V3 A3 

42 


54 


Figure 10. Contents of MAK87 
The code produced is: 


REG , AO 


1. if N= 0: LA 
A REG, FO 
2. if N= 1: L REG,V1 LR if V1 register 
MH REG,A1 
A REG,FO 
LA R5,A0 
AR REG,R5 


AN 


NW 


ATR 


/ 
/ 
LL 











e == 
. EJ 
B E 
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3. if N72: L REG,V1 LR if V1 register 
MH  REG,A1 
A REG,V2 AR if V2 register 
MH REG,A2 
A  REG,FO 
LA R5,A0 
AR  REG,R5 

4. if N73: L REG,V1 LR if V1 register 
MH  REG,A1 
A REG, V2 AR if V2 register 
MH REG,A2 
A REG,V3 AR if V3 register 
MH REG,AJ 
A REG, FO 
LA R5,A0 
AR  REG,R5 


SACTUO -- KG 


Evaluates A(X,Y) where X and Y - variables. 
A (X,Y) =A (1, 1) +FO+L (Y+J*X) 


where: L length of array element 


J bound 2 in the declared 
array A (I,J) 
FO = -(L + L * J) 
SACT41 -- KG 


SOE RE A onm nar A IAS ESO CARR Sip 


Evaluates A (X,Y) where X = constant, 
Y = variable. 
A (X,Y) =A (1, 1) *FO*L*J*X*L*Y 


L*J*X is computed and added to FO. 
SACT42 -- KG 

Evaluates A(X,Y) where Y - constant, 
X — variable. 


A (X,Y) =A (1, 1) +FO+L*Y+L*J*X 


L * Y is computed during compilation and 
added to FO. 


SACTU3 -- KG 


Evaluates A(X,Y) where X and Y - constants. 
A (X,Y) =A(1, 1) +FO+L*J*X+L*Y 


L * J * X and L * Y are computed during 
compilation and added to FO. 

LJX -- KH 

Computes L * K * X and adds the result to 
FO. (For a description of L, K, X and FO 
See SACT40). 

LY ce KH 

Computes L * Y and adds the result to FO. 
SACT30 -- KI 


Evaluates A(X) where X - variable. 


A(X) =A(1) + FO + L * X where 
L = length of array element 
FO = -L 

SACT31 -- KI 


Evaluates A(X) where X - constant. 
A(X) = A(1 + FO + L * 


L * X is computed during compilation and 
added to FO. 


FISCH -- KJ , KL - KO 


The routine converts constants from their 
intermediate representation to binary inte- 
ger. The input parameter PIN contains the 
address of the constant entry that contains 
the constant to be converted. Output par- 
ameter PIN remains unchanged. The result 
is stored in CONS (4 bytes). 
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PHASE_PL/ID17 (LIBRARY CALLS FOR BUILT-IN FUNCTIONS 1) -- LA P 
Ns 
The function of this phase is to generate a library built-in function) and FF 
macro instructions for the linkage required (end of program) are skipped. 


to call the library built-in functions. 
However, in some cases, the functions are 





evaluated in line, i.e., not via the All information marked by E and F keys 

library. If the compilation contains no (except FC) is written out unchanged. When 

built-in functions, this phase is skipped. a statement is marked by an FC key, the 
routine determines the library function and 

Phase Input and Output either generates an appropriate internal 

macro instruction or causes (1) the infor- 

The text string may contain information mation to be written out unchanged and (2) 

marked by E or F keys. The formats of the phase D20 to be called. Which of the 

various types of information are shown actions is performed is determined by the 
below. The E or F key is always contained type of library function involved. If the 
in the first byte of the particular string input text does not contain functions that 
of information. are to be processed by phase D20, that 
phase is skipped and phase D40 is called. 

1. Begin of statement (six bytes): EO The internal macros that may be generated 

during this phase are listed below. In 

2. End of statement (six bytes): EA addition, the format of the information 
Last byte contains statement number String written out by this phase and the 

calling sequence generated are shown for 

3. Error information (two bytes): EB each of the possible macros. 

4. Information string containing a library Internal macros are identified by an F2 
built-in function indicated by an FC key in the first byte and a macro identifi- 
key and X'13' in byte 4. The format of cation in the fourth. The second and third PEN 
the string is as follows: bytes indicate the skippable length. o 

Ni” 
byte 0 X'FC' 1. LIBRARY CALL: 
bytes 1-2 skippable length 
byte 3 number of arguments > p -r 
including target | F2 [0007] BA | E9 | 00 | LIB] 
byte y X'13* A EN NIE PEER EDR PEB 
byte 5 internal name 
bytes 6-12 not used Calling sequence: 
L 15,LIB-name 
The arguments may be constants, varia- BALR 14,15 
bles, or registers. Variables and 
registers appear in the following form: 2. Ol: 
byte 0 E-key REG DATES BROOKE GEE W" 
bytes 1-2 internal name | F2 |000B] B6 | OP1 | M| 
bytes 3-4 modifier LL---4--—--4-.---4-.-----—--—-— L--———4 
bytes 5-6 attributes 
byte 7 length at object time Calling sequence: 
byte 8-9 precision (P, O) OI POI,M 
bytes 10-12 not used 
3. WI: 
Constants are marked by an E9-key and 
contain the following additional infor- [^7—--T----T----T--------- T----1 
mation: | F2 |000B| A5 | OP1 | M | 
WED! CREEK? A WTZ A 41:2: 
bytes 0-1 internal name 
bytes 2-7 attributes Calling sequence: 
bytes 8-9 length of constant MVI OP1,M 
bytes 10-22 intermediate form of 
constant (left-aligned) 4, MOVE MAK9E: 
5.  End-of-program key (FFFF). Cree p=——-————— T=--—2 
| F2 [0011] 9E | OP1 | OP2 | L| 
Note: F-keys other than FC (indicating LL---4----4----4-----—---— dm in- 
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Calling sequence: 


MVC — OP1(L), OP2 

5. MOVE MAK86: 
poe We. FE A rs: Wim voc T TL KZK 
| F2 |0012| 86 | OP1 | OP2 | L1 | 12 | 
E Eod 


Calling sequence: 


de if L1 < 12: 
MVC — OP1(L1) ,OP2 


bo "Uf LI->-L2: 
MVI OP1,X'40' 
MVC OP1+1 (L1- 1) ,OP1 
MVC OP1 (L2) ,OP2 


6. MOVE ADDRESS MAKO: 


Calling sequence: 


a. if OPT = register 
LA OP1,0P2 


POOR NQR POR reu ee ey E eee EU e Ec ee: T 
| Built-in Function | 
| | 
| | 
|-~--~-------------~------------------------ + 
| TIME | 
| DATE | 
| SQUARE ROOT (SHORT) | 
| SQUARE ROOT (LONG) | 
| EXP (SHORT) | 
| EXP (LONG) | 
| LOG (SHORT) | 
| LOG (LONG) | 
| LOG2 (SHORT) | 
| LOG2 (LONG) | 
| LOG10 (SHORT) | 
| LOG10 (LONG) | 
| SINE (SHORI) | 
| SINE (LONG) | 
| SINE-DEGREE (SHORT) | 
| SINE-DEGREE (LONG) | 
| COSINE (SHORT) | 
| COSINE (LONG) | 
| COSINE-DEGREE (SHORT) | 
| COSINE-DEGREE (LONG) | 
| TAN (SHORT) | 
| TAN (LONG) | 
| TAN-DEGREE (SHORT) | 
| TAN-DEGREE (LONG) | 
| SINH (SHORT) | 
| SINH (LONG) | 
| COSH (SHORT) | 
| COSH (LONG) | 
| TANH (SHORT) | 
NE PETA a AA N eS pe aH REN i 


Figure 1. 


Table of Built-in Functions during 


D. ZEE 
LA 
ST 


7. SUBSTR 


Co id: GA: dl WI DP TIASCI ere 1 
| OP1 |  OP2 


| F2 
| Seinen E 


Callin 


LA 
A 
BCTR 


OP1 = storage 


5,0P2 
5,0P1 


MAK88: 


0010| 88 | 
L 


g sequence: 


5,0P1 
5,0P2 
5,0 


(or AR 


5,OP2) 


BUILT-IN FUNCTIONS PROCESSED 


The table shown in Figure 1 is a listing of 


all built-in functions processed by this 
this table shows the 


phase. In 


addition, 


names of the modules called for the built- 


in function at object time, the internal 


representation generated for the built-in 
and the type of linkage used to 
transfer control to the appropriate module. 


function, 


— a— — w. —— —— a — Geo oe |. A — — — A — oe —— d a— mm ww wa a — M ee eee o — P — e ww 


t 
Module | I 
Name 


O 
ES 
ES 
uw 


Phase D17 


nternal Name 
ES q ooo 
Dec | Hex 
PEDES tata 
80 | 50 
81 | 51 
84 | 54 
85 | 55 
86 | 56 
87 | 57 
88 | 58 
89 | 59 
90 | 5A 
91 | 5B 
92 | 5C 
93 | 5D 
94 | 5E 
95 |  5F 
96 | 60 
97 | 61 
98 | 62 
99 | 63 
100 | 64 
101 | 65 
102 | 66 
103 | 67 
104 | 68 
105 | 69 
106 | 6A 
107 | 6B 
108 | 6C 
109 | 6D 
110 | 6E 
TOMOS rol eres 


(Part 1 of 2) 


T 
| Link Type| 
1 | 
| | 
pS 1 
| S | 
| S | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
| A | 
Pa ee J 
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| 
| 
| 
| 
| 
! 
l 
I 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
| 
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ATAN 
ATAN-DEGREE 
ATAN-DEGREE 

ATAN- (X/Y) 

ATAN- (X/Y) 
ATAN-DEGREE (X/Y) 
ATAN-DEGREE (X/Y) 
REPEAT BIT | 
BIT CONCATENATION 
INDEX BIT 

INDEX CHARACTER 


BOOL 


REPEAT CHARACTER 
MAX. 

MAX. 

MAX. 

MAX. 

MIN. 

MIN. 

MIN. 

MIN. 
SUBSTR BIT 
SUBSTR CHAR 
SUBSTR BIT 
SUBSTR CHAR 
EXP 

EXP 

EXP 

EXP 

EXP 

EXP 

HIGH 

LOW 
ADDRESS 
DYNDUMP 
FLOOR 
FLOOR 
FLOOR 
FLOOR 

CEIL 

CEIL 

CEIL 

CEIL 

MOD 

MOD 

MOD 

MOD 

ROUND 
ROUND 
ROUND 
ROUND 
TRUNC 
TRUNC 
TRUNC 
TRUNC 


gure 1. 


(LONG) 
(SHORT) 
(LONG) 
(SHORT) 
(LONG) 
(SHORT) 
(LONG) 
(SHORT) 
(LONG) 
(SHORT) 
(LONG) 
(SHORT) 
(LONG) 
(SHORT) 
(LONG) 


(FLOAT SHORT) 
(FLOAT LONG) 
(BIN FIXED) 
(DEC FIXED) 
(FLOAT SHORT) 
(FLOAT LONG) 
(BIN FIXED) 
(DEC FIXED) 
(RIGHT) 
(RIGHT) 

(LEFT) 

(LEFT) 


(FLOAT SHORT + INTEGER) 
(FLOAT LONG + INTEGER) 
(DEC + INTEGER) 

(BIN FIX + INTEGER) 
(GENERAL SHORT) 
(GENERAL LONG) 


(FLOAT SHORT) 
(FLOAT LONG) 
(BIN FIXED; 
(DEC FIXED) 
(FLOAT SHORT) 
(FLOAT LONG) 
(BIN FIXED) 
(DEC FIXED) 
(FLOAT SHORT) 
(FLOAT LONG) 
(BIN FIXED) 
(DEC FIXED) 
(FLOAT SHORT) 
(FLOAT LONG) 
(BIN FIXED) 
(DEC FIXED) 
(FLOAT SHORT) 
(FLOAT LONG) 
(BIN FIXED) 
(DEC FIXED) 
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RESM 
RELM 
REPM 
REBM 
RXSA 
RXLM 


SDMP 
RTSM 
RTLM 
RTBM 
RTPM 
RVSM 
RVLM 
RVBM 
RVPM 
RSSM 
RSLM 
RSBM 
RSPM 
RUSM 
RULM 
RUBM 
RUPM 
RWSM 
RWLM 
RWBM 
RWPM 
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Table of Built-in Functions Processed during Phase D17 
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in-line 


Hi 


in-line 


EC BAN G HH 


in-line 
in-line 
in-line 


OUWWOŻZPPOŻEPE Z 


in-line 
in-line 


PP —— MMM —————————— 


(Part 2 of 2) 
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The various types of linkages are 
described below. 


Linkage Type A 


R1 contains the address of a parameter 


block (PBL) as shown below. 

[CU A EI Cpl c P CERES 1 
| Address of Source | 
|~-~---------~-------~-----~-------------~-- { 
| Address of Target | 
lick cec cue Mu LM LU A. J 


The compiler generates one of four pos- 
Sible variations of a coding sequence. 
Which of the four variations is generated 
is determined by the type of storage 
(static or dynamic) that contains the 
Source and target data: 


1. If both SOURCE and TARGET are STATIC, 
the compiler generates: 


LA R1,PBL 
L R15,LIB 
BALR R14,R15 
PBL DC A (SOURCE) 
DC A (TARGET) 
2. If only SOURCE is STATIC, the compiler 
generates: 
LA R1, PBL 
LA R5, TARGET 
ST R5, PBL+4 
L R15,LIB 
BALR R14,R15 
PBL DC A (SOURCE) 
DC XLU Q! 
3. If only TARGET is STATIC, the compiler 
generates: 
LA R1, PBL 
LA R5, SOURCE 
ST R5, PBL 
L R15,LIB 
BALR R14,R15 
PBL DC XLU'0' 
DC A (TARGET) 


L. If neither SOURCE nor TARGET is STATIC, 
the compiler generates: 


LA R1,GWS 

LA R5,SOURCE 
ST R5,GWS 

LA R5,TARGET 
ST R5,GWS+4 
L R15,LIB 
BALR R14,R15 


where GWS = general working storage in 
the outermost block. 


Linkage Type B 


R1 contains the address of a parameter 


block (PBL) as shown below. 

O jur AR | 
A RR | 
| ARA o SE 
ZAD NOE A ŻOR IA OC EUM EMO J 


The compiler generates a coding sequence 
as determined by the type of storage 
(Static or dynamic) that contains the argu- 
ments X and Y and the target data. The 
process of generating the coding sequence 
iS as for type-A linkages. 


Linkage Type C 
R1 contains the address of a parameter 
block (PBL) as shown below. 


— length of bit string and 
N = repetition factor. 


The compiler generates a coding sequence 
as determined by the type of storage 
(static or dynamic) that contains the bit 
String and the target. The process of 
generating the coding sequence is as for 
type-A linkages. However, L and N must be 
inserted into the PBL before control is 
transferred. This is ensured by two MVI 
instructions as shown in the example below, 
which is a sequence for both bit string and 
target data in STATIC storage: 


LA R1, PBL 
MVI PBL,L 
MVI PBL+4,N 
L R15,LIB-name 
BALR R14,R15 
PBL DC A (BI TSTRING) 


DC A (TARGET) 


Linkage Type D 


R1 points to a parameter block (PBL) as 


shown below. 


where L1 = length of string 1 
L2 = length of string 2 
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The compiler generates a coding PBL DC - A (OPERAND1) 
sequence. The process of generating the DC A (DED1) „a 
coding sequence follows the same rules that " X 
apply to type-A linkages. L1 and L2 must à 
be inserted into the PBL before control is DC A (OPERANDn) 
transferred. [This is accomplished by MVI DC A (DEDn) 
instructions as are used to the insert L DC A (TARGET) 
and N into PBL for a type-C linkage. DC A(DED OF TARGET) 


| For each operand in DYNAMIC storage, the 
Linkage Type E . address is determined by means of code and 
stored in PBL as shown: 
R1 points to a parameter block (PBL) as 


shown below. LA R5,OPERANDi 
ST R5,PBL+4 (i-1) 
pop NN NN NN NN Mii 1 where i = operand identification. 
| L1 | Address of String1 | 
| ----}------------------------------------ { 
| L2 | Address of String2 | Linkage Type H 
pod 2 > MMMM 4 
| Address of Mask | R1 contains the address of SOURCE. 
a q == o --- - ---- ----------- | R2 contains the address of OURCE DED.* 
| L| Address of Target | R3 contains the address of TARGET. 
i aa 1 R4 contains the address of TARGET DED.* 
where L1 = length of string 1 (1=1,2) * Format of the DED: 
L = max (L1,L2) 
l , A peque 
The compiler generates a coding 125] J| I| 
sequence. The process of generating the Lido don 
coding sequence follows the same rules that 
apply to type-A linkages. L1, L2, and L where J - length, 
must be inserted into the PBL before con- I = offset. — 
trol is transferred. This is accomplished TN 
by MVI instructions as are used to the The compiler generates: 
insert L and N into the PBL for a type-C 
linkage. LA R1,SOURCE 
LA R2,SOURCE DED 
LA R3,TARGET 
Linkage Type F LA R4,TARGET DED 
L R15,LIBname 
R1 points to a parameter block (PBL) as BALR R14,R15 
shown below. NN 
PARA SRR C Mom a uc 1 
| Address of Operand1 | Linkage Type I 
————Á——— ee eee 
| Address of DED (Operandl)* | R1 contains the address of argument X. 
p------------------—----------------------—- 1 R2 contains the address of exponent N. 
| Address of Operandn | R3 contains the address of TARGET. 
H---------------------------------------—- 1 
| Address of DED (Operandn) * | The compiler generates: 
po -—- 1 
| Address of Target | LA R1,X 
HF------- q------ O O 4 LA RZŃ 
| x'80' | Address of DED (Target) * | LA RO, TARGET 
oe di MMMMMMMi{iiĪiiiiiiĖŘÁĖÁ J L R15,LIBname 
* The format of DEDs is shown under Linkage BALR R14,R15 
Type Je | 
If all operands and the TARGET data are Linkage Type J 


in STATIC storage, the compiler generates: 
R1 contains the address of argument X. 





LA R1,PBDL . R2 contains the address of DED (X). 

MVI PBL*8n,X'80' R3 contains the address of exponent N. 
L- R15,LIBNAME R4 contains the address of TARGET. 

BALR R14,R15 R5 contains the address of TARGET DED. 
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The DEDs have the following format: p  -T----T--------- 1 
| L1]| L2 | | Ln | X'FFFF' | 
1. FIXED BINARY: A A OA AA J 
poo ati quee em 1 l 
| Of P | 9*128 | R1 points to an address block (PBL2) as 
LL---1----4------- J follows: 
2. DECIMAL FIXED: pon on o oo 1 
| Address of Argument 1 | 
r----r----r------- |~-~------~-----+--~-~-+--~-----~--~------ { 
| 8 | P | Q+128 | | Address of Argument 2 | 
AA Eel ai J —((((———— ER | 
| Address of Argument n | 
3. FLOAT: ———————————— — RE J 
[7—7--T----1 The compiler generates: 
| 4| P| 
Lodo LA R,PBL1 
LA R1,PBL2 
The format used for the generation of L R15,LIBname 
DEDs is determined by the type of data to BALR R14,R15 
be described. The compiler generates: 
LA R1,X Linkage Type N 
LA R2,DED (X) 
LA R3,N R1 contains the address of a parameter 
LA R4 TARGET block (PBL) as shown below: 
LA . R5, TARGET DED 
L R15,LIBname p^-7----- po NN NN NN NN NN N00 
BALR R14,R15 | 0+128 | Address of Argument X | 
{--~---- E 1 
| Address of Target | 
Linkage Type K hice MM eee ng eae MESS 1 
R1 contains the address of argument X The compiler generates a coding 
R3 contains the address of exponent N sequence. The process of generating the 
R4 contains the address of TARGET coding sequence follows the same rules that 


apply to type-A linkages. The value of 
0+128 must be inserted into the PBL before 


The compiler generates: control is transferred. This is accom- 
plished by an MVI instruction (refer to 
LA R1,X Linkage Type C. 
LA R3,N 
LA RU TARGET 
L R15,LIBname Linkage Type 0 


BALR R14,R15 
R1 points to a parameter block (PBL) as 
shown below. 


Linkage Type L 


ee GM LM M MDC E CC P M EL AE Z 1 
R1 contains the address of exponent Y | Address of Source | 
R2 contains the address of argument X [-.-—-—-------------------------------------— 4 
R3 contains the address of TARGET | Address of Target | 
pe i 
The compiler generates: | Address of DED* | 
Ee are pct A ZENERA J 
LA REY 
LA E3X * Format of the DED: 
LA R3,TARGET 
L R15,LIBname p7------------ T^7-7---- to-------- 1 
BALR R14,R15 | P of Source | 0+128 | P of Target | 
RESZT st BR AAA EA eer E 4 
Linkage Type M The compiler generates a coding 
Sequence. The process of generating the 
RO points to a parameter block (PBL1) as coding sequence follows the same rules that 
follows: apply to type-A linkages. 
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Linkage Type P * Format of the DED: | ex 
R1 contains the address of a parameter an T===-2 RZ 
block (PBL) as shown below: | P | 9*128 | N | 
PAE PA Eccc 
[7—--—----- T77-7----------------------—------- 1 The compiler generates a coding 
| 014128 | Address of Argument X | sequence. The process of generating the 
I-------- nn +--+ + | coding sequence follows the same principle 
| 02+128 | Address of Argument Y | rules that apply to type-A linkages. 
— ducati n p CDL t EL REZ J 
| Address of Target | Linkage Type S 
o o e CREE J 
R1 contains the address of TARGET. The 
The compiler generates a coding compiler generates: 
sequence. The process of generating the 
coding sequence follows the same rules that LA R1,TARGET 
apply to type-A linkages. The value of L R15,LIBname 
0+128 must be inserted into the PBL before BALR R14,R15 


control is transferred. [This is accom- 

plished by MVI instructions as are used to 

the insert L and N into the PBL for type-C IN-LINE FUNCTIONS 

linkages, 
This section describes the operations per- 
formed on built-in functions that are gen- 


Linkage Type 0 erated in-line. 
R1 contains the address of a parameter substring Built-in Function 


block (PBL) as shown below. 
A substring function may appear in either 


A 1 of the following two formats: 
| Address of X | 
p------------—------------------------------ ] 1. X = SUBSTR (CS, I, J) P T 
| address of Y | E rs 
p----------------------------------------- 1 2. SOBSTR(CS, I, J) - X bad 
| Address of Target | 
p---------------—--—-------—----------------- 1 If the function appears in the first of 
| Address of DED * | the two formats, the compiler generates: 
A AA ee cen RUD ees J 
LA R5,CS 
*Format of the DED: A po 
BCTR R5,1 
(SS cil ARAS o MVC X (J) „O (R5) 
| P of X | (Q of X) * 128 | P of Y | 
Lo 10000 dr ooo - J--- otherwise,. the compiler generates: 
=> p-------------- q77-7-7---------- 1 LA RO,CS 
| (Q of Y)*128 | P of Target | A ROT 
---L--2----------- de 4 BCTR R570 
MVC 0 (J,R5) „X 
The compiler generates a coding 
sequence. The process of generating the However, if J exceeds the length of X, 
coding sequence follows the same rules that the compiler generates the following three 
apply to type-A linkages. instructions for the MVC instruction in the 


above sequences: 


Linkage Type R MVI 0 (R5) „X' 40' 
MVC 1(J-1,R5) ,0 (R5) 
R1 contains the address of a parameter MVC 0 (L,R5) ,X 


block (PBL) as shown below. 
where L - length of x. 





PODPORZE CA PM CEA IC LAC CE M C MEDI 1 

| Address of X | The following condition is tested for 
p--—-—-—---------------—---------------------- 1 during compile time: 

| Address of Target | r< DSR 

| ~--------~----------------~-------------- { 

| Address of DED * | where K = length of CS. In case of an 
Ll e O O error, J is replaced by K. 
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HIGH and LOW Built-in Functions 


A wem AREA AI, UT A. LEE TS O ZE AE DN A WM NA RAA SR SEED RANA WET A EE LS RKA WM A AAA SE RAA ZET 


HIGH (X) 
LOW (X) is: 


Code generated for T 
or T 


Ta If X = 1 either MI 
or MVI 


TARGET,X'FF' 
TARGET,X'00' 


2. If X # 1 either MVI 
Or MVI 
and MVC 


TARGET,X'FF" 
TARGET,X*'00' 
TARGET+1 (LT-1), 
TARGET 

where LT = length of target 


Te— ES EA —M SS X A A NS RAA A A A RA A —— RAMA WAŁ À e M A SEE )—— —— AA GRE "unma. DA WNN tm. ome W 


If argument X is FLOAT, the compiler gener- 
ates: 


MVC TARGET (L) ,SOURCE 
OI TARGET*LI,X'O1' 
where L length of source 


LI 
LI 


3 if short floating point 
7 if long floating point. 


HH ot 


ADDR (X) Built-in Function 


For the address function, the compiler 
generates the macro instruction MOVE 
ADDRESS. This is described in the section 
Phase Input and Output. 


DESCRIPTION OF ROUTINES 


Three input buffers are available to read 

the input text string. Two output buffers 
are used to write out the output informa- 

tion. 


The text string is scanned and the 
information is written out unchanged as 
long as no E or F keys are encountered. 
When an FC key is encountered, the 
appropriate Macro-Generation routine is 
Called. 


The saving and restoring the link reg- 
ister on entering and leaving nested sub- 
routines is done by a save and a return 
routine. The various routines of this 
phase are described in the following. 


Symbols used in flow charts: 


EOP : End of program 

IBU1 : Text input buffers 
1BU2 

IBU3 

INPT : Input pointer 

OBU1 : Text output buffers 
OBU2 

OBU3 

OPT : Output pointer 

EOS : End-of-statement key 
SLENG : Skippable length 
IREC : Number of input records desired 


OREC : Number of output records desired 

ADBL : Stack containing pointers to argu- 
ments 

GWS8 : Internal name of general working 
Storage 

MAKO :  Move-Address macro instruction 

ADCO : Contains address for address macro 

DED : Data element descriptor 

LIBC : Library call macro 

D17 --_LA 


This is the main routine. It controls the 
input, the output, and the processing of 
the text string. The various E- and F-keys 
are translated and the appropriate subrou- 
tines are called. 

INIT1 -- LB 

This routine determines the addresses of 
the three input buffers IBU1, IBU2, and 
IBU3 and the two output buffers OBU! and 
OBU2. The input pointer (INPT) and the 
output pointer (OPT) are set to their ini- 
tial values. 


— MM ——— o — 


Input parameter: INPT points to an EO-key. 


The routine resets the error switch ERRSW 
and clears the error stack ERROSTK. The 
begin statement is written out and INPT is 


updated. In addition, the error counter 
ERRCT (set to indicate previously detected 
errors) is set to zero. 

EAACT -- LD 


Input parameter: INPT points to an EA-key. 


An EA key indicates the end of the current- 
ly processed statement. If the error 
Switch ERRSW is not 0, a bit is set to 
indicate that (1) execution is to be sup- 
pressed and (2) the end of the statement 
and the error stack ERROSTK are to be writ- 
ten out. Otherwise, only the end of state- 
ment is written out. 


EBACT -- LE 


The error message marked by an EB key is 
written out and INPT is increased. 


ASKIP, SKIPF7, INCRE -- LF 

This routine is used to move input informa- 
tion to the output area. The routine uses 

the routine SKIP to increase the constants 

of INPT. 

SKIP -- LG 

Input parameter: 


Register 0 contains the length by which 
the input pointer INPT is to be increased. 
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INPT is increased by the specified 
length and checked to determine which of 
the buffers (1, 2, and 3) INPT points to. 
If INPT points to buffer 2 or 3, buffers 2 
and/or 3 are shifted to the left and INPT 
is updated accordingly. The following 
records are read into buffers 2 and/or 3. 


READIN -- LH 

Input parameter: 

IREC (1 byte) indicates the number of 
records to be read into the input buffers. 


This routine controls the reading of the 
input string into the input buffers. 


MOV31, MOV21, MOVO21 -- LI 


Routine MOV31 moves the contents of input 
buffer IBU3 into IBU1. Routine MOV21 
shifts the contents of input buffers 2 and 
3 to the left by one buffer length. Rou- 
tine MOVO21 moves the contents of the sec- 
ond output buffer into the first output 
buffer. 


MOVOUT -- LJ 


Input parameters: 

REGO contains the length of the data to be 
moved; 

REG1 contains the address of the area that 
contains the data to be moved. 


The routine moves the input string or 
data as determined by registers REGO and 
REG1 into the output buffer. Control is 
then transferred to the OUT routine. 


OUT -- LK 


Input parameter: 
RO contains the value by which OPT is to be 
increased. 


The routine updates OPT and, if the buffer 
is full, writes a record. 


EOPACT -- LL 


Input parameter: 
INPT points to the end-of-program key 
(EOP) . 


The routine causes the last record to be 
written on TXTOUT and determines whether or 
not the next phase (D20) is to be called. 
If phase D20 is not to be called, phase D40 
is called. 


IJKMNN -- LM 


This routine fetches a name from the com- 
munication region IJKMVC and stores this 
name in NAME. The name counter is 
increased by 1. If the value in the name 
counter exceeds 6lK, an error message is 
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passed on; otherwise, the name counter is 
restored. 


INTREST -- LN 


When an FC-key is found, the main routine 
calls the appropriate macro generation 
routine. A translate table is used to 
determine the proper macro generation rou- 
tine. 


Before the selected routine is entered, 
the number of arguments is checked. If an 
improper number of arguments is provided, 
control is returned to the main program. 


N1, N2, N3, Nü, N6 -- LO 


The routine checks the number of arguments 
specified by the user. In case of an 
error, the error routine SETERR is called. 


SETERR -- LP 


This routine moves the error message into 
the error stack and increases the error 
pointer ERRSW. 


FUNCTA -- LO 


This routine generates the parameter block 
for the linkage. An internal macro is 
generated to load the address of the param- 
eter block into register |, 


If all arguments are in automatic stor- 
age, the parameter block is generated in 
the general working storage of the outer- 
most block. Otherwise, the parameter block 
is generated in static storage. 


If the parameter block is generated in 
the general working storage of the outer- 
most block, an address is calculated and 
inserted for each parameter in the paramet- 
er block during object time. If the param- 
eter block is generated in static storage, 
an address constant is generated for each 
of the parameters. 


Abbreviations used in the flow chart: 


ADBL = Stack containing the pointers to 
the arguments. 

GWS8 = Internal name of general working 
storage. 

MAKO = Move-Address macro instruction. 


See the description of macro 
instructions in the section 


Phase Input and Output. 
REPROUN -- LR 


REPROUN is a secondary entry point of the 
FUNCTA routine. It exchanges the pointers 
to the arguments in block ADBL to permit 
the linkages for the REPEAT and ROUND func- 
tions to be handled in the same way as for 
other functions. 


"d 
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ARGADR -- L5 


When this routine is entered, INPT points 
to the FC-key of a function. The routine 
Scans the function and stores the pointers 
to the arguments in reverse order of their 
appearance in block ADBL. In addition, the 
arguments are checked to determine if they 
are in static storage. 


GENADCO -- LT 


Input parameter: 
R5 points to the argument. 


The routine generates an address con- 
Stant and moves it into the output buffer. 
Ihe address constant has the following 
format: 


Dd (2 0 (2 (2 (2 


posse da dc dicta: Dd nada NÓ. 
| | | Int. | | | Int. | | 
| FD [000C|Name [60 [0004|Name|Modif | 
DENS A PC A distet LEMA CHCE 


Bytes 8 through 12 are the name and the 
modifier of the argument for which the 
address constant is to be generated. Bytes 
3 and 4 contain the name of the parameter 
block if it is the argument in the block; 
otherwise, these bytes contain 0. 


GENCO -- LU 


Input parameter: 
R5 points to the argument. 


The routine generates a l-byte constant 
which is not optimizable. If it is the 
first constant in the parameter block, the 
name of the constant is obtained from the 
name counter in the communication region. 
Otherwise, the name field of the constant 
is set to 0. 


PMAKO -- LV 


This routine writes out the internal macro 
MAKO. For the format and the calling 
sequence of this macro refer to the section 


Phase Input and Output. 
PUCO -- LV 


Input parameter: 
R4 contains the address of a 34-byte entry 
for the constante. 


If the argument is a constant required 
during object time, the skippable length is 
calculated and the constant is written out 
with an FD-key. 


SPECFUN -- LW 


The routine determines if the function 
concerned is one without standard linkage. 


If so, the routine calls the corresponding 
linkage-generating routine to generate the 
additional linkage information. 


BOOLF -- LX 


For the BOOL function the internal MVI 
macros are generated in addition to the 
Standard linkage in order to store the 
lengths of strings in the parameter block. 
See the description of type-E linkages in 
the section Built-in Functions Processed. 


MAMIFI Routine -- LY 
The function key is tested to determine if 
it is for a MAX or a MIN function. If it 
is a function key for a MAX or a MIN func- 
tion, the DEDs for the arguments are gener- 
ated and the address constants for the DEDs 
are passed on. 


INCHARF -- LZ 


This routine generates internal MVI macros 
and stores the lengths of arguments in the 
parameter block for the INDEX and REPEAT 
(BIT) functions. 


HIGHLOW -- MA 


This routine generates the required inter- 
nal macros for the functions: 

TARG HIGH (X) and 

TARG = LOW(X). 


u Wu 


Code produced is: 


lo if X = t: 
MVI TARGET,X'FF' or X'00' 
2. if X 2 length of target: 
MVI TARGET,X'FF' or X'00' 
MVC TARGET+1 (LT-1) , TARGET 
3. if 1 < X < length of target: 
MVI TARGET,X'40' 
MVC TARGET+1 (LT-1) , TARGET 
MVI TARGET,X'FF' or X'00' 
MVC TARGET+1 (X-1) , TARGET 


ADDRF -- MB 


This routine generates an internal Move 
Address macro for the address function. 
For the code produced, refer to the des- 
cription of the MOVE ADDRESS MAKO macro in 


the section Phase Input and Output. 
MODF -- NA 


This routine generates internal MVI macros 
that store the scale factor in the first 
byte of each of the addresses in the param- 
eter block. Refer to the description of 
type-2 linkages in the section Built-in 
Functions Processed. 
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FLCEILF -- NB 


This routine generates an internal MVI 
macro that stores the scale factor 0+128 in 
the first byte of the source address. 

Refer to the description of type-N linkages 
in the section Built-in Functions Proc- 
essed. | 


FLCLDF -- NC 

This routine generates the DED (Data Ele- 
ment Descriptor) for a function that 
requires a type-O linkage. Refer to the 
description of type-O linkages in the sec- 
tion Built-in Functions Processed. 


GENDEDAD -- ND 


Input parameter: 
NAME (two bytes) 
DED. 


contains the name of the 


Ihe routine generates an address constant 
for the DED. 


MODDF -- NE 


This routine generates the DED for a func- 
tion that requires a type-0 linkage. Refer 
to the description of type-Q linkages in 

the section Built- in Functions Processed. 


ROUNDBF -- NF 


This routine generates the DED for a func- 
tion that requires a type-R linkage. Refer 
to the description of type-R linkages in 
the section Built-in Functions Processed. 


CONVN -- NG 


Input parameter: 
R4 points to the 34th byte of argument N; 
N is converted to a binary integer. 


The routine is entered if the programmer 
has specified a decimal integer. This 
decimal integer is converted to binary 
fixed and stored in N (one byte). 


This routine generates internal MVI macros 
for the REPEAT function. 


The MVI macros are generated to store, 
at object time, the length of the bit 
string and the repetition factor N in the 
parameter block. Refer to the description 
of type-C linkages in the section Built-in 
Functions Processed. 


EXPOA -- NI 
This routine generates internal Move- 


Address macros to properly pass on the 
parameters. Refer to the description of 
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type-I linkages in the section Built-in E 


Functions Processed. EE 
m NS 


PARG -- NJ 


This routine writes out the internal Move 
Address macro and determines whether or not 
the argument pointed to by R4 is a 
constant. If so, the constant is written 
out using the routine PUCO. 


EXPOB -- NK 


This routine generates the linkage for a 
general exponentiation. Refer to the des- 
cription of type-J linkages in the section 
Built-in Functions Processed. 


DED -- NL 


This routine fetches an internal name for 
the DED from the communication region and 
generates an internal Move-Address macro in 
order to pass on the address of the DED. 


DEDGEN -- NM 


Input parameters: 

R4 points to a 12-byte entry; 

NAME (two bytes) contains the internal name 
to be given to the DED. 


The routine generates the DED according 
to the type specified in the 12-byte entry 
and writes out the DED constant. 


DYNDUMP -- NN 


This routine generates the linkage for the 
DYNDUMP library module. Refer to the des- 
cription of type-M linkages in the section 
Built-in Functions Processed. 


PLENG -- NO 


The length of the currently processed argu- 
ment is normally fetched from byte 7 of the 
entry. If the argument is an array or a 
Structure, the length is fetched from bytes 
10 and 11 and then stored in the length 
block LBLOCK. 


IIMDAT -- NP 


The routine generates (1) an internal LA- 
macro to pass on the address of the target 
and (2) an internal Library-Call macro for 
the functions TIME and/or DATE. 


FLTRO -- NQ 


The routine generates the internal macros 
for the ROUND (float) function. Refer to 
the description of the ROUND built-in 
function for floating point in the section 
IN-Line Functions. 
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An internal MAK9E macro is generated to 
cause the generation of the MVC instruc- 
tion. An OI macro causes the generation of 
the OI instruction. For formats of the 
macros, refer to the section Phase Input 
and Output. 


LIBCALL -- NR 


The routine generates the library macro 
instruction for the appropriate built-in 
function and calls the BITSET routine. 


BITSET -- NS 


The routine sets the appropriate bit in the 
library bit string of the communication 
region. 


TSCSIJ -- NT 


This routine evaluates: T = SUBSTR (CS,I,J) 
where CS = character string. 


For the code produced and the format of 
the internal SUBSTR MAK88 macro which pro- 
duces the MVC instruction to move the 
substring to T, refer to the description of 
the SUBSTR MAK88 macro in the section Phase 


Input and Output. 


CHECKJK -- NU 

The routine determines whether or not the 
following requirement for the SUBSTR func- 
tion is met: 1 <j < k 


If the requirement has not been met, an 
error message is produced. 


SCSIJT -- NV 


This routine evaluates SUBSTR(CS, I, J) - 
X. The generated calling sequence is: 


LA R5,CS 
A R5,I 
BCTR R5,0 


For the format of the internal macro 
MOVE MAK88 which is generated to produce 
the MVC instruction (s) that moves X into 
the substring area, refer to the descrip- 
tion of the MOVE MAK88 macro in the section 


Phase Input and Output. 


TBSBST -- NW 


This routine evaluates: T - SUBSTR (BS, I, 
J) and SUBSTR (BS, I, J) = 


where BS = bit string. 


T 


For the code produced as a calling 
Sequence, refer to the description of type- 
H linkages in the section Built-in 
Functions Processed. 


TSUBST -- NX 


This routine generates the DED for the 
source if T = SUBSTR (BS,I,J) 
or for the target if SUBSTR(BS,I,J) = X. 


SUBSTI -- NY 


The routine generates the DED for the tar- 
get if T - SUBSTR (BS,I,J) 


or for the source if SUBSTR(BS,I,J) - X. 
EXCHP -- NZ 


The routine exchanges the pointers to the 
arguments if SUBSTR(BS,I,J) = X. 
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This phase scans the input stream for func- 
tions not processed in phase D17. When an 
FC-statement key is detected, the appropri- 
ate subroutine (selected according to a 
special key in the FC-statement) is called 
for processing the function. Upon comple- 
tion of processing, the FC-statement is 
skipped and scanning continues. All state- 
ments that do not have an FC key are either 
moved unchanged into the output stream or 
skipped. 


Input and output handling of this phase 
is the same as that of phase D17. If no FC 
key was detected in phase D17, this phase 
is skipped. 


Phase Input 


The built-in functions processed in this 
phase have one to four source arguments and 
one target. The source and target argu- 
ments follow one another in inverse order 
of the function F=F (X1,X2,X3,X4). The 
standard input format is as follows: 


FC statement -- 12 bytes 
Target operand -- 12 bytes 
Argument Xn (nt) ~- 12 bytes 


Argument X1 -- 12 bytes 
Note: If one of the arguments is a con- 
stant, the 12-byte argument is immediately 
followed by the information on the con- 
Stant. 


Format of the FC Statement 


byte 0 Statement key 

bytes 1-2 Skippable length (includes the 
12 bytes of the FC statement + 
12 x number of arguments) 

byte 3 number of arguments (including 
target) 

byte X'13' (indicates that this is 
a library function) 

byte 5 internal library function name 
(00 - FF) 

bytes 6-12 not used 


Format of Arguments 


Ihe format of variable and register argu- 
ments is as follows: 


byte 0 key: El refers to a declared 
variable; E5 refers to a reg- 
ister pointing to data. 

bytes 1-2 internal name (number of reg- 


ister or internal number used 
for variablel 
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bytes 3-4 modifier: refers to internal 
name 

byte 5 attributes 1 

byte 6 attributes 2 

byte 7 object-time length in bytes 

byte 8 precision 

byte 9 scale factor 

bytes 10711 not used 


If the argument is a constant, the fol- 
lowing information is appended to the 
12-byte argument: 


internal name 

attributes 

length of constant 
intermediate form of constant 
(left-aligned) 


bytes 12-13 
bytes 14-17 
bytes 18-19 
bytes 20-31 


The array functions SUM, PROD, ALL, and 
ANY use the following non-standard input: 


FC statement 

array statement. It has the 
same format as the other 
arguments (with the exception 
of the last byte - see byte 23 
below). The array elements 
are converted to equal base 
and scale. The array argument 
is the source of conversion. 
number of array elements 
conversion macro instructions 
of the length xx. The F8 key 
of the following statement 
indicates the end of the con- 
version macro instruction and 
the end of the function input. 
The F8 statement contains the 
information on the target of 
conversion. The conversion 
macro instructions are moved 
into the output as part of the 
function output. 


bytes 0-11 
bytes 12-22 


byte 23 
bytes 24-nn 


Phase Output 


With the exception of the library functions 
processed in this phase (identified by an 
FC key), all statements are moved unchanged 
into the output stream.  Constants in the 
argument operands cause the generation of a 
constant with an F3 key. For the string 
array functions ALL and ANY, a string vari- 
able is generated to accommodate the provi- 
sional result. 


The generated output macro instructions 
(except for the F2 key, the skippable 
length, and the special macro instruction 
KEY) generally have a target and source 
Operands. These operands are identical to 


f 
Ñ 


ATN 


Ss 
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the first six bytes of the input operand. 
Label, length, and precision information is 
added to the macro instruction as required. 
Length and precision are taken from the 
attributes of the input operands. The 
output formats for the individual libary 
functions are as follows: 


ABS 
byte 0 x'r2' 
bytes 1- 2 skippable length 


byte 3 key: 3B - long float 
2B - short float 
1B - decimal fixed 
OB - binary fixed 
bytes 4- 9 target argument 
bytes 10-15 source argument 
SIGN 
byte 0 x'r2' 
bytes 1- 2 skippable length 
byte 3 key: 2A - float 
1A - decimal fixed 
OA - binary fixed 
bytes 4- 9 target 
bytes 10-15 source 
bytes 16-17 label 
bytes 18-19 length (inserted only if the 


source is decimal fixed 
ADD, MULTIPLY, DIVIDE 


The standard macro instructions ASSIGN, 
ADD, MULTIPLY, and DIVIDE are used for 
these functions. The number, order, and 
type of the macro instructions used depend 
on the scale and precision of the arguments 
and on the arithmetic operation. The 
ASSIGN macro instruction is used to assign 
One or two arguments to a register or work- 
ing storage. The result of the arithmetic 
operation is always stored in a register. 
If required, the register is assigned to 
the target. 


SUM, PROD 

An example of the output format (and the 
generated code) for these functions is 
Shown in Figure 1. 

ALL, ANY 

An example of the output format (and the 
generated code) for these functions is 
shown in Figure 2. 


DESCRIPTION OF ROUTINES 


Subroutines Described in D17 


INT1 : Initialization routine (get buffer 
length, set buffer pointer) 
EOACT : Action for EO key (reset error 


switches, output of statement 


begin). 

EAACT : Action for end-of-statement key 
(move out error stack, output of 
Statement end). 

EBACT : Action for EB key (move out error 
message). 

ASKIP : Increase input pointer 
into output area). 

READIN : Read records into input buffer. 


(move input 


ABS, SIGN -- OA 


A special macro instruction (see the macro 
generator phases E50-E60) is provided for 
these functions. Thus, only base and scale 
must be tested to obtain the correct macro 
instruction. The operands are moved 
unchanged from the input stream into the 
macro instruction. 


ADD, MULTIPLY, DIVIDE -- OB, OC 


These functions are not used in version 1 
of this compiler. 


EOPACI -- OE 


This subroutine terminates the phase after 
all input has been processed. It generates 
the string variables and register save 
areas required for the array built-in func- 
tions processed in this phase. Finally, it 
loads phase D40. 


INTREST -- OD 


This subroutine is called if the FC key 
indicates a built-in function to be proc- 
essed in this phase. The appropriate proc- 
essing routine is selected by means of the 
function key, which is part of the input. 
The output of the code macro is part of the 
processing routine for the respective func- 
tion. On return from this routine, the 
input pointer is increased and the next 
Statement is scanned. 


SUM, PROD, ALL, ANY -- OF 


Because of their similar output, these 
array functions are handled in nearly the 
Same way. They differ in their key and in 
the length of the macro instructions only. 


The string variable in the string array 
functions ALL and ANY replaces the 
floating-point register to hold the partial 
result. The initialization values for the 
individual functions are as follows: 


SUM ~- zero 

PROD - floating-point 1 
ALL -~ all ones 

ANY - all zeros 
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ASGN -- OI 


Depending on the attributes of source and 
target, this subroutine generates the 
appropriate assign macro instruction. 
a detailed description of the macro 
instructions refer to the macro generator 
phases E50/E60.) The following five cases 
may occur: 


(For 


decimal , to decimal 
binary fixed to binary fixed 
short float to short float 
long float to long float 
short float to long float 


Source and target (pointed to by reg- 
isters 5 and 6, respectively) must have the 
same base and scale. The macro instruction 
key is determined by means of the source 
attributes (base and scale) and the preci- 
Sion. The field width is calculated by 
means of the precision and the scale fac- 
tor. The generated macro instruction is 
moved into the output stream. 


This subroutine is called as follows: 
BAL LR, ASGN 
SETPNT -- OL 


This subroutine sets pointers to one or two 
Source and one target arguments in the 
input stream. R5 is used to point to one 
source argument; R6 and R5 are used to 
point to the first and second source argu- 
ment, respectively; R4 is used to point to 
the target argument. 


Precision arguments are disregarded; the 


precision is always taken from the argument 
attributes. Contrary to argument con- 
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Stants, precision constants contained in 
the input stream are skipped. The two 
types of constants are differentiated by 
their appearance in the input stream. 
Therefore, every function calling this 
subroutine furnishes the parameters for the 
expected minimum and maximum number of 
arguments. An error message is produced if 
the actual number of arguments in the FC 
Statement is either lower than the minimum 
or higher than the maximum. The subroutine 
is called as follows: 


BAL LR, SETPNT 


Parameters: 


RO = number of required arguments 

R1 = number of actual arguments 

R2 = maximum number of arguments permitted 
in this function. 

MOVOUT 


This subroutine moves a character string 
into the output buffer. RO contains the 
length and R1 the begin address of the 
string. 


GENLAB 


This subroutine fetches a label name from 
the variable counter. 


If the counter overflows, an error message 
is produced and the counter is reset. 


SETERR 
This subroutine stores the error number 


(ERRNR) in the error stack up to a maximum 
of 8. 














The counter is s 
increased each time a label is generated. uror 
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Generated Code 


sum: | [Fz[oo[iz|ar [teTooTos Too TooToo [es [oo [oe Joo]oo]oo 
PROD: | [re[oo]ocj es] és [06 [00 [er |oo oc] oo [oo 00 


SDR 6,6 


LD 6 ,=( D FLOATI ) 
LA | „ARRAY 
LA 0 ,N 

STM 


[Te [n] s — ts jaa 


LABEL conversion 








number of array elements 


conversion macro instructions 





A D 6 , target 
MD 6 , target 
( AE 6 , target 
> ME 6 , target 
LA 1,L(1 ) 
BCT O,LABEL 


` 





length of array element 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Note : LABEL represents the same label name in each case. 


Figure 1. Example of Output Format for SUM and PROD 





Phase PL/ID20 227 


PL/I PLM 8 


IBM Confidential 





F 2]o 0 1 216 7|€ 400098 o£ 100020000000808 ALL OC _ STRING(8),=X'FFF....F' 
F 2001 2jó3|E 4000 9]80|E40009 8 olo 808 ANY XC STRING(8), STRING 


LA 4, ARRAY 


LA 3,N 


F2000E7BARRAY| N |LABEL LABEL: CONVERSION 
MACROS 


CONVERSION 


MACROS 
length after 


conversion 


F 2100 | 2] Sie 4000980 target ot |o 505 NC — STRING(L), TARGET 
6 7 conversion OC 
LA 4,8(4) 
Fopoospo| t SEE BCT — 3,LABEL 


Figure 2. Example of Output for ALL and ANY 
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Input 


The input text stream for this phase con- 
sists of source statements in internally 
coded form, and of both E-key and F-key 
items generated and inserted into the text 
by previous phases. 


ON, REVERT, SIGNAL, and STOP statements 
are in the output format of phase A65. 
Some 1/0 statements are still in an inter- 
mediate format and are to be processed 
later by the subsequent compiler phases D75 
and D80. 


Each statement in the source program 
results in the following input to phase 
D40: statement identifier key X'EO', end- 
of-statement key X'EA', and, if any, error 
keys X'EB'; located between each of these 
begin- and end-of-statement keys are either 
E- or F-keys representing the function of 
the statement, or the statement in inter- 
nally coded form. 


Blocks in the input text are not nestea. 
All procedure blocks or begin blocks have 
been filed one after the other in phase 
c35: 


Output 
The following elements have been processed: 


Block description table for static stor- 
age, 

Prologue macro, 

Certain F-key elements, 

Statement prefixes, 

ON statement, 

REVERT statement, 

SIGNAL statement, 

STOP statement 


Appropriate macros have been substituted 
for each ON, SIGNAL, REVERT, or STOP state- 
ment. Certain entries in each prologue 
macro have been made. A Block Description 
Table for each program block has been 
inserted into the text. 


Macros have been inserted for each 
statement with an individual prefix, sig- 
naling these statements during execution, 


No input/output action on SYS001 occurs 
in this phase. The processing of the pro- 
logue macro and of the REVERT statement 
require two text scans in phase D40. 


FUNCTIONAL DESCRIPTION 


The Block Description Table generated dur- 
ing this phase is part of the static stor- 
age during object program execution. Each 
compilation block is represented in this 
table by a single block description in the 
format shown in Figure 1. 


Em rm 4 bytes———————————————— > 
PERS IRE WESA ATA A DATA A RA 1 
| OFFSET | PREFIX | 
}---------~-~-------- 4--—————------------- ł 
| A (ENTRY 1) | 
A — 4 
| A (ENTRY2) | 
| . | 
| . | 
| . | 
| ---------~------------~------------------ { 
| A (ENTRYn) | 
DC CR 1 
| ON ENTRY1 | 
| -----~------~-------------~-------------- ł 
| ON ENTRY2 | 
po === ----- = 1 
| - | 
| > | 
| - | 
m —À————— { 
| ON ENTRYn | 
[s Eee | E HF | 
OFFSET jContains offset to first ON 


| 

| 

| lentry, if present. Otherwise 
| |ignored. 

| |Dynamic and static prefix byte 
| las described in the library 

| |control routine. 

|A (ENTRY1) |Address of the first entry 

| [point of the block. 

| A(ENTRYn) |Address of the nth entry point 
| lof the block. 

[ON ENTRYn|Present for each ON condition 
| 


[mentioned in the block. 
Eos o q ROZNE e ta, ee EA J 


Format of Block Description 
Table 


Figure 1. 


Each block description entry is gener- 
ated during scanning of the corresponding 
block in the text stream. 


The half-word for PREFIX consists of a 
dynamic and a static prefix byte. 


The static prefix byte will be set up 
during phase D40 according to the prefix 
Status at the beginning of the block. 
Whenever a single statement in the source 
program of the compilation is prefixed, 
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certain macros are inserted into the text 
stream, providing a corresponding status 
of the dynamic prefix byte during execu- 
tion of this statement. (See pertinent 
section on prefixes). 


If an entry point for a block is 
encountered during scanning of the input 
text stream, an address constant is gener- 
ated and added to the block description 
entry. This address constant contains the 
name of the entry in internally coded 
form. 


Each generated block description entry 
is named internally. These names form a 
string of labeling numbers, used for 
designating single block descriptions. 
Each individual name is created by adding 
l to the current value of the communi- 
cation region entry IJKMNN. Each block 
description entry will be keyed in such a 
form that a contiguous portion of the 
static storage in the object program is 
occupied by the entries. 


Generation of single ON entries in the 
block description is discussed in the 
section dealing with ON statements. 


Processing of the Prologue Macros. A 
prologue macro has been generated during 
preceding phases for each entry point to a 
begin or procedure block. The format of 
these prologue macros is discussed in the 
description of phase E50. During phase 
DUO, three entries in each prologue macro 


are completed: 


1. The entry name of the block in inter- 
nally coded form. This entry name is 
contained in the last label macro 
preceding the prologue macro. 


2. The internal name of the Block Des- 
cription Table. This entry is com- 
pleted during the second text scan. 


3.  X'03' is entered into a reserved byte 
of the prologue macro, if the block 
includes ON statements.  X'0Ol1' is 
entered, if no ON statements are 
included. This entry is completed 
during the second text scan, after the 
block has been checked for ON state- 
ments during the first scan. 


Eliminating Special F-key Elements. The 
input text includes X'F7' keys, which 
Served to exclude statements from process- 
ing during preceding phases. These keys 
are eliminated. Certain types of pre- 
viously excluded statements may now be 
processed. 


Label macros of the form 


X'F2000772......' are eliminated during 
the first text scan because they are now 
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obsolete. These label macros, located 
outside the associated block, specified 
block names. 


Processing of Prefixes. Each statement 
contains the prefix mask assigned to it 
according to the prefix lists in the 
Source program. 


If a PROCEDURE or BEGIN statement is 
encountered, the associated prefix mask 
becomes the static prefix byte in the 
Block Description Table for the corres- 
ponding block. Certain special macros are 
inserted into the text stream whenever the 
prefix of a single statement differs from 
the prefix of the whole block. These 
macros are inserted at the beginning of a 
Statement (following the label, if any) 
and at the end of the prefix scope. The 
macro inserted at the beginning of the 
Statement initiates modification of the 
dynamic prefix byte of the Block Descrip- 
tion Table in the static storage. The 
macro inserted at the end of the prefix 
Scope initiates restoring of the block 
prefix mask to the preceding status. Nor- 
mally, the end of a statement is also the 
end of a prefix scope, if the statement 
has its own prefix. However, GOTO, IF, 
CALL, and RETURN are an exception to this 
rule. 


For GOTO, the prefix mask must be 
restored before the macro branch. This is 
done by a scan performed before branching. 
Similar procedures are provided for CALL 
and RETURN. 


Into each IF statement an end-of- 
statement key is inserted after the 
evaluation of the scalar expression. The 
Scope of the condition prefix ends at this 
key. However, certain branch macros 
inside the evaluation of the scalar 
expression branch to an address beyond the 
condition scope. For this reason, the 
condition is reset before branching, and 
Set again after the branch macro with one 
exception: If the branch macro is followed 
by an end-of-statement key, the statement 
prefixes are not restored after the branch 
macro. In any case, the block prefix is 
reset at the end-of-statement. 


Processing of ON Statements. In the PL/I 
Source program, the ON statement defines 
the action to be performed if an interrupt 
occurs for the specified condition. To 
provide this action during object program 
execution, the following code is generat- 
ed: 


1. For each condition specified in an ON 
Statement inside a block, a so-called 
ON-doubleword is set up in the Block 
Description Table for this block. 
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2. Specific macros are inserted into the 
text where the ON statement is locat- 
ed. These macros modify the contents 
of the ON-doubleword in the Block 
Description Table. 


If an interrupt occurs during execution 
of the PL/I program, a library routine 
called 'interrupt handler' scans the sta- 
tic storage for the ON-doubleword corres- 
ponding to the condition in the actual 
block. The performed interrupt action 
depends on the presence and contents of 
this ON-doubleword. 


The format of the ON-doubleword in the 
Block Description Table is as follows: 


bytes 0-1 ON code 

bytes 2-3 file address or not used 

byte 4 flags 

bytes 5-7 printer to address constant 
for label 


ON Condition Field 


250 OVERFLOW 

xt037 ZERODIVIDE 

X'Ou* FIXEDOVERFLOW 

x057 SIZE 

x'06' CONVERSION 

x09" ERROR 

x'"0A' ENDFILE 

X'OB' ENDPAGE 

AOC? TRANSMIT 

XD KEY 

XD RECORD 

Flag Byte 

bast 0 if on: last ON entry of the block 
bit 1 if off: ON statement not executed 
bit 2 reserved 

bit 3 if on: ON mark = system action 
bit 4 if on: ON mark = GOTO statement 


pits 5-7 reserved 
File Address Fields 


This second field is used exclusively for 
I/O conditions: ENDFILE, ENDPAGE, TRANS- 
MIT, KEY, and RECORD. The field is res- 
erved to contain the address of the cor- 
responding DTF table. If an I/O condition 
is mentioned in an ON statement, the file 
name named together with this condition 
may designate either a file constant or a 
file variable. If the file name desig- 
nates a file constant, a macro for the 
file address is generated and inserted to 
point to the file address constant of the 
form AL3 (file DTF) in the double word. If 
the file name designates a file parameter, 
the file address required in the ON entry 
depends upon the value of this parameter. 
For this reason, the actual file address 
value is moved into the ON entry whenever 
an ON statement concerning an I/O condi- 


tion with this file name is encountered. 
The macro for this move instruction is 
generated by this phase. 


Flag Byte Field 


Flag bit 0 is set to either 0 or 1 by this 
phase in generating the ON entries. The 
flag bits 1, 3, 4 are set during the exe- 
cution of the object program: a macro for 
a MVI instruction is inserted for each ON 
statement, taking into consideration the 
setting of flag bit 0. 


Pointer Field 


The last field in the second word is used 
if the ON unit is a GOTO statement. The 
branch of the GOTO statement may be 
directed to a label variable or a label 
constant. If the branch is directed to a 
label variable, a macro for an address 
constant of this label variable has been 
generated by a preceding phase. If the 
branch is directed to a label constant, a 
macro for such an address constant is 
generated and inserted into the text. The 
format of this address constant is dis- 
cussed in IBM System/360, Disk and Tape 
Operating Systems, PL/I Subset Library 
Routines, Program Logic Manual, Form 
Y33-9008. The address of the label 
address constant is moved into the pointer 
field of the ON-doubleword in the Block 
Description Table. If a GOTO statement is 
encountered, the invocation count is moved 
from the DSA into the second word of the 
label address constant. (The invocation 
count is discussed in the description of 
the library routines). 











The following is generated during proc- 
essing of ON statements: 


The ON-doubleword (ON-code, flag bit O0, 
and -- if the file name is a constant -- 
file address). 


Macros for processing during execution (if 
the file name is a parameter, move file 
address, - move flag bits. If a GOTO 
Statement is encountered, move label con- 
Stant address and invocation count). 


A macro for a label variable, if a GOTO 
Statement branches to a label constant. 


Processing of REVERT Statements.  REVERT 
Statements are used to nullify the effect 


of the last executed ON statement and to 
cause the action specification to be 
restored to its status in the immediate, 
dynamically encompassing block. To achieve 
this, flag bit 1 of the corresponding ON- 
doubleword in the Block Description Table 
is set to 1. 
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There is a particular housekeeping for 


filled, the contents of the buffer are put 


the addresses of the individual ON entries out in overlapped mode by the current text a 
in this phase. The ON conditions in a output medium. bd 
REVERT statement which do not have a 
counterpart in the ON statement are Tables 
ignored. 
The core storage area from the end of the 
For each REVERT statement associated Second work buffer down to the phase end is 
with an ON statement in the same block, a occupied by the following three tables: 
macro is inserted into the text stream, 
providing an OI instruction for setting ON/REVERT Table:  Adjacent to the second 
flag bit 1 of the ON-doubleword to 1. Work buffer, a table is established during 
the first text scan for all ON conditions 
Processing of SIGNAL Statements. The SIG- Stated in ON or REVERT statements of indi- 
NAL statement simulates the occurrence of vidual blocks. Each individual table entry | 
an ON condition. For each SIGNAL statement has a length of 4 bytes. The format of the 
a macro calling the library "ON-handler", entry is shown below. 
is inserted into the text stream. The 
called library routine requires one or two byte 0 flag byte | 
parameters. Register 1 must point to a bit 0 on = last condition men- 
constant of the form AL1 (ON Code, 0). For tioned in block 
signaled I/O conditions, the address of a bit 1 on = condition mentioned 
file address constant must be moved into in REVERT statement 
the library work space IJKZWSA. If the only 
file address refers to a file name con- bit 2 off = no ON statements in 
stant, the address constant is generated the current block 
and inserted into the text (for static (used in the first 
storage). If the file address refers to a table entry of a 
file name parameter, the address constant block only) 
has already been generated. 
byte 1 condition code 
Processing of STOP Statements. The STOP 
statement initiates termination of a pro- The boundaries of blocks are indicated AT 
gram. A macro calling the library stop by the status of flag bit 0. Note that = 
sk. gh 


routine is inserted into the text stream. 


"Data-Housekeeping'. Three work buffers 
are used for téxt input and output. Work 
buffer 3 is used for overlapped text out- 
put, work buffers 4 and 5 are used for 
overlapped text input. 


At the beginning of a text scan, two 
records are read in overlapped mode into 
work buffers ! and 5. The scan starts at 
work buffer 4. The text is scanned sequen- 
tially from left to right. Routine KTESCA 
is called to move the scan pointer to the 
next text element. If the scan pointer 
eventually reaches the 5th work buffer, the 
following action is initiated: 


The contents of work buffer 5 are moved 
to work buffer 4, the scan pointer is 
decremented by the buffer length, and a new 
record is read into work buffer 5 in over- 
lapped mode. 


The scan now points again to the first 
text element in work buffer 4, and process- 
ing continues. 


Text output is performed in both text 
Scans by the routine KONSTOUT. This rou- 
tine is called whenever an element is to be 
moved to the text output.  KONSTOUT moves 
this element to the 3rd work buffer. If 
this work buffer is eventually completely 
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only one entry is generated for each ON 
condition and the associated file name, 
though they may occur together in several 
ON or REVERT statements. After the macros 
for the Block Description Table have been 
generated during the first text scan, all 
entries with flag bit 1 set to 0 are 
removed from the ON/REVERT table. The 
remaining entries are grouped together to 
be used again during the second scan. 

These entries now contain all conditions 
that occur in REVERT statements, but not in 
ON statements of the same block. An excep- 
tion to this rule is the first entry for a 
block if its flag bit 2 is set to 0 and its 
flag bit 0 is set to 1. 


During the second scan, the condensed 
ON/ REVERT table serves to recognize all 
those REVERT statements which must be 
treated as Null statements. The first 
entry of each block is preceded by a two- 
byte field containing the number of differ- 
ent ON conditions in this block. During 
the second scan, this number leads to the 
last ON-doubleword in the Block Description 
Table. 


Entry Name Table: This table is created 
for the entry names of a block, beginning 
at the phase end. The entry names are 
retrieved from the label macros preceding a 
prologue macro. Each entry name consists 
of a number, 2 bytes long. If the end of 
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an input text block is reached during the 
scan, this table contains all entry names. 
For each entry to a block, a macro is gen- 
erated as part of the Block Description 
Table macro to obtain the address constant 
of this entry name. The symbolic address 
of this address constant is the entry name: 
E DC A(E) 


This address constant is correct because 
the name will be treated differently 
depending on whether it is the name or the 
value of the address constant. (See the 
description of phase G40.) 


The Entry Name Table is used during the 
first scan only, and is overwritten during 
the second scan. 
ON-Entry Reference Table: This table is 
used for the calculation of ON-doubleword 
addresses. It is created during the second 
text scan, beginning at the phase end and 
overwriting the Entry Name Table. Each 
table entry is 3 bytes long. The first 
byte contains an ON condition code, bytes 2 
and 3 contain either zero, or a file name 
occurring together with an ON condition in 
an ON or REVERT statement. This table is 
used to address the ON-doublewords in the 
Block Description Table. Calculation of 
ON-doubleword addresses is based on the 
location of the associated entry in the 
ON-entry Reference Table because the 
Sequence of the entries reflects the 
Sequence of ON-conditions as they occur in 
the text. 


During the first scan, each Block Des- 
cription Table receives as its symbolic 
address the current value of IJKMNN in the 
communication region.  IJKMNN is increment- 
ed by 1 each time a new block is encoun- 
tered. At the beginning of the first text 
Scan, the current value of IJKMNN is saved 
in an internal buffer called KMNN. During 
the second scan, KMNN is incremented by 1 
each time a new block is encountered, and 
thus contains the internally coded, symbol- 
ic address of the currently corresponding 
Block Description Table. The address of an 
individual ON-doubleword is calculated as 
follows: 


Address = Table symbol + Contents of the 
1st half-word of table + 8 L (L= 
Sequential number of entry in ON-entry 
Reference Table, starting with 0). 


DESCRIPTION OF ROUTINES 


During the first text scan, macros are 
generated to create the Block Description 
Table. The individual routines, used only 
during this scan, are: 


e Main part 
e Processing of the prologue macro, 


e Insertion of the Block Description 
Table, 


e Processing of the ON and REVERT state- 
ments. 


Certain subroutines, used in both text 
Scans, are discussed in the section Subrou- 
tines. 


Main Part of First Scan -- 00 

This routine sets certain pointers to text 
input and output areas and to the tables in 
Static storage. The first two records are 
read in from the input text. The routine 
then enters a loop for scanning the text. 
During this scan, certain keys are select- 
ed, and the appropriate routines for proc- 
essing these keys are called. A label 
macro outside a program block encountered 
is omitted in the output. Text output is 
accomplished by subroutine KTESCA. 


Processing the Proloque Macro -- OR 


The prologue macro specifies either the 
beginning of a new block (Main Entry) or an 
ENTRY statement in a block. 


If the prologue macro specifies the main 
entry, the following processing is per- 
formed: The previous statement prefix is 
Saved as the new block prefix and used in 
testing each statement of the current block 
for an individual condition prefix. For 
the second and all following blocks, the 
subroutine to insert the Block Description 
Table is called. The beginning of the next 
block is marked in the ON/REVERT Table. An 
initial length of 12 bytes is assigned to 
the macro for the Block Description Table. 
The counter for the ON conditions occurring 
in this block is set to zero. The name for 
the Block Description Table of the new 
block is moved from IJKMNN into the macro. 
IJKMNN is then incremented by 1. 


All other prologue macros are processed 
as follows: The name of the Block Descrip- 
tion Table is moved into the prologue 
macro. The ON offset in this table macro 
is incremented by 4, and a new entry name 
(2 bytes) is provided. The length of the 
Block Description Table macro is then 
incremented by 9. This macro contains 
items for each address constant of an entry 
name. 


A test is performed to detect whether a 
Secondary entry point to the block has a 
condition prefix different from the block 
prefix. In this case, a warning message is 
entered into the text. 
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Insertion of Block Description Table -- OS After the end of the input text has been S 
reached, a final text output is performed. NE 

This routine inserts the macro for the Then a test is made to detect whether the | 

first part of the Block Description Table, first or the second scan is completed. 

including all address constants for entry 

names. The value of the ON counter is After the second scan, phase D70 is 

stored in the ON/REVERT table of the block. initiated. 

A macro is inserted into the text to gener- 

ate an ON doubleword for each ON-condition After the first scan, both work files 

occurring in an ON statement. The ON con- are rewound and switched in their function. 

ditions and file names are retrieved from Certain pointers are reset and the first 

the ONYREVERT table in static storage. All two records are read in overlapped mode. 

entries for ON conditions occurring in The scan then starts by checking for DO 

REVERT statements only remain in the table, statements having an own condition prefix. 

but are rearranged for the second scan. If such a DO statement is encountered, the 
statement prefix is set for the scope of 

Processing ON and REVERT -- OT the DO header, i.e., the appropriate macros 
to set and reset the prefix code in the 

A table is assembled. It contains the Static Storage Table are inserted. A 

format of the condition code in the input statement key X'EO' and an F2-macro are 

text (2 bytes) and in the ON-doubleword (1 tested and the corresponding routines are 

byte) for each encountered ON condition. called. Then subroutine KTESCA is called 
to scan the current text input. 

Subroutine KONLOOK is called to set the 

appropriate pointers to this table, and to Processing of the Prologue Macro -- OV 

set certain pointers to the ON or REVERT 

Statement string of the input text. (The This routine sets the flag bits in the 

format of this statement string is dis- prologue macro indicating the presence or 

cussed in the description of the syntax absence of ON statements in the current 

phases). A test is performed to detect block. If the prologue macro signals the 

whether the ON/REVERT table includes an beginning of a new block, the pointer for 

entry for this condition/file name. If the ON/REVERT table in the upper part of 

not, a new entry is made into the table for the Table Area is decremented to the next AA 

this condition/file name, and the ON coun- block limit.  KMNN is incremented by 1, s 


ter is incremented. Flag bits are set in 
the table entry corresponding to the ON or 
REVERT statement. The ON unit in an ON 
statement is checked for a correct GOTO, 
and, if applicable, an error message code 
is inserted into the text stream. The 
format of the ON/REVERT statements in the 
text stream is not changed by this routine, 


Main Part of Second Scan -- OU 


oaz R WD "ZA Z AR i rr RAR AEE Em z r R AST TE ROCCA R AC R ZY 


During the Second text Scan, processing of 
the ON, REVERT, SIGNAL, and STOP is com- 
pleted. The macros for the function of 
these statements are inserted into the text 
stream and the condition prefixes of indi- 
vidual statements are processed. The indi- 
vidual routines, used only during this 
scan, are: 

e Main part of second scan, 

e Processing of the prologue macro, 

e Statement selection 

e Processing of the REVERT statements, 


e Processing of the SIGNAL and STOP state- 
ments, 


e Processing of the condition prefixes, 


e Processing of the ON statement. 
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enabling correct addressing of the Block 
Description Table. (The value of KMNN is 
the symbolic address of the Block Descrip- 
tion Table). For each new block, an On- 
Entry reference table is created in the 
lower part of the Table Area during the 
Scan. The pointer to the current table is 
set when a new block is encountered. 


The block prefix is saved to be compared 
to subsequent statement prefixes of the 
block. 


Statement Selection - OW 


This routine distinguishes three classes of 
Statements: 


1. ON, REVERT, SIGNAL, STOP statements are 
processed by the appropriate routines. 


2. Statements headed by a prefix macro are 
processed by a special routine. 


3. All other statements are bypassed. No 
interrupt may occur during execution of 
these statements. 


Processing the REVERT Statements -- OX 


Subroutine KONLOOK is called to set certain 
pointers both in the tables and in the text 
Stream. Then the On-Entry reference table 
is scanned to detect whether the condition 
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associated to the statement already 
occurred in the same block. This test is 
based on numbering and correct addressing 
in the Block Description Table. If the 
condition did not occur previously, the 
ON/REVERT table is scanned for a dummy 
entry. If this statement has no corres- 
ponding ON statement in the same block, the 
key for a warning message is inserted into 
the text stream. If the statement has a 
corresponding ON statement, a new element 
is added to the table in the lower part of 
the Table Area and a macro is inserted into 
the text stream to set the flag bit of the 
ON-doubleword in the Block Description 
Table. 


eee ias oum ce mre A my A MÀ Z € RA RA A uM PM NZ Ce KA W NA RY i A CE eS 


If a SIGNAL statement is encountered, sub- 
routine KONLOOK is called to Set certain 
pointers to the text stream. Then macros 
are generated and inserted into the text 
stream to call the library interrupt han- 
dler. Some of these macros prepare param- 
eters for the ON condition code and, if 
necessary, for the file name address. 


If a STOP statement is encountered, a 
macro is inserted into the text stream to 
call the library STOP routine. 


For each SIGNAL or STOP statement, a 
corresponding call bit is set in the inter- 
phase communication region to provide the 
appropriate library routine in a later 
compiler phase. 


ume AE pere rm M GES WO R eus anra AZ cs A MD R R ue A Má A AAA AA A m n 


This routine is called if a statement has 
an individual condition prefix and if this 
condition can occur during execution of the 
Statement. One macro has already been 
inserted to set the statement prefix in the 
Block Description Table. This routine 
inserts the macro for resetting the prefix 
byte into the text string. For assignment 
Statements, SET statements, dynamic state- 
ments, and I/O statements, the correct 
position to insert this macro is the end of 
Statement key X'EA'. The condition prefix 
Scope ends here. 


For CALL, GOTO, and RETURN statements, 
the condition prefix is reset if a branch 
macro is encountered and before branching. 


For IF statements, the scope of the 
prefix ends together with the evaluation of 
the IF expression. However, one or more 
branch macros are encountered during evalu- 
ation. The length of the text stream for 
the evaluation may exceed the buffer 
length. For this reason, a reset macro is 
inserted to precede each branch macro of 
this evaluation. Another macro to set the 
Statement prefix is inserted after each 


branch macro, with one exception: if the 
branch macro is followed by an end-of- 
Statement key, nothing is inserted. This 
procedure ensures that the block prefix is 
reset after expression evaluation. 


Processing of ON Statements - 01, O2 


Subroutine KONLOOK is called to set poin- 
ters to both tables and in the text stream. 
The On-Entry reference table is looked up 
to detect whether the condition occurred 
already in the same block. If the condi- 
tion has not yet occurred, a new entry for 
this condition and file name is made in the 
table. 


If a file parameter occurs in the ON 
Statement, a macro is inserted into the 
text stream to move the file address into 
the corresponding ON-doubleword. 


The ON unit is tested and the appropri- 
ate flag bits for the ON-doubleword are 
prepared. If the ON unit is a GOTO state- 
ment with a label constant, two macros 
concerning the label constant are inserted 
into the text stream. The first macro 
provides a label address constant, the 
Second macro moves the address of the label 
address constant into the ON-doubleword. 

If the ON unit is a GOTO statement with a 
label variable, the address constant macro 
for this label variable has already been 
inserted in a previous phase. In this 
case, the label name designates this 
address constant. Only the second macro is 
inserted to move the address into the ON- 
doubleword. 


The macro to set the flag bits in the 
ON-doubleword is inserted into the text 
Stream. If a null statement is used in the 
ON unit for an ENDFILE, KEY, or CONVERSION 
condition, an error code is inserted into 
the text stream. 


KTESCA -- 03, 04 


This routine moves the text scan pointer 
and performs certain tests. If an E-key 
element is encountered, the pointer is 
modified by a fixed length depending on 
this E-key. 


If an F-key signaling the end of text is 
encountered, the main part of the second 
Scan is called (if not yet processed). 


If any other F-key element is 
encountered, several tests are made. Cer- 
tain macros are selected which require 
Setting of a special prefix byte in the 
Block Description Table. The object code 
of these macros may cause a fixed overflow 
interrupt which is to be interpreted as a 
SIZE condition by the library interrupt 
handler. 
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To signal the SIZE condition to the 
library interrupt handler, a second macro 
is inserted preceding the macro causing the 
interrupt. This inserted macro sets bit 7 
in the dynamic prefix byte of the Block 
Description Table to one. A third macro is 
inserted after the interrupt-causing macro. 
The third macro resets bit 7 to zero. 


If the F-key element is of the form 
X'F7....', the byte containing X'F7' and 
the three bytes following it are eliminat- 
ed. 


If the F-key element does not begin with 
X'F7', the length for modifying the scan 
pointer is retrieved from bytes 2 and 3 of 
the element. If this length exceeds the 
buffer length, pointer modification is 
accomplished in several steps. 


KCONDOUT -- 05 

This subroutine checks whether the scan 
pointer reached the second text input area. 
In this case, the following steps are per- 
formed: 


1. The scanned text is put out. The con- 
tents from the second text buffer are 
moved into the first text buffer. 


2. A new record is read in overlapped mode 
into the second text buffer. 


3. The scan pointer is decremented by the 
buffer length. 


KONSTOUT -- 06 


Before this subroutine is called, register 
1 must contain the start address of the 
information to be added to the output text 
and register 2 must contain the end address 
+ 1 of this information. Output is done in 
one or several steps, depending on the 
length of the information area and on the 
available space in the output area. The 
information to be put out is accumulated in 
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the text output area. If this area is 
eventually filled to capacity, output is 
accomplished in overlapped mode. Another 
portion of information is then accumulated 


in the output area. 
KINTER, KOTE -- 07 


If the program is too big, one of the 
tables in the Table Area will eventually 
overflow. In this case, KINTER is called 
to enter a severity error code and to trun- 
cate the text at the current position of 
the scan. Compilation is terminated. 


Subroutine KOTE is called when text is 
to be put out. Text output is accomplished 
in portions beginning at the current text 
Start address and ending at the current 
position of the scan pointer. 


KONLOOK -- 08,09 


This subroutine is called whenever an ON, 
SIGNAL, or REVERT statement is encountered. 
These statements may have a corresponding 
prestatement table.  KONLOOK sets pointers 
to the begin and to the end of this pres- 
tatement table. Other pointers to be set 
by KONLOOK are: 


1. Pointer to the ON condition table of 
this phase, 


2. pointer to I/O conditions in the ON 
condition table, and 


3. pointer to the ON/REVERT table in the 
upper part of the Table Area. 


If an I/O condition is posted in the 
Statement, a test for correct file name 
reference is performed. If the file name 
is incorrect (symbol for file name does not 
reference a file) an error code is inserted 
into the text and elimination of the state- 
ment is initiated. If KONLOOK is called 
during the first text scan, this elimina- 
tion is nullified by the calling routine. 
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PHASE PL/I D70 (PROCESSING CONSTANTS II) -- PK 


Ihis phase does the following: 


1. It performs the conversion of constants 
from the base, scale, and precision 
Specified by the programmer to the 
base, scale, and precision needed at 
object time. The "new type and 
precision" of the constants are deter- 
mined in phase D05. 


2. To get the internal representation of 
the decimal and binary floating-point 
conStants, i.e., to perform the conver- 
Sion from base decimal and binary to 
hexadecimal. 


In previous phases, the source text is 
converted into a stream of elements 
(macros, statement-identifier keys, end-of- 
Statement keys, error-keys, and constant 
tables). 


The constant tables consist of the 
following: 


e X'F3' = key for constant-table, 
e length of table (2 bytes), 


e One or more constant entries. These 
entries consist of the following: 


Internal name of the constant (2 bytes). 


Attributes of the constant (1 byte): 


Bits 273: 
00 = optimizable 
01 = delete 
10 = constant is not optimizable but 


containing block is optimizable 
constant should not be deleted 


11 


e Old type of constant (1 byte; see phase 
(35). 


e Old precision of constant (1 byte; see 
phase C35). 


e New type of constant (1 byte). 


Bit 0-1: negation 


Bits 4-7: 0% float 
1 = binary fixed 
2 — float 
3 = decimal fixed (packed) 
4 = decimal fixed (zoned) 
5 = decimal fixed (zoned TI) 
6 — character string 
7 = bit string 


e New precision of constant (2 bytes) 
Byte (0: P if arithmetic constant 
L if character string or bit 
string 
Byte 1: Q if fixed point constant. If 
floating point constant: 
O= short, # 0 = long. 


e Length of the following intermediate 
representation of the constant (2 
bytes). 


e Constant (intermediate representation). 


Note: NT = 0 and NP = 0 means: NT = OP 
and NP — OP, i.e. no conversion takes 
place unless OT - binary or decimal float. 


The individual entries of the constant 
tables prepared for output have been 
reduced to the following: 


e Internal name of constant (2 bytes) 
e Attribute of the constant (1 byte) 
e Length of constant that follows 


With the exception of floating-point 
numbers, the internal representation of the 
constants is the same as the intermediate 
one (see phase C35). The floating-point 
constants contain the following. 


e (1 byte) : 
bit 0: sign: 1 = neg., 0 = pos. 
bits 1-7 : hexadecimal exponent (excess 
64 number) 


e (variable) :hexadecimal fraction of 6 or 
14 hexadecimal digits depending on 
whether it is a short or long fraction, 
respectively. (See IBM System/360 Prin- 





The decimal fixed-point ZONED constants 
are Stored as unsigned integers, each digit 
occupying one byte, in ZONED T constants 
the zone of the rightmost digit is replaced 
by the sign. (See IBM System/360 Princi- 
ples of Operation, Form A22-6821). 


Initialization -- PL 

This routine initializes pointers, switch- 
es, etc., and reads in two buffers of input 
text. 

FGSC -- PM, PN 


This is part of the main routine of the 
phase. It scans the input stream, bypasses 
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and moves all program elements, except 
end-of-program-keys and constant tables, 
into the output buffer. Each new constant 
table is built up in the table space, and, 
after all constants of the corresponding 
old table have been processed, it is moved 
into the output buffer.  Constants with the 
delete-bit on and the optimizable-bit off 
are deleted from the table. Constants 
which do not have to be converted are moved 
unchanged into the new constant table; only 
the 5 bytes including types and precisions 
are deleted. 


If the table space is filled and there 
are still some constants to be processed, 
the new constant table is written onto the 
text output file and a second one is built 
up. When the end-of-program key is found, 
it is moved into the output buffer, which 
is written onto the text output work file. 
Control is passed to IJKPH to call phase 
D75 or D80 depending on whether the job- 
information-bit (bit 28) is on or off. 


This routine is part of the main routine. 
It is called when an end-of-statement key 
is found during the scan of the input text. 
If it terminates an erroneous statement 
(i.e., if bits 8-11 of the EOS key are not 
all zeros) the job-information bit (bit 1) 
is set on. Before doing this, bits 8-11 of 
the EOS key have been OR-ed by the 
severity-code bits of any errors occuring 
during conversion of a constant belonging 
to this statement. The error-tail of the 
end-of-statement key is extended by the 
error key (s), and the respective error 
number (s) is stored in the error table. A 
macro is generated to signal the SIZE con- 
dition at object time. 


Note: Only an end-of-statement key with 
bit 15 on indicates the termination of an 
I/O statement. 


Input parameters: 

PIN = contains address of source 
POUT - pointer of output buffer 
BYZ = number of bytes to be moved 


Output parameters: 
PIN = PIN+BYZ 

= address of the next available byte 
in the output buffer. 


This routine loads the output buffer. 
If all the bytes to be moved do not fit 
into the output buffer or if they do exact- 
ly fit, the buffer is filled by the first 
part of the text to be moved. The buffer 
is written onto the text output work file. 
The remaining bytes, if any, are moved into 
the buffer (left-aligned). 
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FERR == PO 


This routine prepares parameters to note 
error number 64 (CONSTANT CONVERSION UNDE- 
FINED DUE TO SIZE-ERROR) in the error 
table. 


FERRUC -- PQ 


This routine is branched to if a conversion 
to character string other than from bit 
String is requested. It prepares paramet- 
ers to note error number 146 (ILLEGAL CON- 
VERSION OR COMBINATION OF DATA TYPES) and 
deletes the constant. 


JERR -- PQ 


Input parameter: 
RO = error number 


This routine notes up to 8 errors in the 
error table. 


FPIN -- PR 


Input parameters: 

PIN = input pointer 

PIN = contains the address of the first 
byte of the input text which is to 
be moved into the output buffer. 


This routine is called each time the 
input pointer is increased. It updates the 
input pointer so that it points always to 
an address within the first of the two 
input buffers. When the input pointer goes 
beyond this range, all source text from 
PINS up to PIN is moved into the output 
buffer. If not all the text can be read in 
one move, several steps are used. If nec- 
essary, the input text is moved to the left 
so that the input pointer points to an 
address within the first buffer. 


Secondary Entry Point:  FPINX 
This part of the routine moves the input 


text to the left and reads in a new record 
without moving any text into the output 
buffer. 


FCON -- PS 


Input parameter: 
PIN = points to the constant-table entry 
of the constant to be converted. 


This routine prepares the parameters for 
one of the conversion routines. The con- 
version routines convert the old type and 
precision of the constant to the new type 
and precision. The conversion routines 


are: 

FBSL bit string to float 

FBIL binary fixed to float 

FBLL binary float (intermediate 
representation) to float 
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FSBI bit string to binary fixed integer (precision (53,0) 
zę FBII binary fixed (change and check for REXP = (general register) contains the 
precision) binary exponent 
FSDI bit string to decimal fixed LIND = (general register) switch to indi- 
FBID binary fixed to decimal fixed cate whether FBLL has been called by 
FDDI decimal fixed (change and check for another conversion routine (#0) or 
precision) by FCON (=0) 
FSCS bit string to character string 
FBLS binary float (intermediate Output parameters: 
representation) to bit string PIN = unchanged 
FBIS binary fixed to bit string CONS - result of the conversion 
FBSS bit string (change and check for RLEN = 4 if short fraction, 8 if long frac- 
precision) tion. 
FNDI binary float (intermediate 
representation) to decimal fixed This routine converts binary float 
FLDI float to decimal fixed (intermediate) to float. 
FNBI binary float (intermediate 
representation} to binary fixed After having been shifted left by 
FDIS decimal fixed to bit string (REXP- (FLOOR (REXP/4))*4) the binary inte- 
FDIL decimal fixed to float ger is interpreted as the fraction of an 
FDFL decimal float (intermediate unnormalized floating- point constant with 
representation) to float the hexadecimal exponent 
FDLS decimal float (intermediate (64+FLOOR (REXP/4)). 
representation) to bit string 
FDLB decimal float (intermediate To normalize the constant, the fraction 
representation) to binary fixed is shifted left as many hexadecimal digit 
FLBI float to binary fixed positions as necessary, and the exponent is 
FDIB decimal fixed to binary fixed reduced accordingly. 
FDLD decimal float (intermediate 
representation) to decimal fixed If the exponent is less than 0 or great- 
er than X'7F', the constant is set to 0 or 
FBSL -- PT to the largest hexadecimal value (entry 
points FBLL30 or FBLL35, respectively), and 
c Input parameters: error numbers 59 or 58, respectively, are 
( PIN = address of constant-table entry put into the error table. 
2 CONS = (double word) contains the bit 
string left-aligned. Finally, if LIND * 0, control is trans- 
ferred to the calling conversion routine. 
This routine converts the bit string to Otherwise, if the sign is minus, it is 
float. The bit string is first converted taken into account by setting the leftmost 
to binary fixed (precision (31,0). Then bit of the constant to 1. 


control is transferred to FBIL. 
Secondary entry points: FBLL10, FBLL30, 


FBIL -- PT FBLL35, FBLL25 
This is a secondary entry point of FBSL. FSBI == PV 
Input parameters: Input parameters: 
PIN = address of constant-table entry PIN = address of constant-table entry 
CONS = (fullword) contains the binary CONS = (double word) contains the bit 
fixed-point constant. string left-aligned. 
RBFI = R5 (general register) same as CONS. 
This routine converts from bit string to 
The routine converts binary fixed point binary fixed. The constant is loaded into 
constants to floating point. The paramet- a pair of general registers and right- 
ers are transformed into parameters for aligned by a double shift. The result is 
FBLL, i.e., the constant is interpreted as interpreted as a binary fixed point 
a binary floating point constant constant (precision (31,0)), and signifi- 
(intermediate representation) with exponent cant binary digits exceeding 31 are trun- 
= 0. Then control is transferred to FBLL. cated. Control is then transferred to 
FBII. 
FBLL -- PU 
FBII == PW 


amem OE PPP OD 


This is a secondary entry point of FBSL. 
This is a secondary entry point of FSBI. 
Fs Input parameters: 
(C PIN = address of constant-table entry Input parameters: 
CONS = (double word) contains the binary PIN = address of constant-table entry 
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CONS = (fullword) contains the 

binary fixed-point constant 
RBFI = R5 - (general register) same as CONS 
LIND - switch to indicate whether FBII has 


been called by another conversion 
routine (#0) or by FCON (=0) 


Output parameters: 

PIN - unchanged 

CONS - result of conversion 
RLEN = 4 


The constant is shifted as many binary 
digit positions as specified by the target 
scale factor (note that scale of source is 
always 0), left or right depending on 
whether the scale factor is positive or 
negative. If there are more significant 
digits than specified for the precision of 
the target, the constant is truncated to 
the left, and FERR is called. 


If LIND # 0, control is transferred to 
the calling conversion routine. Otherwise, 
the sign specified for the constant is 
taken into account, i.e., the constant is 
complemented if the sign is minus. 


Secondary entry point: FBIIO3 


FSDI -- PX 


Input parameters: 

PIN address of constant-table entry 

CONS (double word) contains the bit 
String left-aligned. 


This routine converts from bit string to 
decimal fixed. The bit string is first 
converted to binary fixed (precision 
(31,0)), and control is transferred to 
FBID. 


FBID -- PX 
This is a secondary entry point of FSDI. 


Input parameters: 

PIN = address of constant-table entry 

RBFI - (gen.reg.) binary fixed-point con- 
Stant 


This routine converts from binary fixed 
to decimal fixed. The binary fixed -point 
constant is converted to decimal 
(precision(15,0)), and control is trans- 
ferred to FDDI. 


FDDI -- PY 


d 


This is a secondary entry point of FSDI. 


Input parameters: 

PIN = address of constant-table entry 

CONS = (double word) contains the decimal 
fixed point constant. 
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Output parameters: 

= unchanged 

CONS = result of conversion, left-aligned 
- length of result in bytes 


© 


This routine converts packed decimal 
fixed to decimal fixed, packed or zoned or 
(zoned (T) format. 


Second entry point: FDDIX 


Input parameters: as above 
RO = scale factor of source 


Third entry point: FDDI45 


The constant is shifted as many decimal 
digit positions as the difference between 
the scale factor of target and the source. 
It is shifted left or right depending on 
whether the difference is positive or nega- 
tive. 


If there are more significant digits 
than specified for the precision of the 
target, FERR is called and the excess 
2*CETL (P+2/2) -1 or P left digits are trun- 
cated on the left, depending on whether 
packed or zoned format is called for. 


The constant is left-aligned in CONS and 
supplied with the appropriate sign bits as 
Specified by the target. 4 


If zoned or zoned (T) format is called 
for, the constant is unpacked and the sign 
replaced by the zone or left unchanged, 


respectively. 
FSCS -- PZ 


Input parameters: 


PIN = address of constant-table entry 

CONS = (double word) contains the bit 
string left-aligned 

PTAB = pointer of new constant table. 


Output parameters: 
PIN unchanged 
PTAB points to the next entry. 


nog 


This routine converts bit strings to 
character strings. The character string is 
built one character at a time in the new 
constant table. If the length of the tar- 
get exceeds the length of the source, the 
character string is expanded with blanks. 


FBLS -- QA 


Input parameters: 





PIN = address of constant-table entry 

CONS = (double word) contains the binary 
integer (precision (53,0)) 

REXP - (register) contains the binary expo- 
nent. 
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Binary float (intermediate) is converted 
to bit string. The routine calls FNBI 
which converts the binary float constant 
(intermediate representation) to binary 
fixed (precision = min (31,P (source)). Con- 
trol is then transferred to FBIS. 


FBIS -- QA 
This is a secondary entry point of FBLS. 


Input parameters: 

PIN = address of constant-table entry 

RBFI = (register) contains binary fixed- 
point constant 


This routine converts binary fixed to 
bit string. The binary fixed-point con- 
stant is interpreted as a bit string of 
length P (Source), i.e., RBFI is shifted 
left (32-P) bit positions. Then control is 
transferred to FBSS. 


FBSS --_QA 
This is a secondary entry point of FBLS. 


Input parameters: 

PIN address of constant-table entry 

CONS (double word) contains the left- 
aligned bit string (expanded on the 
right by O's) 


Output parameters: 


PIN = unchanged 
CONS = target string, left-aligned 
RLEN = length of target in bytes = CEIL 


(length of target in bits/8) 

This routine truncates or expands bit 
Strings according to the new precision. 
string. String. If the target sign is 
negative, the string is inverted. 
FNDI -- OB 


Input parameters: 


PIN = address of constant-table entry 

CONS = (double word) contains the binary 
integer 

REXP - (register) contains the binary expo- 
nent 


This routine converts binary float 
(intermediate) to decimal fixed.  FBLL is 
called to convert the binary float number 
(intermediate form) to hexadecimal float. 
Then control is tranferred to FLDI. 


Ihis is a secondary entry point of FNDI. 


input parameters: 
CONS = (double word) 
point number 


hexadecimal floating 


Output parameter: 
CONS = decimal integer (precision (15,0)) 
RO-RSCF: scale factor 


This routine converts hexadecimal float 
to decimal fixed. If the source is zero, 
FDDI is called to generate a decimal zero. 
If the excess 64 hexadecimal exponent is 
78, the hexadecimal fraction of 14 digits 
may be interpreted as a binary integer 
(precision (56,0)). This binary integer is 
converted to decimal (precision(17,0)). If 
the result consists of more than 15 signi- 
ficant digits, the result is truncated and 
shifted right one or two decimal digit 
positions, and the scale factor 
(initialized with 0) is reduced according- 
ly. FDDIX is called to process the decimal 
fixed-point numbers. 


If the source exponent is not 78, the 
hexadecimal fraction may be interpreted as 
a binary integer which is to be multiplied 
by 16**y (y = source exponent-78). 


D = IO * 16**y 
this is equivalent to 


D/ 10**X-IO*16**y/10**y-IT*16**0 
if 16**y/10**X-1, i.e., 
16**yz10**X, i.e., 
x-y* 1n16/1n10 


This means: the source is to be divided 
by 10**x to get an integer result which may 
be converted to decimal. The target result 
is the decimal integer and the scale factor 
X. 


TO get the hexadecimal (binary) integer, 
the source is divided by 10**X1 or multi- 
plied by 10**-X1, depending on whether X1 
is positive or negative. X1 = min(78, 
FLOOR ((y*19728+8192) 16384) 

(19728/16384=1n 16/1n 10 ; 8192 = 
rounding) , and the scale factor is 
increased by X1. This is repeated until 
the exponent of the result is 78. 


FNBI -- QC 


Input parameters: 


PIN = address of constant-table entry 

CONS - (double word) contains the binary 
integer 

REXP = (register) contains the binary expo- 
nent 

LIND = (register) switch to indicate wheth- 


er FNBI has been called by another 
conversion routine (#0) or by FCON 


(70) 
Output parameters: 
PIN = unchanged 
CONS = result of conversion 
RLEN = 4 


Phase PL/ID70 241 


PL/I PLM 8 


IBM Confidential 


This routine converts binary float 
(intermediate) to binary fixed. The binary 
integer is shifted as many binary digit 
positions as the sum of the exponent and 
the scale factor of the target. It is 
shifted left or right depending on whether 
the sum is positive or negative. 


If there are more significant digits 
than specified for the precision of the 
target, FERR is called, and the number is 
truncated on the left. 


If LIND # 0, control is passed to the 
calling conversion routine; if LIND= 0, 
the sign Specified for the target is taken 
into account, i.e., the constant is comple- 
mented if the sign is minus. 


Input parameters: 

PIN = address of constant-table entry 

CONS = (double word) contains the decimal 
fixed-point constant. 


This routine converts decimal fixed to 
bit string. The decimal fixed point con- 
stant is converted to binary fixed, preci- 
sion min (31, CEIL((P-Q)/3,32)). FBIS is 
called to perform the conversion from 
binary fixed to bit string. 


If P-Q = 0, a string of length 1, value 
0 is generated in CONS.  FBSS is called to 
process the bit string. 


FDIL -- QE 


Input parameters: 

PIN address of constant-table entry 

CONS (double word) contains the decimal 
fixed-point constant. 


This routine converts decimal fixed to 
float. The input parameters are trans- 
formed into input parameters for FDLL (REXP 
= ~scale factor). Control is transferred 
to FDLL. 


FDLL (FDFL) -- OE 


Input parameters: 


PIN = address of constant-table entry 

FINT = (= CONS (double word)- 1): decimal 
integer (prec. 17) 

REXP = decimal exponent 


Output parameter: 
CONS - hexadecimal floating-point constant. 


This routine converts decimal float 
(intermediate) to float. The decimal inte- 
ger is converted to binary (precision 
56,0), after having been left-aligned and 
REXP having been reduced accordingly. The 
binary integer may be interpreted as the 
fraction of a normalized floating point 
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number with the excess 64 hexadecimal expo- 
nent of 78. 


If the integer is zero, the result is 
Set to a true floating-point zero. If the 
integer is not zero and if REXP is greater 
than 59, FBLL is called to set the constant 
to the highest floating-point number 


The normalized hexadecimal number is 
multiplied by 10**X (X = REXP) if REXP is 
positive, or divided by 10**'X' if REXP is 
negative. If the result is zero, i.e., in 
the case of an exponent underflow (the 
interrupt having been masked off), FBLL30 
is called to set the constant to zero. 
FBLL10 is then called to process the 
floating-point constant. 


FDLS -- 9G 


Input parameters: 


PIN = address of constant-table entry 

FINT = (= CONS (double word) -1): decimal 
integer (precision 17) 

REXP - decimal exponent 


This routine converts decimal float to 
bit string. By means of FDLB the source is 
converted to binary integer (precision - 
min(31,CEIL(P (Source) *3,32)).  FBIS is 
called to perform the conversion from 
binary fixed to bit string. 


FDLB -- QH 


Input parameters: 


PIN = address of constant-table entry 

FINT = (-CONS (double word)-1): decimal 
integer (precision 17) 

REXP - decimal exponent 


This routine converts decimal float to 
binary fixed. By means of FDLL the source 
is converted to hexadecimal float, then 
control is transferred to FLBI. 


FLBI -- QH 
This is a secondary entry point of FDLB. 


Input parameter: 
CONS - (double word) floating-point number 
This routine converts float to binary 
fixed. The fraction of the floating point 

numer is interpreted as a binary integer 
which is to be divided by 16**X(X = 
78-hexadecimal exponent). The fraction is 
shifted left by RSHI = (78-exp) *4-scale 
factor Of target. "FBII03 is called to 
process the binary fixed-point number. 


If RSHI is negative or greater than 56, 
CONS is set to 0. When RSHI is negative, 
FERR is also called. 


5 


ey 








PL/I PLM 8 


IBM Confidential 


FDIB -- QI 


Input parameters: 
PIN address of constant-table entry 
CONS (double word) decimal integer 


Un 


This routine converts decimal fixed to 
binary fixed. If the scale factor of the 
target is £0, by means of FDIL, the source 
is converted to hexadecimal float.  FLBI is 
called to perform the conversion from float 
to binary fixed. 


If the conversion is to binary integer, 
the fractional digits of the source are 
truncated, and the resulting decimal 
integer is converted to binary. 


If the resulting binary integer is 
greater than or equal to 2**31, FERR. is 
called and CONS is zeroized. Otherwise, 
FBII is called to process the binary fixed- 
point number. 


Input parameters: 


PIN = address of constant-table entry 

FINT = ( = CONS (double word) - 1); decimal 
integer (precision 17) 

REXP = decimal exponent 


This routine converts decimal float to 
decimal fixed. By means of FDLL, the 
source is converted to hexadecimal float. 
FLDI is called to perform the conversion 
from float to decimal fixed. 


DIFL -- QL 
Performs the simulation of a floating-point 
division. 


Input parameters: 
R1 address of dividend 
R2 address of divisor 


II MW 


Output parameters: 
CONS result of division 
R1 unchanged 


Note: 1. Dividend and divisor are assumed 
to be positive, normalized, long 
floating-point numbers. 


2. The divisor is not 0. 


3. An exponent underflow cannot 
occur. 


This routine simulates floating-point 
division. The exponent of the result is 
obtained by subtracting the exponent of the 
divisor from that of the dividend and 
adding the difference to 64. To get the 
result fraction, the fractions of dividend 
and divisor are interpreted as two binary 
integers, which are divided by means of the 


Euclidean algorithm, i.e., the subtraction 
method. Before this is done, the integer 
belonging to the divisor is multiplied by 
16, and the exponent is increased by 1 if 
the dividend fraction is greater than the 
divisor fraction. If the dividend fraction 
is 0, the result is a true 0. 


MUFL -- QL 


Performs the simulation of a floating-point 
multiplication 


Input parameters: 
R1 address of multiplicand 
R2 address of multiplier 


Output parameters: 


CONS = result of multiplication 
R1 = unchanged 
Note: 1. Both operands are assumed to be 


positive, normalized, long 
floating-point numbers. 


2. An exponent-overflow or underflow 
cannot occur. 


The sum of the exponents of the two 
operands -64 form the exponent of the 
intermediate result. To get the fraction 
of the intermediate result, the fractions 
of both operands are interpreted as two 
binary integers (precision 56) that are to 
be multiplied. To do this, both integers 
are split into two parts (precision of A2 
and B2 = 31; precision of A1 and B1 = 25): 


A*B= (A1*2**31+A2) * (Bl*2**31+B2) 
= AÍ*B1*2**62tA1*B2*2**3] 
+ A2*B1*2**31 


The result (precision 112) is derived 
from shifting the bits and adding the 4 
results obtained in the 4 multiplications 
(A2 * B2, A2 * B1, Al * B2, and Al * BI), 
as shown in Figure 1. 


The result has a maximum of 56 digits 
and is truncated on the right. 


To normalize the intermediate result, 
the fraction is shifted left as many hexa- 
decimal digit positions as necessary, and 
the exponent is reduced accordingly. 


If one of the two operands is 0, the 
result is a true 0. 


MUDI -- QK 


This routine performs the floating-point 
multiplication and division. If no 
floating-point feature is available, the 
Simulation routines MUFL or DIFL are 
called, respectively. 
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112 87 62 56 31 1 
| | | | | | 
Esad di A EOT Lt o J 
qme ee ———X ma eee — m a —— a cee ee ee ma ue ame —& omme amme coe oe EWIE! | 
| A2 * B2 (62 digits) | 
bocie W oka a A 4 
+ 
Da 1 
| Az * B4, (56 digits) | 
o ts J 
+ 
a a 
l A, * Bo (56 digits) | 
NORSE A AEE EEEE J 
+ 
ARA AS 
| Ay * B4, (50 digits) | 
Est a a 
A O ne A EE E LZ i 
| A * B (56 digits) | (truncated) | 
A A A A J 


Figure 1. 
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Sample Floating-point Multi- 
plication 


NS 
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J 
SE 
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PHASE PL/ID75 (GENERATION OF I/O MACROS I) --_QP 


This phase processes the first group of I/O 
Statements, GET, PUT, and FORMAT state- 
ments. GET and PUT statements are tran- 
Slated into several macros, each of which 
will result in library calls and corres- 
ponding parameters. Both macros and param- 
eters are generated in accordance with the 
elements and options of the statement proc- 
essed. Also, macros and parameters that 
effect the insertion of values into the 
calling sequence at object time are pro- 
duced. For FORMAT statements, only param- 
eters (format strings) are generated, one 
for each label of the FORMAT statement. 

All other parts of the text, even if embed- 
ded in the statements processed, are 
Skipped and remain unchanged. Error and/or 
warning indications are generated on varia- 
ble counter overflow, incorrect data, or 
incorrect format item. 


— — — —ÓMÀ —Ó— r 


The input for this phase is obtained from 
TXTIN. The input text consists of: 


1. Program text that is already translated 
into the macro language. 


2. I/O statements other than GET, PUT, and 
FORMAT as delivered by the compiler 
phases C50 = C65; 


3. GET, PUT, and FORMAT statements as 
delivered by the compiler phases C50 - 
C65. 


U. End-of-program key. 


The output for items 1, 2, and 4 above 
appears in unchanged form in the output 
text. The output for statements of item 3 
are transformed as described above. 


Communication with Other Phases 
Characterizations of statements, options, 
data list elements, end-of-statements 
belonging to I/O statements, and file par- 
ameters are obtained from phases C50 - C65. 
These are necessary for the sequential 
processing of this phase. The presence of 
errors is indicated in the communication 
region for use by the diagnostic phase. 
For each library routine occurring, a bit 
is set in the library bitstring in the 
communication region for use by phase D80. 


 ——— — NA — A s M a Z A qp ener — — MÀ À — ——— — —MÀ RÀ 


Ihe input text string is scanned by the 
Search routine. All elements belonging to 


the groups described under items 1 and 2 of 
the section Phase Input and Output are 
written out unchanged into the output text. 
When an element of the group described 
under item 3 of the section Phase Input and 
Output is found, the search routine branch- 
es to the appropriate processing routine. 
After a GET, PUT, or FORMAT statement has 
been processed, control is transferred back 
to the search routine. After the end-of- 
program key has been found, the 
corresponding library bits of the communi- 
cation region are set. The end-of-program 
key is edited and phase D80 is called. 


SEARCH -- QR 


After the error indication is cleared and 
the buffers (using the input routine) are 
filled, elements of the input string are 
tested successively. Only elements with 
EA, EB, EO, and F-keys are expected to be 
found. All elements, except the end-of- 
program keys, GET, PUT, and FORMAT 
Statement keys, are skipped with their 
appropriate length and are written using 
the skip routine. When a not-skippable key 
is found, an appropriate exit out of this 
routine is performed. | 


STR (Step A4). If RA (register 1) points 
to the name of a variable in the table 
Space, when this subroutine is entered, the 
name of the major structure, the pointer, 
or the base will be found if the variable 
is an element of a structure, or is con- 
trolled or defined. All possible combina- 
tions are allowed. If the variable is an 
element of a structure, also the offset and 
for variables that are controlled or 
defined, the attribute byte of the pointer 
(with special flag) or of the base is 
inserted. 


SKIP (Step A2). In this routine, the input 
pointer is updated by the number contained 
in register RG. The contents of the input 
buffers passed by the input pointer are 
written using the output routine. Before 
the end of the buffer area is reached, the 
buffers are always filled, the input poin- 
ter is repositioned accordingly (input 
routine), and the procedure is continued. 


COUNT (Step F3). This routine increases 
the variable counter by one and tests it 
for overflow. If an overflow has occurred, 
an error indication is stored in an error 
byte or a switch. 
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SETINI, SETIN2 -- QT 


This routine has two entries. When entry 1 
is used, the input pointer (Register INPO) 
is moved to the next syntactical unit 
belonging to the statement itself and all 
embedded syntactical units with the keys 
FO, F2, F3, F6, EB, and also end-of- 
Statements (key EA) are skipped if the 
latter are not flagged as belonging to the 
I/O statement processed. After each 
Skipped unit, the input buffers are filled 
again if required (input routine). Using 
entry 2, the input pointer is first moved 
three bytes ahead before performing the 
function as described above. 


GETPUT -2-0U-QUr 


When a GET or a PUT statement is found, the 
search routine branches to this routine. 
First, the flag byte (2nd byte of the 
Statement identifier) which indicates that 
the options are saved, and the statement 
attribute table are moved into the table 
Space using the move routine. Macros and 
constants are generated for calling the 
initialization library routine. These will 
be different for file or string options and 
for GET or PUT statements and EDIT or LIST 
options. If, for a file option, a file 
parameter is present which is indicated by 
the first byte of the file name, a dummy 
name is inserted and the constant is 
labeled. Thus, provisions are made for 
inserting the actual file name at object 
time by code prepared in the phases C50 - 
C65. For the string option, the string 
variable is examined and passed to the 
library routine in a similar manner as for 
data list elements (as described below). 


After the macros and constants for the 
initialization have been written, the flag 
byte is examined for the various options if 
file option has been found. When options 
Of a PUT statement are found, macros and 
constants are generated for the necessary 
library calls and eventually for object 
code to insert values at object time. The 
format list, if present, is translated into 
a format string and written as one or more 
constants using the build-format-string 
routine. The data list is processed next; 
macros and constants for library calls are 
generated corresponding to one library call 
for each data element. For this purpose, 
the characteristic of the current data 
element is saved. This indicates whether 
it is scalar or array and whether it is the 
first element of a group (special item). 


For each data element, a DED 
ment descriptor) is constructed for library 
use. If more adjacent data elements have 
the same DED, it is constructed and loaded 
only once. The construction of the DED and 
the name part of the macro belonging to a 


(data ele- 
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given data element is different for charac- 
ter string constant, declared variable, and 
generated variable elements. 


For declared variables, the name and 
characteristics of the variable are found 
in the variable table stored in the table 
Space. If it is found to be an element of 
a Structure, controlled and/or defined, the 
name part of the macro is modified accord- 
ingly using the structure subroutine. If 
the declared variable is an array, the 
macro is modified to produce a suitable 
loop. For a generated variable that is 
non-integer binary fixed, macros and con- 
Stants are also generated for the call of a 
binary fixed/binary float conversion 
library routine. 


If more format and data lists follow in 
the statement, the above processing of 
these lists is repeated as often as 
required. The scanning of the statement is 
performed by the set input pointer subrou- 
tine, which skips and edits in unchanged 
form all embedded elements not belonging to 
the statement itself. 


When a variable counter overflow, incor- 
rect data, or incorrect format items are 
found, these indications are stored and 
suitable warning and/or error codes are 
produced in the output after reaching the 
end-of-statement key. The error test is 
made for counter overflow by the count 
routine, for format items by the build 
format string routine. 


Note: Auxiliary routines for generating 
initialization macros, parameters, and move 
macros are: GENIM, GENPAR, and GENMO. 

These routines belong to GETPUT, and their 
function is described with that routine. 





BESTR. 9-0 

The elements of the format list are succes- 
Sively translated into elements of a format 
constant which is built in the input buf- 
fer. When a remote format item is reached, 
the partial format constant built until 
this point is written out and a construc- 
tion of a new constant is started because 
of the difference in constant types 
(hexadecimal versus address constants). If 
the remote format item has a label variable 
rather than a label constant, provision is 
made for inserting the actual value at 
object time in a similar manner as for file 
parameters (see description above). 


When a FORMAT statement is found, the 
Search routine branches to this routine 
which causes the format list to be tran- 
Slated into a format string using the build 
format string subroutine. This string is 


$ 
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written as a constant (once for each label 
of the statement) with the current label as 
the name. 


This routine causes the input buffers to be 
filled using the IJKAGI external routine 
depending on the current position of the 
input pointer (INPO). After control is 
transferred from the routine, at least 
three of the four input buffers are filled. 
Ihe input pointer is adjusted. 


OUTPUT, OPWSP -- RD 


Output of text is accomplished via this 
routine. When the standard entry is used, 
register RC must be loaded with the address 
and register RD with the length of the 


output area. An additional entry (OPWSP) 
serves for automatic loading of register RC 
with the address of the work space. The 
routine uses one output buffer, whose poin- 
ter (register OUPO) is adjusted in course 
of the output function. For physical out- 
put, the IJKAPO external routine is used. 


This routine is used by the input and out- 
put routines and for moving the pre- 
Statement into the table space. Moving of 
the contents of a source area into a target 
area is performed ( these areas must not 
overlap). Address and length of the source 
area are to be loaded into registers RC and 
RA, respectively; the address of the target 
area into register RB. 


Phase PL/ID75 247 


PL/I PLM 8 


IBM Confidential 


PHASE PL/ID80 (GENERATION OF I/O MACROS II) -- RF ATN 


NUS 
OPEN, CLOSE, DISPLAY, and record-oriented Phase Description -- RF 
I/O statements of the input text string are 
Selected and replaced by macros that The input text string is Scanned by the 
generate the required library calls and search routine. All elements belonging to 
parameters belonging to these calls. Both the group described under item 1 of the 
macros and parameters are generated in Section Phase Input and Output are written 
accordance to the elements and options of out unchanged into the output text. When 
the statement processed. Macros and param- an element of the group described under 
eters that effect the insertion of values item 2 of the section Phase Input and Out- 
into the calling sequence at object time put is found, control is transferred to the 
are also produced. All other parts of the Statement processing routine. 
text, even if embedded in the statements 
processed, are skipped and remain After a Statement has been processed, 
unchanged. After having scanned the input control is transferred back to the search 
text, the library bit string in the com- routine. When an end-of-program key is 
munication region is completed, address found, control is transferred to the EOP 
constants are generated from it and edited processing routine. When control returns 
for library use. Error indication is gen- from this routine, phase E25 or E50 is 
erated when a counter overflow is detected. called. Which one of these phases is 
called depends on whether or not an error 
has been indicated in the communication 
Phase Input and Output region. 
Ihe input for this phase is obtained from SEARCH -- RF 
TXTIN. The input text consists of: 
After the buffers (using the input routine) 
1. Program text already translated into are filled, elements of the input string ZAB 
the macro language. are tested successively. Only elements NE 


2. OPEN, CLOSE, DISPLAY, and record- 
oriented I/O statements as delivered by 
the phases C50 - C65. 

3. | End-of-program key. 


The output for the program text and the 
end-of-program key (items 1 and 3 above) 
appears in unchanged form in the output 
text. The output for statements listed 
under item 2 above is transformed as 
described in the statement processing rou- 
tine. 


The text output is followed by the 
library address constants as described in 
the end-of-program processing routine. 


Communication with Other Phases 


Characterizations of statements, options, 
file attributes, end-of-statements belong- 
ing to I/O statements and file parameters 
are obtained from the phases C50 - C65. 
These are necessary for the sequential 
processing of this phase. The presence of 
an error is indicated in the communication 
region for the use of the diagnostic phase. 


Bits set by previous phases and this 
phase in the library bit string in the 
communication region are used to generate 
address constants that cause object-time 
loading of the required library routines, 
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with EA, EB, EO, and F-keys are expected to 
be found. All elements, except end-of- 
program keys of statements to be processed 
in this phase, are skipped with their 
appropriate length and are edited using the 
Skip routine. When a not-skippable key is 
found, an appropriate exit out of this 
routine is made. 


Statement Processing Routine -- RG-RK 


When a statement to be processed by this 
phase is found, the search routine branches 
to the statement processing routine. 

First, the flagbyte (2nd byte of the state- 
ment identifier) which describes the state- 
ment and the options is saved and the 
Statement attribute table is moved into the 
table space by means of the MOVE routine. 
For OPEN-CLOSE and record-oriented state- 
ments. the first part of the library par- 
ameter is built. For this purpose, an 
address constant for the file name is con- 
structed. If a file parameter rather than 
a file name is present, which is indicated 
by the first byte of the file-name symbol, 
a dummy name is inserted and the constant 
is labeled. This way, provision is made 
for inserting the actual file name at 
object time by code prepared by the phases 
C50 - C65. The first byte (flag byte) of 
the library parameter is constructed in 
accordance with the stored information of 
Statement type and options. 
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For record-oriented statements, the 
length of the record variable and various 
address constants belonging to the SET, 
FROM, INTO, KEY, and KEYFROM options are 
built into the library parameter. These 
options may appear in any order in the 
original statement, but the corresponding 
address constants and also the length of 
the record variable have a predetermined 
place in the library parameter. 


For a declared variable in the options, 
the name and characteristics of the varia- 
ble are found in the variable table stored 
in the table space. If it is found to be 
an element of a structure, controlled 
and/or defined, the address constant is 
modified accordingly using the structure 
Subroutine. If the variable is found to 
have the storage class dynamic, a load- 
variable macro is produced which serves for 
object-time insertion of the actual 
address. Finally, an initialization macro 
is generated that will produce the 
appropriate library call. The key for the 
library routine is obtained from the file 
declarations stored from the statement flag 
byte, (i.e., Second byte of the statement 
identifier). 


For an OPEN or CLOSE statement, the 
library parameter consists of a series of 
combinations of a flag byte, (i.e., charac- 
terizing the statement, the options and 
whether it is the last element of the 
Series), and adjacent-file-address con- 
Stant. Each element of the series corres- 
ponds to an options group of the statement. 
When a file parameter or a PAGESIZE option 
is found, the series is completed and a new 
Series is started. For each series, one 
Single initialization macro is generated 
(different variant for OPEN and CLOSE) 
which itself will produce the appropriate 
library call. For a PAGESIZE option, a 
Separate library parameter with a move 
macro to generate code for object-time 
insertion of the actual value, and an ini- 
tialization macro for the library call are 
produced immediately after the library call 
relating to the corresponding file option. 


The DISPLAY statement is processed in a 
Separate section of this phase. First, a 
DED (data element descriptor), load-DED- 
macro, load-transmit macro, and load-scalar 
macro for the given expression are 


generated. These are required for the 
object-time call of the appropriate library 
routine. Building of these elements is 
different for character-string constants, 
declared or generated variables in much the 
Same way as for the data-list elements of 
Stream-oriented data-transmission described 
in phase D75. If a REPLY option is pre- 
Sent, the same procedure is repeated for 
the REPLY variable with the library routine 
code changed accordingly. 


When a variable counter overflow during 
the statement processing is found, the 
count routine sets a switch which causes 
the output of an error indication with the 
end-of-statement. For each library rou- 
tine, a bit is set in the library bit 
String in the communication region for the 
use by the end-of-program processing rou- 
tine in this phase. The scanning of the 
Statement is performed by the set INPO 
subroutine which skips and writes out in 
unchanged form all embedded elements not 
belonging to the statement itself. 


EOP -- RK, RL 


When an end-of-program key is found, the 
Search routine branches to the end-of- 
program processing routine. First, the 
library bit string in the communication 
region is updated. Thereafter, it is 
Scanned bit by bit from the end to the 
beginning, and for each bit set, an address 
constant with the same name that corres- 
ponds to a library routine is generated. 
For the bits corresponding to the conver- 
sion routines (numbers 40-55), special 
address constants with a single common name 
are generated. Having done this, addition- 
al bits in the library bit string are set 
that correspond to primary entry points of 
routines whose secondary entry points are 
already incorporated. Finally, the rest of 
the output text in the output buffer is 
edited. 


Note: Descriptions of the following sub- 
routines used or called for in this phase 
can be found in phase D75: 





STR COUNT 
SKIP MOVE 
SETIN1 INPUT 
SETIN2 OUTPUT 
OPWSP 
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This phase is used only if one or more 
errors are detected in the preceding phases 
of the compiler. It collects and sorts the 
errors detected by the preceding phases, 
and prints these errors in a standard for- 
mat. Three kinds of errors are distingu- 
ished: 


1. Errors causing an interruption of the 
compilation; 


2. Errors causing the deletion of the 
execution but allowing a continuation 
of the compilation; 


3. Errors allowing a continuation of the 
compilation and the execution of the 
compiled program. 


If errors causing the termination of the 
compilation are detected, the diagnostic 
phase is the last phase of the compilation. 


Format_of the Error Codes 


Errors detected in a statement are inserted 
behind the statement. The end-of-statement 
keys, which introduce a sequence of error 
codes, are recognized in particular bit 
positions in the error-indicator byte. The 
format of the error codes behind the end- 
of-statement key is shown below. 


| No. | | | | 
AAA DARCIE st SE dicus 


Error indicator (1 byte) contains 
information on whether or not an error is 
present and information about the severity 
of the error. 


Bit 8 = 1: the sequence of errors contains 
at least one error causing the termination 
of the compilation. 


Bit 9 = 1: the sequence of errors contains 
at least one error not causing a close of 
the compilation, but causing the deletion 
of the execution. Bit 10 = 1, the sequence 
of errors contains at least one error not 
causing a close of the compilation and not 
causing the deletion of the execution of 
the compiled program. (Bit 11 to 16, free 
for information in the preceding phases). 


Statement No. The number of the statement 
as described in preceding phases. 
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PHASE PL/IE25 (ERROR DIAGNOSTIC) -- SA „~ 


| 


\ 


Ww 


ERROR. A fixed key (EB) indicating an 
error. The number of EB's is equal to the 
number of errors in a statement. 


E.NO. The number which corresponds to an 
error comment. 


Format of the Error List 
During the first diagnostic phase an error 
list is printed out. The list has the 
format shown in Figure 1. 


Logical Flow 


The algorithm of this phase is separated 
into the following parts: 


Storage allocation for the phase. 
Scan of the text string. 

Storing of error comments. 
Sorting of error comments. 

. Printing of the error list. 


MWh a 
e 


The error messages are printed by 
ascending statement-numbers. For printing 
the error list, the error comments must be 
present in storage. Since only limited 
Storage capacity is available, only a part 
of all error comments can be stored. This 
part consists of the error comments that 
are needed first in order to begin printing 
error messages in sequence of the statement 
numbers. 


Suppose the maximum number of error 
comments that can be in storage at one time 
is NX. It must then be determined which NX 
different error numbers appear first in the 
text string. In the second part of the 
phase (scan of the text string), the number 
of different errors N is counted. 


If the scan is interrupted (i.e., when 
the end of the text string is reached or 
when N is equal to NX), the comments refer- 
ring to the detected error numbers must be 
loaded into core storage. Before the need- 
ed error comments are loaded into core 
Storage, all errors comments must be stored 
on SYS001 (storing of error comments). The 
needed error comments are then stored from 
SYS001 (sorting of error comments). 


If the detected errors are printed 
(printing of error list), the interrupted 
Second part of the program (Scan of text 
String) is continued until the next NX 
different errors or the end of source text 
are detected. 
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DIAGNOSTIC MESSAGES 
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Ib statement no (1) b comment (1) 
Ib statement no (1) b comment (2) 
b 
e 
© 


: 
| 


Uu m 


Ib statement no (1) comment (3) 

e © e 

e e e © 
© © 

Ib statement no (1) b error 

Ib statement no (2) b error 


Ib statement no (2) b error 


(i) 
(1+1) 
(i +2) 


comment (1) 
comment (i+1) 
comment (i+2) 


error no 
error no 
error no 


m m y 


e e e tj ti tj e e e Li r3 tri 


Ib statement no (k) b error 
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Words written in lower case letters in the actual list are replaced by their 
actual values. 


ad 
o 


*b' stands for blanks. 


N 
° 


The letter 


W 
. 


The 'error no' consists of three decimal digits. 


E 
. 


The 'statement no' consits of four decimal digits. 


Uu 
e 


The *error comment* may consist of a maximum of 61 characters. 


Uu 
tj 


| 
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| 
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| 
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| 
I 
I 
| 
| 
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| 
| 
| 
| 
| 
! 
| 
| 
| 
| 
| 
| 
i 
| 
| 
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| 
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| 
| 
| 
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! 
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| 
! 
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| 
| 
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| 
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! 
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| 
| 
| 
| 
| 
| 
| 


Figure 1. Format of PL/I Diagnostic Messages 


DESCRIPTION OF ROUTINES space for LENO). Which storage is used for 
the comments must be determined in phase 
E25 itself, because the table storage is of 


variable length. 


Symbols Used in Flow Charts 


TSP : Length of table space 
LLENO: Length of list LENO Text Scan and Error Counting -- SC, SD 
LCOM : Length of comment 
PHSP : Free space in this phase Input for phase E25 may consist of: 
NO : Number of error comments that can be 
Stored at one time 1. End-of-statement keys with or without 
NX : Maximum number of error comments errors. 
that can be stored at one time 
ERRS : Bit in the communication region 2. Macro instructions. 
SINO : Statement number 
ENO : Error number 3. Statement identifiers with prefixes. 
N : Counted number of errors 
AO : Number of error comments in one 4. Declared and generated variables. 
phase overlay 
CO : Start address of comment storage 5. Constants. 
area 
BO : Start address buffer 1 The error codes, identified by their 
B1 : Start address buffer 2 key, are searched for in the text string. 
B2 : End address buffer 2 The error numbers of all detected errors 


Storage Allocation --SB 


The number of different error comments that 


can be in storage at one time depends on 


the available storage. The comments may be 
stored in the phase storage (the available 
Storage is then fixed and equal to 4K 
reduced by the program space), or they may 
be stored in the table storage (the avail- 
bale storage will then be the table storage 
reduced by the table storage reduced by 


together with the statement numbers are 
entered in a list LSTNO. The errors are 
ordered by sequence of the statement num- 
bers which is equal to the sequence of 
their occurrence. Each detected error is 
noted again in a second table LENO which is 
arranged by sequence of the error numbers; 
each element of the table refers to one 
error number. 


The number of different errors N is 


counted. The Scan of the text string is 
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interrupted if N is equal to NX. The scan 
is terminated if the end-of-source-text key 
is detected. 


Storing of Error Comments -- SE 


Before phase G25 is called, the error com- 
ments are stored on SYSRES as a part of the 
phase (or phase overlay). The comments are 
called one at a time and in consecutive 
order. 


In order to get the possibility of mul- 
tiple use of the same error comment, the 
comments must be stored in another place. 
If only a small number of different errors 
is detected, the corresponding comments are 
Stored in the table storage. If the number 
of different errors is greater than NX, all 
comments are stored on SYS001. This part 
of the phase is passed only once. 


Sorting of Error Comments -- SF 


This part is used only if the error com- 
ments are stored on SYS001 and not in the 
table storage. (Storing of comments in the 
table storage is compounded with sorting.) 
The required error comments (referring to 
the detected error numbers) are selected 
from SYS001 and stored in the phase stor- 
age. The detected error numbers are 
entered in the list LENO. After moving an 
error comment, the element of the list LENO 
is replaced by the new address of the com- 
ment. 


Printinq of the Error List -- SH 


Ema eaae SNR Cans me tgp aae 


The error messages must be printed in the 
Same sequence as the list LSTNO. The error 


252 


number and the statement number given in 
this list must be converted from binary to 
decimal representation and inserted in the 
error message. The address of the corres- 
ponding error comment is given in the list 
LENO by the element referring to the error 
number. The error comment must also be 
inserted in the message. 


After printing one message, the next 
element of the list LSTNO is taken. The 
interrupted scanning of the text string is 
continued if the messages for all detected 
errors have been printed and the end-of- 
Source-text key has not been detected. 


End of Text Strinq -- SG 


This part is called when the end-of-source- 
text key is detected. Control is passed to 
part 4 (sorting of error comments) unless 
the end of the source text occurs before NX 
errors are counted in the text string. If 
there are less than NX errors, this routine 
Sorts the error comments from the phase 
overlays of phase E25 and stores them 
simultaneously in the table space. 


The routine HERH is used for skipping with- 
in the input text with respect to the buf- 
fer boundaries. The buffers are filled 
with new text if a buffer boundary is 
passed. 


LOAD 


This is a supervisor macro used in this 
phase. 
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GENERAL DESCRIPTION OF THE GENERATOR PHASES (PL/IE50, PL/IE60, PL/IE61 


The objective of the generator phases is 2. Declared variables 
the generation of object code. Before the 
generator phase, the algorithm to be rep- (1) (2) 
resented by this code is given by macros. Py oooooo-- PO ----- 1 
The definition of the different macros is |F^ | lc | | 
such that either each macro is associated a o LN l---- J 
with a fixed set of code or the selection 
of the needed code is possible only by F4 = key for attribute table 
means of the operands of the macro. lc = length of attribute table 
The input text for the generator phases 3. Constants 
contains macros and other information which 
is not used in the generator phases. (1) (2) 
| (See ee Meare aay sca: SON ee 7 
The code to be inserted for a macro is [F3 | le | 
partially prepared in the model-instruction Elio 1000000 ----- J 
dictionary. Because the macros consist 
only of an identification and operands, F3 = key for constant table 
additional information about the macros le = length of constant table 
(not in the macro instruction) is given in 
the model-instruction dictionary. The 4. Generated variables 
information in the model-instruction dic- 
tionary is either a subroutine in machine (1) (2) 
language or a set of predefined instruc- p ia 1 
tions for frequent operations. The predef- [FO | lf 
ined instructions are internally defined; Ladino nn mn J 


they are decoded by the generator phases. 
FO = key for attribute table 


The generated code consists of machine 1f length of attribute table 
instructions and pseudo instructions for 
communication to the assembler. Except for 5.  End-of-statement 
the format of the operands, the machine 
instructions referred to are the IBM ( 1) (2) (1) (1) 
System/360 Assembler Language machine | | | p---4---------4--- q----r----- ---------— 1 
instructions. [EA E bytes [za | O | EB O EB 0] 


NSE A WER ded coo Szu, otc ces 
Because it is not possible to store the 


complete model-instruction dictionary in EA = key for end-of-statement 
the phase, multiple passes over the text EB = key for error 
string are necessary to generate the code. O = error number 
For each pass another part of the model- 
instruction dictionary is stored, and the 6. Assembler code 
macros referring to this part can be 
processed. (1) (2) 
sa Se, e 1 
Format of the Input Text | F6 | 1I | | 
PAE kady ee E J 
The input text string consists of the fol- 
lowing elements (the number of bytes of a Fo = key for assembler code = X'F6' 
part of the element is given in parentheses 11 = length of code 
over the boxes; the number of bits is given 
under the boxeS) : 7. END of program 
1. Statement identifiers with prefixes 1 byte, hexadecimal FF 
(1) 8. | Macros 
asia uix EMI LC DÉC CULO 1 
[EO | | (D (2 0) G) (2 (1) 
a ee LL iie J 
; CS ds Oo a Oe zdziwić 
£O = statement-identifier key. The | F2 m I C Joe (1) Ia 18 (1) |---> 
statement identifier is 6 bytes long. 1111110 d o 
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(3) (2) (1) selection are unique for most of the 
np T====7==-=-3 macros, these conditions and operations may 
| OP (n) IM (n) | B (n) | be represented by special instructions. 

O IES PE RO 





These special instructions are interpreted 


by the generator phases. 


F2 = macro key X'F2' 
im — length of the macro 
C — identification of the macro 
OP(1) = operand (1) 
M(1) = modifier for operand (1) 
B (1) — byte 5 from SYMTAB entry 
referring to operand (1) 
The maximum length of the macros is 200 Ts 
bytes. The format of the operands may 


differ from the format shown above. 


MODEL-INSTRUCTION DICTIONARY 


The model-instruction dictionary contains 
the prepared code and information about the 
macro which is not given in the macro 
instruction. Each macro refers to the 
particular part of the model-instruction 
dictionary (referred to as the macro 
definitions). A macro definition, or parts 
of macro definitions, may be common to more 
than one macro. 


Macro Definition 


The code generated from a macro instruction 2. 
depends on the identification (operation 
code) and the parameters (operands) of the 
macro. For a macro definition, the gener- 
ated code depends only on the information 
contained in operands of the macro instruc- 
tion. If a macro definition is common to 
more than one macro instruction, the iden- 
tification is treated as operand in order 
to determine certain instructions which 
must be altered to generate the code for a 
particular macro. 


A macro definiton contains a macro defi- 
nition header and one or more model- 
instruction sets. 


The relation between the operands and 
the code generated is given in the first 
part of the macro, the macro definition cr 
header. The macro definition header . 
indicates the model-instruction set to be 
used. A model-instruction set consists of 
code instructions and information which 
gives the location where the several oper- 
ands of the macro must be inserted into the 
code. 


Macro Definition Header 


The macro definition header contains the 
information required for selecting the 
needed model-instruction sets. The infor- 
mation may be in machine language or may 
consist of special instuctions. Since many 
conditions and operations used for the 
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Conditions 


The conditions represented by special 
instructions are: 


Compare 

See eem 
IC IK | P1] P2 | 
E O AA aa 
0 4 8 16 24 


K = Key for compare = 0 

C = Condition code 

P1,P2 = Indicate locations in the 
operand list of the macro. 

Byte (P1) of the operand list of the 


macro is logically compared with byte 
(P2). If the result is in accordance 
with the condition code C, the condi- 
tion is accepted. 


Compare Immediate 


gies OR "EROS Ke oP 
IC K| I| PI 
CRE A PEE 


0 4 8 16 24 


K = Key for compare immediate = 1 

C = Condition code 

P = Indicates a location in the 
operand-list of the macro 

I = Immediate data 

Byte (P) of the operand list of the 


macro is logically compared with I. If 
the result is in accordance with the 
condition code C, the condition is 
accepted. 


Test Under Mask 
ZTT T -T 1 
IC K| I | P| 
CAE GO AER 
0 4 8 16 24 


K = Key for test under mask = 3 

C = Condition code 

P = Indicates a location in the operand 
list of the macro 

I = Immediate data. 

Byte (P) of the operand list is tested 


under the mask I. If the result is in 
accordance with the condition code C, 
the condition is accepted. 
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The Result Word 


The work done on a Sequence of conditions 
is given in a result word W as follows: 


1. The initial value for the result word 
is zero (W = QO). 


2. The work done on a condition modifies 
the result word. If the condition is 
Satisfied, the result word is multi- 
plied by two and then increased by one. 


W=2* Wt 1 


If the condition is not satisfied, the 
result word is multiplied by two. 


W= 2 * W 


Operations 


There are additional special instructions 
to indicate operations referring to the 
operand list of the macro or macro defini- 
tion header: 


dis Macro subroutine 


D 
A 
H My 


Key 01 
Address 


The treatment of the macro definition 
header is continued in a subroutine 
given by the address A. 


2. Set pseudo operand 


[o mer quere EOG 

| K |I |P | 

AR O CEEE 

0 8 16 24 
Key 02 


Immediate data 
Indicates a location in the operand 
list of the macro. 


MH RK 
n Wu M 


The immediate data I is stored as a 
pseudo operand in byte (P) of the oper- 
and list. 


3. End-of-Condition Sequence 


pou | "== qe DoS R qose 

| K | S IA (1) 1A (2) [A (n) | 

AS d ences: EDA Joco „duż Duma 

0 8 16 24 

K = Key 03 

S = Address in macro definition 
header 

A(1) = Address of model-instruction 
set (1). 


The work done on the condition sequence 
is interrupted. The treatment of the 
macro is continued in a model- 
instruction set. 


The subscript of the model-instruction 
set is given by the determined result 
word. The address of the model- 
instruction set has the same subscript. 
If A(1) equals 0, no model-instruction 
set is taken. After inserting the 
determined model-instruction set, the 
treatment of the macro is continued in 
the macro definition header at the 
address S. S = 0 indicates the end of 
the macro definition header. 


The number of addresses A in the 
instruction must be equal to the maxi- 
mum value possible for the result word. 


Take saved result word (1 byte: X'04') 


The result word W is taken from the 
value saved at an earlier time. 


End-of-Condition sequence. 
Save result word (1 byte: X'05') 


The work done on the condition sequence 
is interrupted. The result word deter- 
mined in the condition sequence is 
saved. 


Conditional Branch 


4e ao as ae — ew W om iem Asem omen em — — — ow 


. 
06 | X | ^ | S | 
m — —— ——, —— 
2 


8 16 24 3 


O quem 


WX = Value to be compared with the 
result word 


A = Address of a model-instruction 
set 

S = Address in macro definition 
header. 

a) W = WX: 


The work done on the condition 
Sequence is interrupted. The treat- 
ment of the macro is continued in 
the model-instruction set at the 
address A. If A equals 0, no model- 
instruction set is taken. After 
inserting the model-instruction set, 
the treatment of the macro is con- 
tinued in the macro definition head- 
er at the address S. S = 0 indi- 
cates the end of the macro defiti- 
tion header. 


b W # WX: 


No action is performed. 
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7. Unconditional Branch 


POZA 77058 
[kK [IS | 
AA TO 
0 8 16 

Key 07 


Address in macro definition header. 
The treatment of the macro is con- 
tinued in the macro definition 
header at address S. 


Model-Instruction Sets 


Model-instruction sets contain prepared 
code together with information on where to 
insert the several operands or pseudo oper- 
ands of the macro. The information on the 
operands has the format: 


nom 


| P | M | LM | 
PE A PA 
0 8 16 24 


P = Indicates a location in the operand 
list of the macro. 

LM = Indicates the location in the model- 
instruction set where the operand has 
to be inserted. 

M = Gives a modification or length 
specification of the operand 


M=K, K<5: the operand has a length of K 
bytes. 

the operand has a length of two 
bytes and the absolute value of 
the operand is taken. 

the operand has a length of one 
byte. The operand is decreased 
by 1 before it is inserted. 

the operand has a length of three 
bytes and must be inserted with 
indirect addressing. 

the operand has a length of five 
bytes and must be inserted with 
indirect addressing. 


Some values of P have the following special 
meaning: 


Ais (1) (1) (1) 


pp pe 
10 |I | LM | 
MSN E EUNT 


The immediate data I is inserted at 
location LM. 


2. (0) (1) 


| 1 [DIM | 
tested 


The location counter of the model- 
instruction set is increased by DIM. 
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r T T 
| 298 |OP.C.| P1 | P2 | 
| RAE LA koca Lati J 


The RR instruction given by the 
operation code 'OP.C.' has to be 
formed. The registers are given in P1 
and P2. 


If 208 < Pi < 224 (Pi=P1 and/or P2), 
the immediate data Pi-208 is inserted. 


(1) (1) (1) (1) (1) 
DSC 0 qM n ce i NER O A 7 1 
| 225 |OP.C.| P1 | P2 | P3 | 
oec | TEES Loira A AAA : A J 


The RX, RS, or SI instruction given by 
the operation code 'OP.C.' has to be 
formed. The operands are given in P1, 
P2, and P3. A test is performed on P3 
to determine whether or not it must be 
indirectly addressed. 


If 208 <Pi <224 (Pi =P1 and/or P2), the 
immediate data Pi-208 is inserted. 


(1) (1) (1) (1) (1) (1) 
penas > as” To To pem pe 1 
| 226 |OP.C | P1 | P2 | P3 | PU | 
A oaza buses IWER i AZER Du J 


The SS instruction given by the opera- 
tion code 'OP.C.' has to be construct- 
ed. The operands are given in P1, P2, 
P3, and PH. 


The operands referring to P3 and P! are 
tested to determine whether or not they 
must be indirectly addressed. 


If 208 <Pi <224 (Pi = P1 or P2), the 
immediate data Pi-208 is inserted. 


Behind the information with P 2206, the 
code is given. The code has the for- 


mat: 

(1) (2) 
pem quero cer O ueque 
| L | 11 | IN (1) | | IN (n) | 
pollo. NA quud uiu OE J 
L = Key for assembler code F6 
11 = length of the code 
IN (1) = Instruction (1) 


The format of the instruction is des- 
cribed on the following pages. 


Not only the operands of the instruc- 
tions but all parts of the model- 
instruction set may be changed by 
inserting operands or pseudo operands 
of the macro. 








> 


AER 


ain 
Gd 
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FORMAT OF THE INSTRUCTIONS 


The code (the output of the generator 


phases) 


consists of machine instructions 


and pseudo instructions for communication 
with the Assembler. 


Machine Instructions 


Except for the format of the operands, 
machine instructions refer to the IBM 
System/360 Assembler Language machine 
instructions. 


There are five basic machine formats: 


1. 


RR format 


(1) (1) (1) (1) 
188 [Op.c]R1 |R2 | 
Cie ae AE EE 


The first byte contains the key for the 
machine instructions, the second byte 
contains the operation code, and the 
following two bytes contain the oper- 
ands. 


RX format 
0) (00 0.0.3 (2 
Ra re ee oo ee 
[88 |Op.C]R1 [X2 | N | M | 
¡A E A A A eee 
R1 = General register containing 


first operand 


X2 = General register referring to 
second operand 
N = Name of second operand 
M = Modifier for second operand. 
RS format 
(1) 0) 10M (3 €2) 
Ee ed: Cane puentes: ee pedra 
[88 |Op.C|RT [R3 |N |M | 
Lope gp. DRINKA: SEE: EE 


R1 and R3 are general registers 


N and M specify the second operand as 
in the RX format. 


SI format 

(1) (1) (1) (1) (3) (2) 
[rea erem qom {eos To TI 
[88 |Op.C.|X'00'|[12 | N | M | 
A RARE Luney E E EMT ERA 


12 is an immediate operand; N and M 
specify the second operand as in the RX 
format. 








1. 


SS format 


(1) (1) (1) (0 (3) (2 (3) (2 
[88 [Op.C.|L1 |L2 |N1 |M1 |N2 |M2 | 
tas bossa. oo ter > == bi 


L, N and M give the lengths, names, and 
modifiers of the operands, respective- 
ly. The L1 field contains zeros if 
only one length is present. 


Pseudo Instructions 


CNOP 


(1) (1) (1) (1) 
[80 |co | b |w | 
¡A A AS EEEE | 


The CNOP instruction allows alignment 
of an instruction at a specific bounda- 
ry without breaking the instruction 
flow, should any bytes be skipped for 
alignment. CQ is the code for the 
instruction CNOP. 


Operand b specifies to which byte in a 
word or double-word the location coun- 
ter is to be set. Operand W specifies 
whether the byte b is in a word or a 
double-word. 


W - hexadecimal constant 
L - Length of W 


DS 


The DS instruction is used to reserve 
storage areas. L is the length of the 
Storage to be reserved. The DS model 
instruction has a meaning different 
from the IBM System/360 Assembler 
instruction DS. The model instruction 
does not align on boundaries. 
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The LABEL instruction allows the set- 
ting of a label in the program. 


BEGIN 
0) D D 0 (2) 


T T 
180 |c5 [BL. | Lb | N | 
Mi a AEE, et ds A dJ 


The BEGIN instruction marks the begin- 
ning of a procedure or block. 


Bl. * Block number 

L - Level number 

N - Name of procedure or label 
referring to a begin block. 


END (Procedure or Block) 
e e (2) 


180 1cé [not eż | 


A A AAA icd 


DC ‘length of block" 
D (0 (0) (1) 
SAT O DNO ee 

[80 |C7 BL. |L. | 

Lobo. dc 


This DC instruction is used to indicate 
that the length of the block (4 bytes) 
must be inserted into the text string. 


Bl. - Block number 
L. = Level number 
OPT 


0) (1) (2) 


EA $ ——— E Lar ua nee ae Ge W eee wa 


The OPT instruction is used in connec- 
tion with optimizable branch instruc- 
tions (see description of phase G00). 
The assembler replaces the OPT instruc- 
tion with a machine instruction. The 
LABEL given by the OPT instruction 
refers to the branch address in the 
following branch instruction. 


DC A(STATIC) 
(0 (uy (2) 
(uc SSAK ASROCK 
| 80 | c9 | not. used| 
Ell A oculo 4 


This DC instruction is used to indicate 
that the start address of the static 
storage (4 bytes) must be inserted into 
the text string. | 


11. INDIVISIBLE CODE (L) 
(1) (1) (1) (1) 
| 80 | CA | 11 | 12 | 
LA wz 


The instruction is used to indicate. 
that the following code cannot be 
divided by additional instructions. At 
object time the length of the code is. 
L2 bytes. The length of the assembler 
code is L1 bytes. 


12. USED REGISTER (R) 


A as NONI 1 

| 80 | CB | R | 

Oo PR AS: 

The instruction is used to inform the 


Assembler which registers are used for 
indirect addressing. 


R = 5 - register 5 is used in addition 
to the register used until now. 


R = 6 - register 6 is used in addition 


to the register used until now. 
R = 0 - no register is used; registers 
5 and 6 are free, 


Treatment of the Macros 


Code cannot be generated from the macros in 
one pass over the text string, due to the 
size of the model-instruction dictionary. 
Therefore, the model-instruction dictionary 
is divided into smaller parts. Each part 
of the model-instruction dictionary corres- 
ponds to one pass over the text string. 


Two phases are used for the generation 
of code from the macros. In the first 
generator phase, one pass is made over the 
text string. All further passes are made 


in the second generator phase. 


THE MACROS AND THE GENERATED CODE 


In the following, the different macros are 
described in detail. The description of 
each macro consists of the following items: 


Format of the Macro. OPT, OP2... OP (I) 
are operands of the standard format des- 
cribed above. Differing operands have 
different names. The meaning of the oper- 
ands with the use of the macros in special 
cases are not described. This section 
deals only with the meaning of the operands 
that determine the generated code. 


The Generated Code. The generated code is 
shown for all possible cases. Indirect 
addressing is not considered. This is 
described under Treatment of Indirect 


Addressing in the description of phase E60. 








/ CN 
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The code shown also includes Assembler 
instructions (e.g., 


USED REGISTER) 


des- 


cribed under Pseudo Instructions. 
cases, 
tains submacros 


PS In some 
the code generated for a macro con- 
(e.g., SHIFT), which are 


described elsewhere in this section. 


1. 


Aadition 


Format of the macro 


(t) (2) (1) (6 (6) (2) 


|F2 [0012|00 |OP1|OP2|s-q| 
Lll ds 


2. Generated code 
NS one gc ee ep te ee ee cq 
| |OP1=REGISTER|OP1=STORAGE| | 
TEPRO AENA AAA ERA IA PA | 
| OP2 | AR R1,R2 IL 4,51 | | 
[=REG. | |AR 4,R2 | | 
| | [ST 4,851 | | 
ps === ARA A + ar 1* | 
| OP2 | IL 4,51 | | 
[=STOR.|A R1,S2 |A 4,52 | | 
| | [ST 4,1 | | 
DARA pa quede pipas perd 
| OP2 [SLA R1,s-q |L 4,S1 | | 
|FREG. [AR R1,R2 |SLA 4,s-q | | 
| | JAR  4,R2 | | 
| | IST 4,51 | | 
posce jueceseseneeeqeeme ee 1** | 
| OP2 [SLA R1,s-q |L 4,51 | | 
|=STOR. [A R1,S2 |SLA 4,s-q | | 
| | [A 8,52 | | 
| | IST 4,81 | | 
|--———— {------------ ł----------- t---4 
| OP2 |SLA R2,q-s |L 4,51 | | 
|=REG. |AR R1,R2 |SLA R2,q-s| | 
| | [AR 4,R2 | | 
| | [ST 4,81 | | 
[------ }---+-------- }~---------- peer] 
|OP2 IL 4,92 |L 4,S2 | | 
[=STOR. |SLA 4,q-s [SLA 4,q-s | | 
| | AR R1,4 [A 4,51 | | 
| | | ST 4,51 | | 
|--———— o eR d £o REENE de) 
| * s-q = 0 | 
et s-q > 0 | 
[*** = s-q < 0 | 
AA EN ete ESE a N iy oe RE EN TU US ST RE J 


1. 


OP1 and OP2 
addressed. 


may be indirectly 


Fixed Binary Subtraction 


Format of the macro 


(1) (22 (1 (6 (6) (2) 


[F2 [0012]01 |OP1|0P2]s-q| 


Lnundolcocl2c-i-eclil--ie-- 


Generated code 


[ore Vo ee ee o" 
| |OP1- =REGISTER |OP1= STORAGE | | 
H------ Yo }----------- +---4 
| OP2 | IL 4,S1 | | 
| REG. |SR R1,R2 |SR U,R2 | | 
| | IST 4,81 | | 
[ cre IR Gane ane Seam Sua TT 
| OP2 | | L 4,51 | | 
| STOR.|S R1,S2 |S 4,52 | | 
| | IST 4,51 | | 
|------ }----------~-- }----------- +---4 
|OP2 [SLA R1,s-q |L 4,51 | | 
| REG. |SR R1,R2 |SLA 4,s-q | | 
| | [SR 4,R2 | | 
| | [ST 4,81 | | 
}------ }------------ }----------- i** | 
| OP2 [SLA R1,s-q |L 4,51 | | 
| =STOR. | R1,S2 |SLA 4,s-q | | 
| | IS ",92 | | 
| | [ST 4,51 | | 
[------ }------------}----------- +~--4 
| OP2 [SLA R2,q-s |L 4,S1 | | 
|=REG. |SR  R1,R2 |SLA R2,q-s | | 
| | [SR 4,R2 | | 
| | IST 4,51 | | 
}------ }------------ ł----------- pee] 
| OP2 |L 4,S2 |L 4,52 | | 
{=STOR.|SLA 4,q-s |SLA 4,q-s | | 
| [AR R1,4 [S 4,S1 | | 
| | [LCR 4,4 | | 
| | IST 4,51 | | 
L €: LA a > AAA 1---—] 
|* -q = 0 | 
KA -q > 0 | 
| *** =< 0 | 
boa GRP eee ee eee ee A LCS J 
OP1 and OP2 may be indirectly 


addressed. 


Fixed Binary Multiplication with Overflow 


Check 

1. Format of the macro 
(1) (2) (1) (6) (9) 
[F2 ¡0010/02 [OP1|OP2| 
Lo AA A [t 4.4 


2. Generated code 


O ueque merde 1 
| |OP1=REGISTER |oP1= =STORAGE | 
ļ----- Yon ÓN 1 
l | LR 5,R2 |L Sys | | 
|OP2= |USED REGISTER (0) | USED REGISTER (0) | 
| REG. [MR 4,R1 | MR 4,R2 | 
| | SLDA 4,32 | SLDA 4,32 | 
| |USED REGISTER (0) |USED REGISTER (0) | 
| | LR R1,4 | ST 4,S1 | 
patma E eS eae ee See ] 
| |L 5,92 L poe | 
|OP2= {USED REGISTER (0) |USED REGISTER (0) | 
| STOR. | MR 4,R1 |M 4,51 | 
| |SLDA 4,32 [SLDA 4,32 | 
| [USED REGISTER (0) | USED REGISTER (0) | 
| | LR R1,4 | ST 4,51 | 
pco Rl cocer cd M e Esau el t hid J 
OP1 and OP2 may be indirectly addressed. 
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Fixed Binary Division 


l. Format of the macro 


(1) (2) 


(1) (6) (6) (2) 


--— — — ame a aw — i eum» ewm | -—— Tm w | 


[F2 [0012/03 |OP1|OP2|P+1| 
¡A E PA TE A OEE 


2. Generated code 


és mo au uam e oo TA A A A A A ee ee qua A ow ot u Amm ante mee Qua ame ane eem qme Geb eme que A A oe Z wm 


| |0P1 = REGISTER |0P1 = STORAGE | 
[----- po kaman peas Haas 1 
| | SR 5,5 SR 3,5 | 
| | USED REGISTER (5) | USED REGISTER (5) | 
|OP2= [LR 4,R1 |L 4,S1 | 
| REG. |SRDA 4, P+1 [SRDA 4,P+1 | 
| [USED REGISTER (0) [USED REGISTER (0) | 
| | DR 4, R2 | DR 4,R2 | 
| | USED REGISTER (0) |USED REGISTER (0) | 
| | LR R1,5 [ST 5,51 
nn nnn fin nn nnn nnn ne nnn { 
| | SR 350 |SR 34.5 | 
| USED REGISTER (5) |USED REGISTER (5) | 
|OP2= |LR 4,R1 IL 4,S1 | 
| STOR. | SRDA 4, P+ |SRDA L,P+1 | 
| | USED REGISTER (0) |USED REGISTER (0) | 
| | D 4, S2 JD 4 ,S2 
| | USED REGISTER (0) |USED REGISTER (0) | 
| | LR R1,5 [ST 5,51 | 
WYRAZEM T Ic cec E ZE EDO SE 0 J 


OP1 and OP2 may be indirectly 


FIXED BINARY NEGATION 


1. Format of the macro 


oe e me. — o mom 


Ir2 [000R|04 [op 1] 
sis Sur AA c Los 


2. Generated code 


addressed. 


[OP1 = REGISTER |OP1 = STORAGE | 
|-GORoSR===RO"< pan RE 1 

|L 4,S1 | 
|LCR R1, R1 [LCR 4,4 | 
| [ST 4,51 | 


OP1 may be indirectly addressed. 


Fixed Binary Assignment with Overflow Check 


1. Format of the macro 


(1) (2 (1 (6 (6) (2) 


(2) (2) 


ROR SPO GARE cx DOGG GÓRE So 


|F2 |0016[|05 JOP1|OP2|LABEL|X |Y | 
SERM itae ce KON Pepe Mee, RT 


2. Generated code 


a Y20, Y 2 X 
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E WAGI ŻE Mrd: OBAWA DL p UCM NN 1 
| | OP1=REGISTER | OP 1= =STORAGE | 
== pS st 1 
|OP2= |LR R1,R2 |SLA R2,Y | 
[REG [SLA R1,Y [SRA R2,X 

| [SRA R1,X |ST  R2,S1 | 
p US: vU CE TT > A 4 
|OP2= |L R1,S2 |L 5,52 | 
[STOR |SLA R1,Y [USED REGISTER (0) | 
| [SRA R1,X |SLA 5,Y | 
| | [SRA 5,X | 
| | [ST  Á 5,81 | 
Ls LS e eee PIRE dÉ T —————— —— PÁÓá— J 


All shift instructions 


are deleted if 


the number to be shifted is O. 


OP1 and OP2 may be indi 
addressed. 


b. Y20, Y«X 


eee R ETE z 
| [OP1=REGISTER | 
E t 
| | LR 4 ,R2 | 
| | LPR R1,4 | 
|OP2= |SLA R1,Y | 
| REG. |SRA R1,X | 
| | LTR 4,4 | 
| |BC 10, LABEL | 
| | LCR R1,R1 | 
| |LABEL: | 
E + 
| |L 4,82 | 
| | LPR R1,4 | 
|OP2= |SLA R1,Y | 
|STOR. | SRA R1, | 
| | LTR 4,4 | 
| | BC 10, LABEL | 
| | LCR R1,R1 | 
| | LABEL: [ 
| | | 
Lwow Li Z AŚ as E ssa 
Y«0 

POCZET TRN TUUS TS T 
| [OP 1=REGISTER | 
H-----ł------------—--- + 
| | LR 4,R2 | 
| LPR R1,4 | 
|OP2= |SRA R1,X-Y | 
|=REG. | LTR 4,4 | 
| | BC 10, LABEL | 
| | LCR R1,R1 | 
| | LABEL: { 
E + 
| |L 4,52 | 
| | LPR R1,4 | 
|OP2= |SRA R1,X-Y | 
| STOR. | LTR 4,4 | 
| | BC 10, LABEL | 
| {LCR R1,R1 | 
| | LABEL: | 
| | | 
Lecce d nre re cmi eae RACZ A L 





rectly 


OP1=STORAGE ű | 
wież EE EEA OON S J 
LPR 4,R2 | 
SLA 4,Y | 
SRA 4, X | 
LTR  R2,R2 | 
BC 10,LABEL | 
LCR 4,4 | 
LABEL: | 
ST 4,51 | 
n ii J 
L 4,52 | 
LPR 5,4 | 
SIA 5,Y | 
SRA 5,X | 
LTR 4,4 | 
BC 10, LABEL | 
LCR Doo | 
LABEL: | 
ST 5,51 | 
Gc dn cf 4 
OP1=STORAGE | 
PA ACE | 
LPR 4,R2 | 
SRA 4,X-Y | 
LTR  R2,R2 | 
BC 10, LABEL] 
LCR 4,4 | 
LABEL: | 
ST 4,S1 | 
luc ue = r 
L 4,32 | 
LPR 5,4 | 
SRA  5,X-Y | 
LTR 4,4 | 
BC  ]10,LABEL| 
LCR 5,9 | 
LABEL: | 
ST 5,51 | 
————— RR NS 1 
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1. Format of the macro 


(1) (2) (1 (6) (6 (2) (2) 
|F2 |0014[06 |OP1|OP2|LABEL|X | 
Lb.cudlexzeeElcl.cla2xceede m 


2. Generated code 

a X «0 

O o ci ci cias uri 1 
| |oP1= REGISTER | OP 1=STORAGE | 
}-~----+--------------}------------- 1 
|OP2= |LR R1,R2 {SLA R2,-X | 
REG. |SLA R1,-X | ST R2,S1 | 
H-----t-------------- }----------~-- { 

L R1,S2 IL 5,52 | 
|OP2= JSLA R1,-X [SLA 5,-X | 
|STOR. | | ST 5.91 | 
bonas Li die La J 
b. X = 0 
(SS PASS A ee decies 1 
| | OP1=REGISTER | OP 1=STORAGE | 
[-----4-------------- }------------- 
|OP2= | LR R1,R2 | ST R2,S1 
[REG. | | | 

----- q === ++ Se fee eee 
|OP2= |L R1,S2 | L 5,92 | 

| STOR. | | ST (51 | 
Conos | DIETO UN Da aves J 
Cy X» 0 

ESA qoem em cmm 
| |oP1 =REGISTER | OP1=STORAGE 
[----- ł--------------- ł--------------- 
| | LR 4,R2 | LPR 4,R2 

| | LPR R1,4 | SRA 4,X 
|OP2= |SRA R1,X | LTR R2,R2 

| REG. |LTR 4,4 | BC 10,LABEL 
| | BC 10,LABEL| LCR 4,4 

| | LCR R1,R1 | LABEL: 

| | LABEL: | ST 4,S1 
-----4--------------- }---------~----- 
| |L 4,392 | L 4,32 

| | LPR R1,4 | LPR 5,4 
|OP2= | SRA R1,X | SRA 5,X 
{STOR {LTR 4,4 | LTR 4,8 

| | BC 10,LABEL| BC 10, LABEL 
| | LCR R1,R1 | LCR 5,5 

| | LABEL: | LABEL 

| | | ST 5,91 
Lori aan A A AT Du WC E ER J 
OP1 and OP2 may be indirectly 
addressed. 


Fixed Binary Comparison 


1. Format of the macro 





(1) (2) (1) (6 (6) (2) 
---p----Qq---—T---—4---.--- 
[F2 [0012/08 [OP1|JOP2|s-ql 
bcc deed. 
2. Generated code 
[^-^ | guter ee Cae ee Y 257 
| [OP 1=REGISTER | OP 1=STORAGE | | 
|--——— }------------- }------------ E----4 
|[OP2 | | L 4,51 | | 
[REG. |CR R1,R2 | CR 4,R2 | | 
----- }-------------}------------4 * | 
[OP2 | | L 4,S1 | | 
[STOR |C R1,S2 | C 4,S2 | | 
ļ----- po }------------ E----1 
| | | L 4,81 | | 
|[OP2 |SLA R1,s- | SLA 4,s-q | | 
[REG. |CR  R1,R2 | CR 4,R2 | | 
----- }-------------}------------4 ** | 
[OP2 | | L 4,81 | | 
|STOR. |SLA R1,s-q | SLA 4,s-q | | 
| pc R1,S2 | C 4,S2 | | 
O }------~-----+----4 
|OP2 | | L 4,S1 | | 
[REG. [SLA R2,q- | LSA R2,q-s| | 
| CR R1,R2 | CR 4,R2 | | 
EPE DOR AI M R-L-----------4 ***| 
|OP2 |L 4 ,S2 | L 4,52 | | 
ISTOR |SLA 4,q-s | SLA 4,q-s | | 
| |CR R1,4 | L 5,91 | | 
| | | CR 4,5 | | 
I----- Va SERM OPEM dcl equ se ud dei 
| * s-q = 0 | 
|**  s-q>0 | 
|*** s-q < 0 | 
En II E RENEE OE NOON NS J 
Fixed Binary Exponentiation 
1. Format of the macro 
(1) (2) (1) (6) (6) (6) 
ROAR A RA ET Ca BEAR 1 
| F2 10016] 07 1x |TARGET| N | 
AS APA ae oh IA ze 
2. Generated code 
LA 1,X 
LA 3,N 
LA 4, TARGET 
L 15, N* 95' 
BALR 14,15 
X and TARGET may be indirectly 
addressed. 
Fixed Binary Multiplication without 
Overflow Check 
1. Format of the macro 
(1) (2) (1) (6) (6) 
{F2 [0010[09 [OP1]|OP2] 
melio b ZKZ 
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2. Generated code 


| Kozy wi : MEC R E: BEER EEE OTE 
| | OP1-REGISTER |OP1=STORAGE 
}-----}------------- }----------------- { 
| | [L 5,91 | 
[OP2= | [USED REGISTER (0) | 
[REG. [MR  R1,R2  |MR 4,R2 | 
| | |USED REGISTER (0) | 
| | |ST 5,81 | 
}-----}-------------}----------------- { 
| | [L 5,51 | 
|OP2- | [USED REGISTER (0) | 
|STOR.|M — R1,92 M 4,92 | 
| | |ST 5,91 | 
Laa dans crane dise ie quc kC A Re Min ui a E J 


OP1 and OP2 may be indirectly 
addressed. 


SIGN, Fixed Binary 


1. Format of the macro 


(0 (2 (1) (69 (6) (2 


po" e— «mue quum qam mo a no o cam czem e a amem ame w com eae 


|F2 1001210A | OP1|OP2| LABEL | 
ZE] NACZYN Lars be ed 


2. Generated code 


di O > rq ee = 1 
| | OP1 = REGISTER | OP 1 = STORAGE | 
}-----4--------------}-------------- 4 
| | LTR R1,R2 | LTR BADZ | 
|OP2- | OPT LABEL [OPT LABEL | 
|REG. |BC 8, LABEL| BC 8,LABEL| 
| | LA R1,1 | LA 5,1 | 
| OPT LABEL OPT LABEL | 
| BC 2,LABEL| BC 2,LABEL | 
| | LCR R1,R1 [LCR 5,5 | 
| LABEL | LABEL | 
| | | ST 5451 | 
}-----4-------------- }-------------- { 
| |L R1,S2 |L 3, 52 | 
| | LTR R1,R1 |LTR Du | 
|OP2= |OPT LABEL {OPT LABEL | 
{STOR |BC 8, LABEL| BC 8, LABEL | 
| > R1,1 | LA o | 
| | OPT LABEL  |OPT LABEL | 
| | BC 2,LABEL|BC 2,LABEL | 
| | LCR R1,R1 |LCR 55 | 
| | LABEL | LABEL | 
| | | ST 5,51 | 
Ent LA NOCNA ¡A dum c eene r 
OP1 and OP2 may be indirectly 
addressed. 


ABS, Fixed Binary 


1. Format of the macro 


(1) (2 (1) (6) (6 


|F2 |0010|0B |OP1|OP2| 
Lad AA AA A A | 
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2. Generated code 


pi E a ge a Qu W am CHAUD W A A AO A "AD eee CRA EAD CH O 


| [opi = REGISTER | 0P1 = STORAGE 
---—------------- }--~-~-~--------- 
| OP2= | LPR R2, R2 

[REG [LPR R2,R1 [ST R2,S1 

A A peepee fi 
|OP2 |L R1,S2 IL 5,52 
|STOR.|LPR R1,R1 | USED REGISTER (0) 
| l [LPR 5,5 

| | | ST 5,51 

PORZE A WPA dlcocccdcesu dee 
OP1 and OP2 may be indirectly 


addressed. 


Fixed Decimal Addition 


1. Format of the macro 


(1) (2) (1) (6 (6) (6) (10) 0) 
|F2 |ootc|10 [OP1|OP2|OP3|L2 |L3 | 
ea! God ACO Nae: NENA GaN e a a UDIN e a tern 


00 (0 (0 (1) 
seeqesegeseq ueque] 
[A IB |S |L | 
Senior: ee eet: 2045522] 


2. Generated code 


SHIFT GWO (16) ,S2 (L2) „A * 
SHIFT GW0+16 (16) ,S3 (L3) ,B ** 
AP GWO (16) ,GWO+16 (16) ** 


* if A=0, OP2,L2,A is changed to 
OP3,L3,B. 

** if B=0, the instructions are 
replaced by AP GWO (16) ,S3 (L3). 


if S = xX'30': 


ZAP else: 


MVC 


S1 (L) ,GWO (16) 
S1 (L) ,GWO0* 16-L 


OP1, OP2, and OP3 may he indirectly 
addressed. SHIFT is a submacro des- 
cribed below. 


SHIFT X(LX), Y(LY), Z 


l. Sequence of the operands if the subma- 
cro is called: 


(6) (6) DW M 


«-- ow = ow e— ow — a a c— ae — — a a 


IX [Y |LX |LY |Z | 
Lis EEE EE 


2. Generated code 
T = TRUN ( (2-1) /2) 
a Z=0: 


ZAP X (LX) , Y (LY) 





Seal 
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b. Z < 0 and odd and |T|<LY: 


MVO X (LX) ,Y (LY+T) 
MVN X+LX-1 (1) ,Y+LY-1 
c. Z < 0 and even and |T|<LY: 
MVO X (LX) „Y (LY+T) 
MVN X+LX-1(1) ,Y+LY-1 
MVO X (LX) ,X (LX- 1) 


O and odd and T«LX: 


MVO X (LX-T) ,Y (LY) 
XC X*LX-T- 1 (T* 1) ,X+LX-T-1 
MVN X+LX-1 (1) ,Y+LY-1 


O and even and T<LX: 


MVO X (LX-T) , Y (LY) 
XC X*LX-T- 1 (T* 1) X+LX-T-1 
MVN X*LX-1(1) , Y*LY-1 

MVO X (LX) ,X (LX- 1) 


Ls (z « 0 and |T|>LY) 
T>LX) 


or (Z > 0 and 


ZAP X (LX) ,=0 (1) 


Fixed Decimal Subtraction 


1. 


Format of the macro 


(D (2 (0 (6 (6) (6) (1 (1) 


r . 
[F2 |[001C|11 |OP1|OP2|OP3|L2 |L3 | 
La E sr dol eż 


(0 00) (0) (1) 


MUS n. A: SSG RT 
IA IB |S [L | 
eee ascia desc cm dessen en denen d 


Generated code 


SHIFT GWO (16) ,S2 (L2),A 
SHIFT GWO+16 (16) ,S3 (L3) B * 


SP GWO (16) ,GWO* 16 (16) * 
if S = x'30' 
ZAP S1 (L) „GWO (16) 


all other cases: 
MVC S1(L) ,GWO*16-L 


P01, P02, and OP3 may be indirectly 
addressed. 


The submacro SHIFT is described after 
FIXED DECIMAL ADDITION. 


* if B-0, the instructions will be 
replaced bytSP GWO (16) ,S3(L3).. 


Fixed Decimal Multiplication 


1. 


Format of the macro 


0) (2 M (6 (6 (6 (1) (00 (1) 


[F2|001B[12 |OP1]OP2|OP3|L2 |L3 |L {Ss | 
EA A ZE LASEK 


Generated code 


ZAP GWO (16) ,S2 (L2) 
MP GWO (16) , S3 (L3) 
if S-x'30' 

ZAP S1 (L) „GWO (16) 


all other cases: 
MVC St (L) , GWO* 16-L 


OP1, OP2, and OP3 may be indirectly 
addressed. 


The submacro SHIFT is described after 
DECIMAL FIXED ADDITION. 


Fixed Decimal Division 


1. 


Format of the macro 


0 (Q2 (1) (6 (6) (6 (D (M M 


o on — e ma ane ome we mm ome -— om e. — e e — «e e ow am e a quem 


|F2 [0019|13 |OP1|OP2[OP3|L2 |AL3| A | 


Generated code 


SHIFT GWO (L3*8),S2 (L2) ,A 
DP GWO (L348) , S3 (3) 
MVC S1(8) ,GWO 


OP1, OP2, and OP3 may be indirectly 
addressed. 


The submacro SHIFT is described after 
DECIMAL FIXED ADDITION. 


Fixed Decimal Neqation, 1 Operand 


1. 


Format of the macro 


(0 (2 (1) (6 (1) 


pI 


[F2 [000B| 14 |OP1|L | 
Generated code 
XI S1+L-1,X'01' 


OP1 may be indirectly addressed. 


Fixed Decimal Assiqnment 


l. 


Format of the macro 
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0 (20.0 (6) (6) (1) (V (V D (10) 


|F2|0015|15 |OP1|OP2|L1 [L2 JA | -|S | 


EEN AA PMA: SO AE bodo lozko uj 


2. Generated code 


a. S 4 :SHIFT S1 (L1) ,S2 (L2) ,A 
b. S=4,A<O: 
SHIFT GWO (16) ,S2 (L2) „A 
ZAP S1 (L1) , GWO (16) 


C. S=4,A>0: A is odd: 
SHIFT GWO (16) ,S2 (L2) ,A 
ZAP S1 (L1) , GWO (16) 


d. S=4,A>0: A is even: 


SHIFT GWO (16) ,S2 (L2) ,A+1 
ZAP GWO*16-L1 (L1) „GWO (16) 
MVO S1 (L1) ,GW0+16-L1 (L1- 1) 
MVN 1*L1-1 (1) , GW0* 15 


OP1 and OP2 may be indirectly 
addressed. 


Fixed Decimal Negation, 2 Operands 


1. Format of the macro 


W (2 (D (69 (6) DD (1) 


|F2 |0012|16 |OP1|OP2|L1 |L2 | 
Lad A A A dE 


2. Generated code 


ZAP S1 (11) ,S2 (L2) 
XI S1+L1-1,X'01' 


OP1 and OP2 may be indirectly 
addressed. 

Fixed Decimal Exponentiation 

1. Format of the macro 


ror | a a ate Tr => P A 4 w ena Wut E] 


K 
|F2|001c]17 | x [rre] N [DED X [DED TRG| 
vem A A a PA AA alla Ge i tas cn Kw W GBA 


2. Generated code 


LA 1,X 

LA 3,N 

LA 4, TARGET 

USED REGISTER (5) 

LA 2,DED X 

LA 5,DED TARGET 

L 15,N'94' 

BALR 14,15 

X and TARGET may be indirectly 
addressed. . 
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Fixed Decimal Comparison 


1. 


> 


Format of the macro Z 


(9 (22 (0(69 (© (6 (1 (1) 


u wa aa ee am a> me e owi pko c em ua uim aiam ote «mi aiu) cup quM «Ri m dua —-—— m ous x 


|F2 [001C|18 |- [OP2|OP3|L2 |L3 | 


0) 0) (0 0 
muda EE rca ar dada LEM 
IA|BISICI 


——— A e O EAS 


Generated code 


SHIFT GWO (16) ,S2 (L2) „A 
SHIFT GW0+16 (16) ,S3 (L3) ,B 
CP GWO (16) ,GW0+16 (16) 


If A=B, the following code is generat- 
ed: 
CP S2 (L2) , S3 (L3) 


OP2 and OP3 may be indirectly 
addressed. 


SIGN, Fixed Decimal 


1. 


Format of the macro 


(0 (2 (D (6 (6) (2 


q aw ow "e ow Gu am "ne e— — Rum Gta ub ome ame GU me dii» waw iM» am 


[F2 ]0012|1A [OP1[OP2|LABEL| 
Lu dessen occu AA O A c o n dd oir ue | 


The modifier of OP2 must be increased 
by L-1(L- length of OP!) if the macro 
is used for the SIGN function. 


Generated code 


po ter iua «umm SED A Mun Audio wt A A win Xu. Ge diio SEEMS cna A VOD domm 


| 
seis“ sl i i's ih di sie ce: Ss, cris IH i i Sng i se i ce el el 4 
| SR R1,R1 | SR 5,5 | 
LZAP S2 (1) ,S2 (1) | ZAP S2 (1) ,S2 (1) | 
|OPT LABEL | OPT LABEL | 
| BC 8,LABEL | BC 8,LABEL | 
[LA R1,1 | LA 5,1 | 
[OPT LABEL (OPT LABEL | 
| BC 2,LABEL | BC 2,LABEL | 
| LCR R1,R1 | LCR 5,5 | 
| LABEL | LABEL | 
| | ST 5,51 | 
ta w Glinik RENE pe A DE AG A EA ai J 


OP1 and OP2 may be indirectly 
addressed. 
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ABS, Fixed Decimal 


[S po eee epe ce 
| | OP 1=REGISTER | OP1=STORAGE | 
1. Format of the macro | | | | | | |=——— 2-------------|]------------- 4 
t | [STD 0,GWO | 
(1) (2 (1) (6 (6) (2) |OP2- |SER R1,R2 ILE 0,S1 | 
LU RR q o o po ooo —— |REG. | | SER 0,R2* | 
|F2 |0012|1B |OP1|OP2| L | | | | STE 0O,S1 | 
¡AS A E ES A, EE | | | LD 0, GWO | 
A ł 
L is the length of the operands. | | [STD 0,GWO | 
| LE 0,S1 | 
2. Generated code OP2= |SE R1,52 | SE 0,52 | 
| STOR. | ISTE 0,S1 | 
ZAP OP1 (L) ,OP2 (L) | | | LD 0,GWO | 
NI OP1*L-1,X'FE' Lao dm Li nn J 
*R2 must not be 0. 
OP1 and OP2 may be indirectly 
addressed. OP1 and OP2 may be indirectly 
addressed. 
Short Float Addition 
1. Format of the macro Short Float Multiplication 
(1) (2) (1) (6) (6) 1. Format of the macro 
|F2 ¡0010/20 [OP1|0P2| (1) (2 (1 (6) (6) 
O A E A fos Sp == oq o ooqosoqee=y 
[F2 [0010] 22 | OP1 |OP2| 
2. Generated code "ML 1---11-—-J 
rn ---- T777----------—--qp------------- 2. Generated code 
| | OP1=REGISTER | OP 1=STORAGE | 
|-----}--------------}------------- { ————— ——— 
| | [STD 0,GWO | | |OP1=REGISTER | OP 1=STORAGE | 
[OP2= |AER R1,R2 | LE 0,51 | I----- I-2-------------[i------------- 1 
|REG. | {AER 0,R2* | | | STD 0,GWO | 
| | |ST 0,51 | |OP2= |MER R1,R2 | LE 0,351 | 
| | | LD 0,GWO | |REG. | |MER 0,R2* | 
I----- }--------------}------------- 1 | | |ST 0,51 | 
| | [STD 0,GWO | | | | LD 0,GWO | 
| | [LE  0,S1 | ļH----- }--------------}------------- | 
|OP22 |AE R1,S2 JAE 0,S2 | | | [STD 0,GWO | 
| STOR. [STE 0,S1 | | | LE 0,51 | 
| | LD 0 „GWO | |OP2= |ME R1,32 | ME 0,52 | 
L____— di mm Ll1-----------—- d ISTOR. | [STE 0,51 | 
*R2 must not be O0. | | | LD 0,GWO | 
AA Consul cil la i AP A ccu J 
OP1 and OP2 may be indirectly *R2 must not be 0. 
addressed. 
OP1 and OP2 may be indirectly 
Short Float Subtraction addressed. 
1. Format of the macro Short Float Division 
(1) (22 (1) (6) (6) 1. Format of the macro 
[F2 |0010|[21 |OP1|OP2| (1) (2) (1) (6 (6) 
be he AMNEM PESE [---T----—T---T---T--—- 
[F2 |0010[23 |OP1|OP2| 
2. Generated code LL--4----4--—-4--—-4-—-4 
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2. Generated code 


[7 ES dM dq E MN ME gd E NC MEM ee Mrd ec: 1 
| |OP1=REGISTER [OP1=STORAGE | 
ls ON -4 
| | [STD 0,GWO | 
|OP2- |DER R1,R2 ILE  0,S1 | 
|REG. | |DER 0,R2 | 
| | [STE 0,51 | 
| | ILD 0,GWO | 
pas p]----7----------b-------------4 
| | [STD 0,GWO | 
| | [ILE 0,51 | 
|OP2= |DE R1,S2 IDE 0,52 | 
| STOR. | [STE 0,S1 | 
| | ILD 0,GWO | 
Po dcn de ec En cai dad "n 


* R2 must not be 0. 
OP1 and OP2 may be indirectly 
addressed. 
Short Float Negation, 2 Operands 
1. Format of the macro 


(1) (2 (1) (6) (6) 


awe oe ome Lap am a —À —_ qn. m —— €— oe —_ eng» eu 


|F2 |0010|24 |OP1|OP2| 
LL cu 


2. Generated code 


| «we ae ma ee — co ae ae GU ewe QUAND dunes ae cue ee dum wa w C em — ee Gee ae eee A ce — oe A P 


|OP2= |LCER R1,R2 [STE R2,S1 | 
|REG. | IXI  S1,x'80'| 
}-----}-------------- poco 
| [MVC GWO (4) ,S2|MVC S1(4),S2| 
[OP2= |XI  GWO,X'80'|XI  S1,x'80'| 
|STOR.|LE  R1,GWO | | 
Lu pi A E REI PCZNEZIE *—  — GZK J 


OP1 and OP2 may be indirectly 
addressed. 


Short Float Negation, 1 Operand 


1. Format of the macro 


ESY miastach | —— ae — 


e zzz E  — ow a em < nm um «o co Que e am 


Lia m ds ane Ge m ae ee w awe ee oe 


OP1 may be indirectly addressed. 
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Short Float Assignment ZEE EE PS 
1. Format of the macro | : ua 


1. 


1. 


(1) (20) (6) (6) 


|F2 [0010[26 |OP1|OP2| 
tula do 


Generated code 


w || ow “o o a eee MÀ eee Oe ame uam avo dpp omp ow oe > m qm amm am RAM ano MP cee AD A oe M * 


|OP2= |LER R1,R2 | STE R2,S1 | 
| REG, | | | 
[OP2= |LE R1,52 [MVC ST (4) ,S2] 
[STOR. | | 

Lasa ee eal tree Se on E T RET aa ee NODI J 
OP1 and OP2 may be indirectly 
addressed. 


Short Float Exponentiation (Integer) 


Format of the macro 


(1) (2 (0) (9 (6) (6) 


r^-7-7T c e — ae X ds y OR: E Sara | 


" 
[F2 [0016|27 | X |TARGET| 1N| 
Lasa sd ds di 


Generated code 


gs 
LA 1,X 3 
LA 2,N > 
LA 3, TARGET 
L 15,N'92' 


BALR 14,15 


X and TARGET may be indirectly 
addressed. 


Short Float Comparison 


Format of the macro 


(1) (2) (1) (6) (6) 


|F2 |0010|28 |OP1|OP2| 
A EA EEA A EN | 


Generated code 


Ma E — —À mm mx nube GRE o ae een Ames GENS GET oe ome oo 


|-----}--------------}------------- 1 
| [STD 0,GWO | 
|OP2= |CER R1,R2 [LE 0,S1 | 
|REG. | [CER 0,R2* | 
| | [LD 0,GWO | 
}-----}-----------~---}------------- { 
| | [STD 0,GWO | 
[OP2= | [LE 0,81 | 
|STOR.|CE R1 ICE 0,82 | 
| | [ID 0,GWO | 
La auem 3) ———— A en | ORZEC Mene Uu E AE J 


*R2 must not be 0. 





OP1 and OP2 may be indirectly 
addressed. 
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Float General Exponentiation 


1. 


(1) (2) (1) (6) (6) (6) 
|2 10016129 | X [TARGET] Y 
2. Generated code 
LA 1,Y 
LA 3, TARGET 
LA 2.X 
L 15,N'96* 
BALR 14,15 
SIGN, Float 
1. Format of the macro 
(1) (2) (1) (6 (6) (2) 
[F2 [0012|]2A |OP1|OP2| LABEL | 
AAA A AM AS AS RAS 
2. Generated code 


Format of the macro 


[^ DES TORY A O 1 1. 


ABS, Short Float 
1. Format of the maero 


(1) (2 (1) (6 (6) 


|F2 |0010[2B [OP1|OP2| 
AN, AA A O A | 


2. Generated code 


[79m p pw OSW Cd ax ac MINA MIC ME 
| |OP1=REGISTER |OP1-STORAGE | 
|----- }----------~---}------------- 
|OP2= | [STE R2,S1 | 
(REG. |LPER R1,R2  |NI  S1,X'7F"| 
PETERA T-2-------------— ——————PÓPÓá— 
[OP2- |LE R1,0P2 |MVC S1(),S2| 
[STOR. |LPER R1,R1  |NI S1,X' 7F* | 
| WSTEPIE, dose ease NS EM EE E E E A AAA 


OP1 and OP2 may be indirectly 
addressed. 


Long Float Addition 


Format of the macro 


A SAGEM N=OONE (1) (2 (1) (6) (6) 
| | SR R1,R1 [SR O40 | pop 
| | LTER R2,R2 |LTER R2,R2 | [F2 (0010/30 |OP1]|OP2| 
| | OPT LABEL |OPT LABEL | O E E E 
|OP2= |BC 8, LABEL| BC 8, LABEL | 
[REG. |LA R1,1 | LA Su | 2. Generated code 
| [OPT LABEL  |OPT LABEL | 
| | BC 2,LABEL| BC 2,LABEL | po oo T77----------- T77-7----------- 1 
| LCR R1,R1 [LCR 5,5 | | |OPT1-REGISTER | OP1=STORAGE | 
| beeen | LABEL | |--—— 2.------------— I-2------------- 1 
| | | ST 5,91 | | | | STD 0,GWO | 
|--——— p--------------|]-------------- [OP2= |ADR RT,R2 | LD 0,51 | 
| |L R1,S2 5,52 | |REG. | | ADR O,R2* | 
| |LTR R1,R1 |LTR 559 | | | | STD 0O,S1 | 
| | OPT LABEL  |OPT LABEL | | | | LD  0,GWO | 
|OP2= |BC 8, LABEL| BC 8, LABEL| I----- fo Jon a 4 
| STOR. | LA R1,1 | LA 3,1 | | | | STD 0,GWO | 
| OPT LABEL  |OPT LABEL | |OP2- | | LD 0,S1 | 
| BC 2,LABEL|BC 2,LABEL | |STOR. |AD R1,82 | AD 0,82 | 
| | LCR R1,R1 [LCR 55 | | | | STD 0,S1 | 
| | LABEL | LABEL | | | | LD 0,GWO | 
| | |ST 5,51 | L-----— Lon di J 
L-----— 0 doo —-——-—-À *R2 must not be 0. 
OP1 and OP2 may be indirectly OP1 and OP2 may be indirectly 
addressed. addressed. 

Phases PL/IE50-61 (General) 
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Long Float Subtraction __ Long Float Division _ | S 
1. Format of the macro 1. Format of the macro | v 
(1) (2) (1) (6) (6) (1) (2 (0 (9 (9 
[F2 [0010[31 |OP1]|OP2] | [F2 [0010[33 [|OP1]OP2| 
A AA PP A E A AS uU A O 


2. Generated code 
2. Generated code 


WE GRE BOO PRN DNO DEAR 1 

| | OP1=REGISTER | OP1-STORAGE | 

posses a (Pepe 1 posee 1 > 50 ee pese maa 1 
| | [STD 0,GWO | | | OP1-REGISTER |OP= =STORAGE | 
JOP2= |SDR R1,R2 | LD 0,51 | ļ----- nnn a 4 
[REG. | [SDR 0,R2* | | | |STD 0,GWO | 
| | [STD 0,351 | |[0P2= [DDR R1,R2 | LD 0,51 | 
| | | LD 0,GWO | |REG. | [DDR 0,R2* | 
ļ----- ł--------------ł------------- 1 | | [STD 0,81 | 
| | [STD 0,GWO | | | | LD 0,GWO | 
|OP2= | LD 0,51 | [----- --------------[i------------- 1 
| STOR. | 5D R1;92 | SD 0,S2 | | | [STD 0,GWO | 
| | |STD 0,S1 | | | | LD 0,51 | 
| | | LD 0,GWO | |OP2= |DD R1,S2 | DD 0,S2 | 
L----- 1-------------- Le J |STOR. | [STD 0,81 | 
*R2 must not be 0. | | | LD 0,GWO | 

Lucus A lla Les NND MM J 
OP1 and OP2 may be indirectly *R2 must not be 0. 
addressed. 
OP1 and OP2 may be indirectly 
Long Float Multiplication addressed. 


1. Format of the macro 
Long Float Negation, 2 Operands 
(1) (2 (1) (6) (6) 


-—-—QTq-—-—-—T41---T---T--—-4 1. Format of the macro 
[F2 {0010|32 |OP1|OP2| 
bm ha mb ah hd (1) (2) (1) (6) (6) 
2. Generated code [F2 ¡0010/34 |OP1|OP2| 
AO CARA IS BEN E 
REA qo e A AWANSE 
| | OP1=REGISTER [OP1=STORAGE | 
L----- H2-------------— T-2.------------ 1 2. Generated code 
| | [STD 0,GWO | 
[OP2= |MDR R1,R2 [LD  0,S1 | 
| REG. | | MDR 0,R2* | [RR a M M 
| | ¡STD 0,51 | | |OP1=REGISTER [OP1=STORAGE | 
| | [LD 0,GWO | fee }~--~----------- }--~---------- ł 
| EM p-------—------—- p------------- 4 {OP2= |LCDR R1,R2 [STD R2,S1 | 
| | [STD 0,GWO | |REG. | | XI S1,X'80'| 
|OP2= | | LD 0,51 nnn jn nnn -- - - + - 
| STOR. | MD R1,S2 | MD 0,52 | |OP2= |MVC GWO (8) ,S2|MVC S1 (8) ,S2| 
| | [STD 0,S1 | | STOR. | XI GWO,X'80'|XI  S1,x'80'| 
| | | LD 0,GWO | | DEP RÀ, GWO | | 
bunc Bien wosk waz a e eye J A ue LB: AA OAZIE J 
*R2 must not be 0. 
OP1 and OP2 may be indirectly OP1 and OP2 may be indirectly 


addressed. addressed. 
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Long Float Negation, 1 Operand (1) (2 (1) (6 (6) 
| [op p-——1 RGG MOE 
( 1. Format of the macro |F2 [0010[38 [OP1|OP2| 
| FS A beetle EN 
(1) (2 (N (6) 
—— A — 
[F2 IS 11 2. Generated code 
2. Generated code r----- qT7—--------—---T------------- 1 
| |OP1=REGISTER | OP 1=STORAGE | 
— |~----}----------~----}-------------4 
| CP 1=REGISTER | OP 1=STORAGE | | | [STD 0,GWO | 
Se ——— p-]------------— [OP2= |CDR RT,R2 | LD 0,51 | 
| LCDR R1 /R1|XI S1,x'80' | [REG. | [CDR 0,R2* | 
Lo ii don J | | | LD 0,GWO | 
"= [----- }--------------}------------- ł 
OP1 may be indirectly addressed. | | [STD 0,GWO | 
|OP2= | LD 0,51 | 
|STOR. |CD R1,S2 | CD 0,S2 | 
Long Float Assignment | | [LD 0,GWO | 
la OU ect A d E VINCE EPI PD J 
1. Format of the macro *R2 must not be 0. 
(1) (2) (1) (6) (6) OP1 and OP2 may be indirectly 
peque tuc e ee addressed. 
[F2 |0010/36 [OP1|OP2| 
A EEE) O ES A 


Long Float General Exponentiation 


l. Format of the macro 


2. Generated code 





[o VAIS qoc coe c | 
| |OP1=REGISTER |OP1=STORAGE | (1) (2) (1) (6) (6) (6) 
H----- Yoo -----7-7-7------ 1 ---y----ņ---ņ---ņ------ņ--- 
|OP2= | | | [F2 {0016|39 | X |TARGET| Y | 
|REG. |LDR R1,R2 [STD R2,S1 | t_-~-4----1-~-4-~-1-_—__-~-1—-~-—4 
----- —————— d 
|OP2= | | | 2. Generated code 
| STOR. | LD R1,S2 | MVC "MAIER 
L-L---- doo Lo door oo- LA 1X 

LA 3,TARGET 
OP1 and OP2 may be indirectly LA 2,X 
addressed. L 15, N*97* 


BALR 14,15 


Long Float Exponentiation (Integer) 
ABS, Long Float 
1. Format of the macro 
1. Format of the macro 


zu A NRA cr (0 (2 M (6) (9 
|2 [0016|37 | X |TARGET| N | pop PTI 


O A z il--Li--.-—-——41---—4J [F2 [0010|3B |OP1|OP2| 
rs cic2udonsg24 
2. Generated code 
2. Generated code 


LA 1,4 
LA 2,N A a aaa 1 
LA 3,TARGET | [OP1=REGISTER [OP1=STORAGE | 
L 15,N'93' HF----- -.-------------— I------------- 1 
BALR 14,15 |OP2= | | STD R2,S1 | 
|REG. |LPDR R1,R2 [NI  S1,X'7F'| 
X and TARGET may be indirectly HF----- -]-------------£4------------- 1 
addressed. |OP2= |LD R1,0P2 |MC 5S1 (8) ,S2] 
» | S TOR. [LPDR R1,R1 |NI  S1,x' 1E" 
( D Float Comparison London į iii ii dim 
Ea OP 1 oe OP2 may be indirectly 


1. Format of the macro addressed. 
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Character String Concatenation 
1. Format of the macro 


(0 (2 (V (69 (6 (6 M (M 


— a ow — | ow ow o am oe e — —À — «so a —— a ow — ew am — — — 


- 
IF2 |0018[40 |OP1|OP2[|OP3|L1 |L2 | 
A ARS A AO A E E ted 


2. Generated code 


MVC S1 (L1) ,S2 
MVC S1+L1 (L2) ,S3 


OP2 and OP3 may be indirectly 
addressed. 


CONVERSION CV5 
l. Format of the macro 


0) (2 0.0 (0 (69 (6) (2) 


—— — ow me a w — «e e due ow om ow o ow ~s. — — — — wa -— e «o 


|F2 [0014/42 | I [RN |OP1|OP2|D | 
AA A E O A IS ari E, 


2. Generated code 


LA 1552 
LA 2.51 

if I=0: LA 3,D 

if I-1: LA 3,N'3'«D 
L 15,N' RN' 


BALR 14,15 


OP1 and OP2 may be indirectly 
addressed. 


CONVERSION CV 
Ts Format of the macro 


00 (2 (0 (D (D (6) (6 (2 (2) 


-——T--—-—-—T---T---T---T---T---T---T--- 


: 
|F2 ¡0016/41 | I [RN |OP1|OP2|D1 |D2 | 
[AA PA MO A ES A MA A PA oe 


2% Generated code 


LA 1,52 

if I = 0 or 1: LA 2,D2 

if I = 20r 3: LA 2,N'3'+D2 
LA 3,51 

lf I = 0 or 2: LA 4,D1 

if I = 1 or 3: LA U,N'3' *D1 
5 15,N'RN' 


BALR 140,15. 


OP1 and OP2 may be indirectly 
addressed. 


Short Float to Long Float Assignment 
1. Format of the macro 


(1) (2 (1) (6) (6) 


| ame m dec om am oe — oe oe — w — -e — — 


r 
|F2 [0010|46 |OP1|OP2]| 
Estollo Ltd 
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2. Generated code 


cda al etm NZ 


1 
] S1 (8) , S1| 
[REG. |LER R1,R2 ISTE R2,S1 | 


1 
S1 (8) , S1] 
[STOR. |LE  R1,S2 [MVC S1 (4) ,S2]| 
Loos c—— «nave E MEE Et EE B A ri anes J 


OP1 and OP2 may be indirectly 
addressed. 


Decimal Fixed to Binary Integer Conversion 
CV30 


1. Format of the macro 


(0 20.0 (69 (6) W (1) 


pis da KEG ec ux T3 p 
[F2 [0012[50 [OP1|OP2| L | 2 | 
| A E A cm cd ES Lc 


2. Generated code 


SHIFT GWO (8) ,S2 (1) ,Z 
CVB R1,GWO 


The submacro SHIFT is described after 
FIXED DECIMAL ADDITION. 


OP2 may be indirectly addressed. 


Decimal Fixed to Zoned Decimal (T) NE 


Conversion, CV31 
1. Format of the macro 


(0 (2 0 (© (9 M M 


|F2 [0012|51 |OP1[OP2|L1 |L2 | 
Li oko da li o Kosz AG ZA 


2. Generated code 
UNPK S1(L1) ,S2 (12) 


OP1 and OP2 may be indirectly 
addressed. 


Decimal Fixed to Zoned Decimal Conversion, 
CV32 


1. Format of the macro 


(1) (2 (1) (6 (69 M (1) 


qr eee Pee San pi VERE. 


[F2 |0012[52 |OP1|OP2|L1 |L2 | 
LL--L-.---L1---L41-.--1---1---1---4 


2. Generated code 


UNPK  S1(L1),S2 (L2) 
OI S1+L1-1,X"FO" 





OP1 and OP2 may be indirectly 
addressed. 
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Binary Integer to Binary Float Conversion, 
CV33 


14 Format of the macro 


p--—-—"R oe rere Soo aires E ——--T o ow w ow 


| F2 10012153 [OP 1] 0P2| LABELI 
[AS mm A A A La J 


2. Generated code 

SR 4,4 
LPR 5,R2 
STM 4,5,GWO 
MVI GWO,X‘UES 
LTR R2,R2 
BC 2,LABEL 
MVI  GWO,X'CE" 

LABEL: LD R1,GWO 
AD  R1,= (0) 


Binary Integer to Bit String Conversion, 
CV34 
1. Format of the macro 


(0 (2 W (6 (6 (1) 


|F2 10011154 |OP1|OP2| Z | 
Dau dwell ado rad 


2. Generated code 


O RÓ pon 
| [LPR R2,R2 [LPR R2,R2 | 
|OP2= [LR  R1,R2 [SL R2,2 | 
| REG. |SLL R1,Z {ST R2,51 | 
|~----}----~--------- }------------- 
JOP2= |L RI,SZ |L 3,92 | 
| [LPR R1,R1 |LPRR R5,R5 | 
| STOR. | (SUB 532 | 
| [SLL R1,Z |ST 5591 | 
sanas La sg cci e asas J 
OP1 and OP2 may be indirectly 
addressed. 


Zoned Decimal (T) to Decimal Fixed 
Conversion, CV35 


1. Format of the macro 


(G) (2 (D (6 (6) (1) M 


(ZOTIT OT ZOTIT SGGG 


[F2 |0012|55 |OP1|OP2|L1 |L2 | 
¡AN PAN AN A E A A 


2. Generated code 
PACK S$1(L1) ,S2 (L2) 


OP1 and OP2 may be indirectly 
addressed. 


Bit String to Binary Integer Conversion, 


CV36 


1. Format of the macro 


(0 (2) (1) (69 (6 (1) 


[F2 [0011|56 |OP1[|OP2IL | 
Lolli ELI 


pm Generated code 


MVC GWO (4) ,S2 
L R1,GWO 
SRL R1,MIN (32-L, 1) 


OP2 may be indirectly addressed. 


Binary Integer to Decimal Fixed, CV37 


1. Format of the macro 


(0 (2 (0) (6 (6 (1 


|F2 [0011/57 |OP1|OP2| L | 
Loc Robb sd 


2. Generated code 


CVD R2,S1 
MVC S1 (L) ,S1+8-L 


OP1 may be indirectly addressed. 


Character String Comparison 


tz a r A Rp A to 


1. Format of the macro 


(1) (2) (1) (69 (69 (1 (1) (6) 
SANS O E ae pai rx Se S Uv | 
[0012| 


, 
| | | | | | 
[F2 [0018/58 |OP1|OP2|L1 |L2 |OP3| 
Lis 


A A A O A O A A | 


If L1=L2, 
bytes instead of 24 bytes. 


2. Generated code 


ds L1I=L2: CLC 51(L1),S2 

b. L1«L2: MVI S3,X'40' 
MVC S3+1(L2-1) ,S3 
MVC S3(L1) ,S1 
CLC S3(L2) ,S2 


C. L1>L2: MVI S3,x'40' 
MVC S3+1(L1-1) ,S3 
MVC S3 (L2) ,S2 
CLC S1(L1),S3 


OP1 and OP2 may be indirectly 
addressed. 


Phases PL/IE50-61 (General) 
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Shift Right Arithmetic Single (0 Q0 (0 (6 (6) = 
po eu cepe i e e 
1. Format of the macro [F2 [0010[5C |OP1|OP2| W 
| ¡AA PR E A om 
(1) (2) (1) (6 (6) 
[F2 |0010[59 |OP1|OP2| 2.0 Generated Code 
Loo E A E eko 
2. Generated code pn NN NN NN NN NN 1 
|OP1=REGISTER |OP1-STORAGE | 
A A a a CRA KK ROCA [-------------- A O a BN CASIN 
| OP1=REGISTER | OP1-STORAGE | | | LM 4,5,S1 | 
Pozzo po [SLDA R1,S2 [SIDA 4,82 | 
| IL 4,51 | | |STM  4,5,S1 | 
[SRA R1,S2 | SRA 4,582 | lee- dr mb J 
| [sz 4,51 | 
A A ew ee AI J 


OP1 may be indirectly addressed. 
OP1 may be indirectly addressed. 


Bit String NOT, 2 Operands 
Shift Left Arithmetic Single 
1. Format of the macro 
1. Format of the macro 
(1) (2) (1) (609 (6) (0 (0) (1) 
(1) (2) (1) (6) (6) cia dadas Pasa bizi dać dawac tach tek: | 
pr TT TI [F2 [0013|63 |OP1|OP2| L | | M |] 
[F2 [0010|5A |OP1|OP2| L-—-1---~-4-~-1--- doctor mn doom do 
AS AA AA E DESA | 
2. Generated Code 
2. Generated code 


XC S1 (L) ,S2 
——————— M i NI S1+L-1,M A 
|OP1 = REGISTER | OP1 = STORAGE| ne 
--------—------- -2------------ d OP1 and OP2 may be indirectly 
| | L 4,51 | addressed. 
ISLA R1,S2 [SLA 4,582 
| | ST 4,S1 | 
Ll in o mmm m dm nm o J Bit String Assignment 
OP1 may be indirectly addressed. 1. Format of the macro 
(1) (2 0 (6) (69 (D (D (1) 
Shift Right Arithmetic Double [(7——T----T---T---T---T---T---T---1 
[F2 [0013[65 |OP1|OP2|L1 |L2 | M | 
1. Format of the macro 11-111 Lm do 
(1) (2) (0 (6) (6) 2. Generated Code 
|F2 |0010|5B |OP1|OP2| a. L1>L2: XC S1(L1) ,S1 
AA E E AN peer MVC S1(L2) ,S2 
2. Generated Code b. L1<L2: MVC S1(L1) ,S2 
NI S1+L1-1,M 
IRIARTE DA HR E 1 
| OP1-REGISTER | OP1=STORAGE | OP1 and OP2 may be indirectly 
[----------]7--—--[L------------- 1 addressed. 
| | LM 4,5,51 | 
|SRDA R1,S2 [SRDA 4,S2 | 
| To 4,5,81 | Bit String NOT, 1 Operand 
Docs d Ar AE E LE J 


1. Format of the macro 
OP1 may be indirectly addressed. 
(1) (2 (D) (9 (0) (1) 





Shift Left Arithmetic Double [7---T-—--T---T---T---T-—--1 
[F2 [000D|64 J|OP1| L [M | 
1. Format of the macro ¡PA A, A no AS, bed 
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Wu 


2. 


Generated code 


XC S1 (L) ,N'2* 
NI S1+L-1,M 


OP1 may be indirectly addressed. 


Bit String AND 


1. 


2. 


Format of the macro 


(1) (2 (0 (69 (69 (1 (1) 


Se Á as — | a — me a— a ——— — — —— «= ame -— — — == Se ow 


|F2 ]0012/[66 |OP1|OP2|L1 |L2 | 
bdo TON PEL CN EEK! WOSK: 
Generated code 

NC S1 (12) ,S2 and if L2<L1 


XC S1+L2 (L1-L2) ,St+L2 


OP1 and OP2 may be indirectly 
addressed. 


Bit String OR 


Tae 


2. 


Format of the macro 


W (2.0 (6 (6 (1) (1) 


|F2 |0012|67 JOP1JOP2] |L2 | 
Lesben edel 


Generated code 
OC S1(L2) ,S2 


OP1 and OP2 may be indirectly 
addressed. 


Bit Strinq Comparison 


1. 


Format of the macro 


(1) (2 (1) (6) (6) (1 (1) 
[F2 |0012|68 |OP1|OP2|L1 |L2 | 
Lew owe ee delete ed ee ee eee 


Generated code 


a. If L1-L2: CLC S1(L1) ,S2 
b. If LI<L2: XC 
MVC 


CLC 


GN0+80 (16) ,GWO+ 80 
GWO*80L1),S1 
GN0+80L2) ,S2 


c. If LI>L2: XC 
MvC 
CLC 


GW0+80 (16) ,GWO* 80 
GNO+80 (L2) ,S2 
S1 (L1) ,GWO+80 


OP1 and OP2 may be 
addressed. 


indirectly 





Shift Right Logical Single 


1. 


Format of the macro 


(0 (2 (0) (6 (6) 


—_ a «= ow a | z > ———— ce > ane — mo «e e 


IF2 [0010/69 |OP1|OP2| 
¡A E | RZE: EA: ATI 


Generated code 


E ER TARA AOS DIS 1 
|OP1=REGISTER |OP1=STORAGE | 
L M A O LZ DINERO PEE OD ZE 

if 4,S1 | 
[SRL R1,S2 [SRL 4,52 | 
| IST 4,81 | 
E AS n AAA M ORW ZAZNA J 


OP1 may be indirectly addressed. 


Shift Left Logical Single 


Ta 


Format of the macro 


(0 (2) (1) (6) (6) 


— — w — z w — — — w ees ON m — == ad 


: 
[F2 |0010|6A |OP1|OP2| 
tual bi. == kb 


Generated Code 


MURCIA SER NU | wot GÓR Goo the 1 
|OP1 = REGISTER|OP1 = STORAGE | 
A e esce TON ] 
| |L 4, S1 | 
[SLL R1,S2 [SLL 4,52 | 
| (st. 4557 | 
Loa ee er dcs m ds ZE des la eas as Qi J 


OP1 may be indirectly addressed. 


Shift Right Logical Double 


1. 


Format of the macro 


(1) (2 (0) (6 (6) 


3 
|F2 |0010[6B [OP1]OP2] 
tem bac Law heehee 


Generated Code 


[^ Oe eo org oe A re, 1 
|OP1 = REGISTER|OP1 = STORAGE | 
[-------------- }------------- { 
| | LM 4,5,51 | 
|SRDL R1,S2  |SRDL 4,S2 | 
| | STM 4,5,S1 | 
ZOE RES E A E 4 
OP1 may be indirectly addressed. 
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me A ene wi ence E ene Z orem 


[2 |0010|6C |OP1|OP2| 
AA AA EA A: MET | 


2 Generated code 


———— A —e—Á— € ow Kun» auum omn ame ee W um ew dps» A W Gum. 


| | LM 4,5,51 | 
|SLDL R1,S2  |SLDL 4,S2 | 
| |STM 4,5,S1 | 


OP1 may be indirectly addressed. 


Branch on Condition 
1. Format of the macro 


(1) (2 (0 (t) (9 


— -— mm —Á—— — a wwa ^ — om me — we 


[F2 |000B|70 | c [OP1| 
¡AAA AA E A EE 


2. Generated Code 

OPT OP1 

BC C,OP1 
Return to Label Constant 
1. Format of the macro 


(y (2 (D (6) (6 (6 (1) 


|F2 [0019|71 |OP1|OP2|OP3|E5 |REG| 
Lara dk a da 


2. Generated Code 


OP3: DC label (OP2) 


MVC S1 (8) , OP3 

MVC S144 (2) , 72 (REG) 
LA 1,51 

L 15,N'13' 

BR 15 


Define Label Constant 


15 Format of the macro 


2. Generated Code 


LABEL: 
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Assign Label Constant 


y 


Format of the macro 


(0 (2 (0) (6 (6) (6 (1) (2) 


pore — w en a — 9— oe «o ue — | om ome oe ow ae cm Gm em —— = 


[F2 [0019|75 |OP1|OP2|OP3|E5 |REG| 
¡ES AE A, PA E, AS E A | 


Generated Code 
OP3: DC label (OP2) 


MVC S1 (8) ,OP3 
MVC S1+4 (2) ,72 (REG) 


Pointer Assignment 


1. 


Format of the macro 


(0 (2 (0) (6 (6 


— — — om z cee wa — — — om a aw — — — 


|F2 [0010|76 |OP1[OP2]| 
Ca da 


Generated Code 


a. OP2 is a pointer (bit 6 of byte 15 


is set on) 
MVC S141 (3) ,S2+1 


b. OP2 is not a pointer 
LA 0,92 
ST 0,GWO+80 
MVC S1+1 (3) ,GWO+81 


Format of the macro 


(00 (2 (1) (6) (6 (1) 


px A Gem OE quum on ome ome e—— gone eee — ame wee come amm sz 


: 
[F2 10011|7A |OP1|OP2| L | 
frida Ed 


Generated Code 


A A WE IIT qo M A 1 
| OP2=REGISTER | op2=storage 
po po nnn nnn = 
| or R2,R2 | OC S2 (L) ,S2 

| OPT OP1 | OPT OP1 

| BC 8,0P1 | BC 8,OP1 
——————— SENZA T SRL UNE TUR J 


OP2 may be indirectly addressed. 


Pointer Comparison 


1. 


Format of the macro 


(1) (2 (1) (6 (6) 


r ? 1 
|F2 {0010|78 |OP1|OP2| 
(¡A AA A A AN | 
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2. Generated Code 
a. OP2 is a pointer (bit 6 of byte 15 
is set on) 
CLC  S1+1(3) ,S2+1 
b. OP2 is not a pointer 
LA 0,S2 
SIL 0,GWO+80 
CLC S1+1(3) ,3W0*81 


Sum 


1. Format of the macro 
(1) (2) (1 (6) (1) (2) 


|F2 [0008/78 [op1| N | LABEL| 
A, A E DZY A AAA 


2e Generated Code 


LA 4,OP1 
LA 3,N 
LABEL: 


OP1 may be indirectly addressed. 
Return to Label Variable 


1. Format of the macro 


(1) (2 (0 (1) (6) 


: 
|F2 |000B[80 |  |OP1| 


Leeds 


2. Generated Code 


LA 1,51 

L 15,N'13' 

BR 15 
DO_Branch 


Ta Format of the macro 


(1) (2 (1) (6) 


|F2 [000aj8: opi] 


2. Generated Code 


LA 1,51 
L 15,N'13' 
BR 15 


Assign Label Variable 


1. Format of the macro 
(1) (2 (1) (6) (6) 


e e nd a a am e a ene So — — —_ o — 


[F2 |0010|85 |OP1|OP2| 
A, A A A A 


2. Generated Code 
MVC S1 (8) ,S2 


OP1 and OP2 may be indirectly 
addressed. 





Store 


1. Format of the macro 


(0 (2 0 (69 (6) 


p" moe: am came moda | — ae umm A prim -m w cmi 


|F2 [0010|83 |OP1|OP2| 
E di 


2. Generated Code 
SE R1,52 


OP2 may be indirectly addressed. 


Store Short 


1. Format of the macro 


(0 (2 0 (6 (6) 


|F2 [0010/84 [OP1|OP2| 
La ende cec espe dis essendi med 


2. Generated Code 
STE R1,S2 
OP2 may be indirectly addressed. 
Character String Assignment 
1. Format of the macro 
(1) (2) (1) (6) (6) 0 (1) 


— mm — c-— aw ow ow — — «=m — m om — — — — ae a — e = 


[F2 [0012|86 JOP1|OP2|L1 |L2 | 
La umb eu du O eee EA A | 


2. Generated Code 
a. L1 < L2: 
MVC S1 (1) ,S2 
b. L1 > L2: 
MVI S1,X'H40' 
MVC S1*1(L1-1) ,S1 
MVC $1 (L2) ,S2 


OP1 and OP2 may be indirectly 
addressed. 


Subscripted Variable 
1. Format of the macro 


(0 (2 (D () (0 (9 (6) (6) (6 


— aw — me ae e o — me — emu X oom — — — a a ome m comp an — e— — o e — — 


: 
[F2 |003C|87 | | N [OP1|OP2]|OP3|OPA | 
AR RS PR A CS O A ES ES Berm 


(6) (6) (6) (6) (6) 


[OP5|OP6|OP7|OP8|OP9| 


Pepe PS, AE PA A A Ć) 
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Ls Generated Code 


a. N=0: LA RV,S8 


A R1,S9 
b. N-1: L R1,52 
MH R1,S3 
A R1,S9 
LA 5. 98 
AR R1,5 
C. N-2: L R1792 
MH RAS: 
A R1,S4 
MH Riso 
A R1,S9 
LA DU 
AR R1,5 
d. N=3: L R1,S2 
MH R1,S3 
A R1,S4 
MH R1,55 
A R1,S6 
MH  R1,S7 
A R1759 
LA 5,58 
AR R1,5 
All operands may be indirectly 
addressed. 
Substring 


ks Format of the macro 


D (2 (1) (6 (6) 


|F2 |0010]88 |OP1|OP2| 
¡A AAA A NS MSZE: 


23 Generated Code 


if OP2=STORAGE 


LA 5,51 
USED REGISTER (0) 
A 5,S2 
BCTR 5,0 


or, if OP2 = REG: 


LA 5791 
USED REGISTER (0) 
AR 5,R2 
BCTR 5,0 
OP1 and OP2 may be indirectly 
addressed. 
High 


1. Format of the macro 


276 


(0 (2 (0 (9 (1) 


n PS HILARI lua Ra (f 
|F2 [000B|BA |OP1| N | wo 
[joc Per de p.p 
2. Generated Code 
a. .N=0Os MVI OP1,X'FF'* 
b. N<O: MVI OP1,X'FF' 
MVC OP1+1(N) ,OP1 
OP1 may be indirectly addressed. 
Load Address of ON Block 
1. Format of the macro 
(1) (2) (1) (6) (1) 
————Ó—— 
[F2 (000B|8B |OP1]| R | 
ESEE esca md au REMA 
2. Generated Code 
LA R,OP1 =. 
AH R, 0 (R) us 
Lud 


OP1 may be indirectly addressed. 


Initial 
1. Format of the macro 


(1) (2 A) (2) (2) 


-—— — — am a eu dq p o wa er vm quam UU 


|F2 |0008|8C | A | B | 
Lcd mL. d 


2. Generated Code 
LA 1,A 
L 15,B 
BALR 14,15 


Format 


l. Format of the macro 


peque MUA MA. 
[F2 |0006|8D | A | 
Leased pe Lah 


2. Generated Code 


LA 1,A 
L 15,N'21' 
BALR 14,15 
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Load_Iransmit or 


1. Format of the macro 


D 0) 0 0 1) 


W (2 0 (2 ppp SUN SUERO, 

[ST Sq PY M [E1 [NAME] X | Y [AT | 

|F2 |0006|8E | A | L-L--L----L---l1---4---—4 

nU MERE: O Mere 
2. Generated Code if the parameter is an entry name. 

L 15,A * This instruction is deleted if the 

name is X'0000'. If the parameter is 

Call an entry name, the instruction is 


replaced by: 
1. Format of the macro 


(1) (2) (1) (1) (6) (6) MVC BLOCK (4) ,S (1) 
r---r-----r---r---r---r---r----- LA RX, BLOCK 
[F2 |N*6+5|90 | N |OP1| | OP+1 | ST RS,BLOCK+4 only if RS = 0 
Lodo aa aa a BLOCK: DS 2F 
2. Generated code **If the entry name is a parameter, 
this instruction is replaced by: 
a. N<8: STM 0,4,GN0+80 
LA 14,53 L 5,51 
LA 15,S4 LM 15,0,0 (5) 
LA 0,55 
F If RS=0, the instruction LR 0,RS is 
‘ deleted. 
z RS depends on X and Y as follows: 
LA RX,SN+1 * 
STM 14,RX, GWO [-------- T7-7------ Y == q77------- 1 
L 15,51 ** | | X =O | x= | X=2 | 
LR 0,RS i a a $ ooo -- f-]-------- Ho J 
LA 1,GWO | Y= 1 | RS =O | RS = 13 | RS=0 | 
BALR 14,15 HF-------- I-------- I--------- l--------- q 
| Y = 2 [RS=0Yf]| RS = 11 | RS = 13 | 
b. N>8: STM 0,4,GW0+80 I-------- Homo Ho - P--------- 1 
LA 14,53 |Y=3 | RS =O | RS = 11 | RS = 10 | 
LA 15, S4 LL-------— dino 111111———— doo oo J 
LA 0,55 
LA 1,S6 
LA 2,91 Return 
LA 3,58 
LA 4,S9 l. Format of the macro 
STM 14,4,GWO 
LA 14,510 (1) (2) (1) (1) 
LA 15,511 F^-—7-T----T---T---1 
LA 0,512 [F2 [0005191 | I | 
, ¡A PA ES 4 
" 2. Generated code 
LA  RX,SN+Ł1 * 
STM 14,4,3W0+28 a. I=0: L 13,4 (13) 
LM 0,4 ,GNO+80 LM 14,12, 12 (13) 
L 15,51 * * BR 14 
LR 0,RS * 
LA 1,GWO b. I=1: LR 13,11 
BALR 14,15 L 13,4 (13) 
LM 14,12,12(13) 
3. Format of the operands BR 14 
The general format of the parameters is Co 1=2: LR 13,10 
L 13,4 (13) 
(1) (2) (2) (1) LM 14,12,12 (13) 
p^ eque WG VEASE. BR 14 
|E1 |NAME|MOD|AT | 
t__-1___-1___1i_-_—43 Ge. 55353 same as I=0. 
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Proloque b. 


1. 


278 


Format of the macro 


(1) (2) (1) (6) (6 (D (10) M 


(Feo Pere eh ee a a a 

|F2 | (N+4) *6|92 |OP1|OP2|LN |BN | N | 

A AR re PO A EPA RA PE 

(1) (1) (1) (2) (6) (6) 
EA pe did pia KOGO KERR NR GRA 
| E | I [FL |LABEL|P1 | [PN | 

RR. PA DESKA! CEC IE A WANE! SDA. 

OP1 - Entry name 

OP2 - gives the address of the ON 
block 

LN - Level number 

BN - Block number 

N - Number of parameters 

E - indicates whether main entry or 
Secondary entry 

I - indicates whether internal, 
external (1) or external (2) 

FL - ON-flags 

LABEL - a label-name used in the prolo- 
gue. 

P1, P2, ... PN - Parameters. 


Generated code 


a. Main ENTRY of MAIN PROCEDURE 


(E=0, I=1) 

BALR 15,0 

BEGIN (BN,LN,OP 1) 

NOPR 

BAL 14,10 (15) 

DC A (STATIC) 

L 12,0(14) 

LR dy 15 

LR 351 
if ONSYSLOG: 

L 15,N=10" 
else : C. 
L Toy N FTA 

BALR 14,0 

LA 14,14 (14) 

BALR 1,15 

DC Anc EI 

DC AL3 (OP2) 

DC XLĄ'*LENGTH OF DSA' 
if indirect library routines in 
compilation 

L 1,N*5* 

L 15,N'16' 

BALR 14,15 

if N> 0 

MVC PN (4) „O (3) * 
MVC P (N-1) (4) ,4 (3) * 
MVC P (1) (4) ,U* (N-1) (3) * 
MVC P1 (4) ,4* (N-1) (3) * 
MVC 80 (4,13) , U*N (3) 


Secondary ENTRY of MAIN PROCEDURE 


(E=1, I=1) 

CNOP 2,4 

INDIVISIBLE CODE (17,10) 

BALR 15,0 

BAL 14,8 (15) 

DC A (STATIC) 

L 12,0 (14) 
LABEL+1: 

L 9,LABEL 

LR 31 
if ONSYSLOG: 

L 15,N'10* 
else : 

L | 15,N'11' 

BALR 14,0 

LA 14,14 (14) 

BALR 1,15 

DC X'FL' 

DC AL3 (OP2) 

DC XL4'LENGTH OF DSA‘ 
if indirect library routines in 
compilation 

L T,N'5* 

L 15,N* 16" 

BALR 14,15 
LE N.> 0: 

MVC PN (4) , 0 (3) 

MVC P (N- 1) (4) ,4 (3) 

MVC P (I) (4) ,4* (N-I) (3) 

MVC P1 (4) ,4* (N- 1) (3) 

MVC 80 (4,13) ,4*N (3) 


for STATIC STORAGE: 
LABEL 
DC A of segment origin (LABEL+ 1) 


Main ENTRY of no MAIN PROCEDURE 


(E20, I-0 or 2) 

BEGIN (BN, LN, OP 1) 
STM 14,12,12 (13) 
CNOP 0,4 
INDIVISIBLE CODE (22,12) 
BAL 14,12 (15) 
DC A (STATIC) 

L 12,0 (14) 

LR 9s 19 

LR 3,1 

L 15,N' 12" 
BALR 14,0 

LA 14,14 (14) 
BALR 1,15 

DC XEL? 

DC AL3 (OP2) 

DC XL4'LENGTH OF DSA' 
if level 1, LN=T: 

L 11,76 (13) 





* x %* * 


Pw 


BBR 


te 
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if level 2, LN=2: 
E 10,76 (13) 
L 11,76 (10) 


if external, 1=2 and indirect 
library routines in compilation 


L 1,N'5' 

L TONTO 

BALR 14,15 
if N»0: 

MVC PN (4) ,0 (3) * 
MVC P(N-1) (4) ,4 (3) * 
MVC P (I) (4) ,4* (N-I) (3) * 
MVC P1(4) ,4* (N-1) (3) * 
MVC 80 (4,13) , U*N (3) 
Secondary ENTRY of no MAIN PROCE 
DURE 

(EST, I50, or 2) 

STM 1442,12 (13) 

CNOP 0,4 

INDIVISIBLE CODE (22,12) 

BAL 14,12 (15) 

DC A (STATIC) 

L 12,0 (14) 
LABEL+1: 

E 9, LABEL 

LR 3,1 

L 15,N'12' 

BALR 14,0 

LA 14,14 (14) 

BALR 1415 

DC X'FL' 

DC AL3 (OP2) 

DC XL4*LENGTH OF DSA' 
if level 1, LN=1: 

L 11,76 (13) 

if level 2, LN=2: 

L 10,76 (13) 

L 11,76 (10) 

if external, I=2 and indirect 
library routines in compilation 

L TaN" 5 

L 15,N'16' 

BALR 14,15 

if N > 0: 

MVC PN (4) ,0 (3) + 
MVC P (N- 1) (4) ,4 (3) 

MVC P (I) (4) ,U* (N-I) (3) * 
MVC P1 (4) ,4* (N-1) 43) + 
MVC 80 (4,13) ,U*N (3) 


for STATIC STORAGE: 
LABEL DC A of SEGMENT ORIGIN 
(LABEL+ 1) 


Vos 


Format of the macro 


(1) (2) (1) (6) (6) 


| eap aoi aD ad SLE KGK: 
|F2 |0010|93 |OP1|OP2| 
Ll d ee eee ae a em 


Generated code 
SIM R1,R1*1,52 


OP2 may be indirectly addressed. 


store Long 


LE 


2. 


Ta 


u AŻ 


Format of the macro 


()) (2) (1) (6) (6) 


r 1 
[F2 [0010/94 |OP1|OP2| 
Looks A A E E | 


Generated code 
STI R1,92 


OP2 may be indirectly addressed. 


Format of the macro 


(0 (2 (0) (6 (6) 


o — —— — ae oe — -— o w — e om — mm — 


: 
|F2 |0010[95 |OP1|OP2| 
LL cduunclcedecdgloss 


Generated code 


C i A qi V cad M ME ag ZEG OO A dM EE 1 
| OPI=REGISTER | OP1=STORAGE | 
¡pa AR NN 1 
| | LA 5,92 | 
| LA R1,92 | USED REGISTER (0) | 
| | ST 5,51 | 
AAA eee A PRYSZCZE A A O E J 


OP1 and OP2 may be indirectly 
addressed. 


Array Expression Begin 


1. 


Format of the macro 


(1) (2) 0) (3 (3) (2) (2) 
ESTAS AAA AA 
[F2 [14+N*6/98 | A |LABEL| N | M 1 
a dI. cll. 

(6) (6) 
[OP1| [OPNI 


eunduccdlccLd 
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2. 


Low 


Generated code 


a. N < 7: STM 14,4,GW0+80 


LA 14,81 
LA _ 15,82 
LA 0,83 

LA RX,SN 


STM 14,RX,A 
LM 14,4,3W0+80 


LA 4M 
LABEL: ST 4,DSA+84 
b. N > 7: STM 14,4,3W0+80 

LA 14,51 

LA 15,52 

LA 0,53 

LA 1,54 

LA 2,05 

LA 3,56 

LA 4,S7 

STM 14,4,A 
LA 14,58 

LA 15,59 

LA 0,510 

LA RX,SN 


STM 14,RX,A+28 
LM 14,4,GW0+80 
LA  4,M 

LABEL: ST 4,DSA+84 


All operands (OP1, OP2, ... 
be indirectly addressed. 


Format of the macro 


(D (2 (D (69 (M 


|F2 |000B|9A |OP1| NI 
| WZORZEC! DEALS SPODNIEJ AS E | 


Generated code 
a. N=0: MVI  OP1,x'00' 


b. N>0: MVI  OP1,x'00' 


MVC OP1+1(N) ,OP1 


OPN) 


OP1 may be indirectly addressed. 


Load Variable 


1. 
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Format of the macro 


(1) (2 (1) (6) (2) (2) 


|F2 |000E|9C |OP1| A | B | 
tor ee be ee ed 


may 


Ze Generated code 
LA Sal 
SE 1,A+B 
OP1 may be indirectly addressed. 
Set Byte 
1. Format of the macro 
(1) (2) (1) (6) (1) 
ÚS: AMIA eene qu eeu n powa 
|F2 [000B|9D |OP1] M | 
Ls ss ld 
2. Generated code 


Return Function Value 


1. 


MVI S1,M 


OP1 may be indirectly addressed. 


Format of the macro 


(D (2 D (1) 


(6) (1) 


— 4— — e — — oe emm mme dies -o amm deme PIESZA, REE 


|F2 |000C|A1 | I 


|OP1| L | 


tudo Le Ls ed 


Generated code 


a. I=0: USED REGISTER (5) 
L 5,80 (13) 
MVC 0 (L,5) ,S1 
USED REGISTER (0) 
L 13,4 (13) 
LM 14,12,12 (13) 
BR 14 

py ue USED ^ REGISTER (5) 
L 5,80 (11) 
MVC 0 (L,5),S1 
USED REGISTER (0) 
LR 13,11 
L 13,4 (13) 
LM 14,12,12 (13) 
BR 14 

Cz I=2: USED REGISTER (0) 
L 5,80 (10) 
MVC 0 (1,5) ,S1 
USED REGISTER (0) 
LR 13,10 
L 13,4 (13) 
LM 14,12,12 (13) 
BR 14 

d. I=3: same as I = 0. 


OP1 may be indirectly addressed. 
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Overlay 


1. 


Format of the macro 


M (2 (0 (6 (0 


1 
|F2 |000B[A2 |OP1| L | 


Carabobo kito 
2. Generated code 
a.  L«8: MVI GWO,X'40' 
MVC GWO+ 1 (7) „GWO 
MVC GWO (L) ,S1 
SR 0,0 
LA 1,GNO 
SVC 4 
b. L28: MVC GWO (L) ,S1 
SR 0,0 
LA 1,GNO 
SVC 4 
OP1 may be indirectly addressed. 
Load 
1. Format of the macro 
(1) (2) (1) (6) (6) 
fo Ne A a Bee ee 
[F2 |0010|A3 |OP1|OP2| 
E AA A E: | 
2. Generated code 
L R1,S2 
OP2 may be indirectly addressed., 
Load Short 
l. Format of the macro 
(1) (2) (1) (6) (6) 
|F2 |O0010|A4 |OP1|OP2| 
AA eet oo OE! CENIE 
2. Generated code 


LE R1,52 


OP2 may be indirectly addressed. 


Move Immediate 


9 (2 (1D (6 (1) 


— — — De w e w am — — «o e e ao em eo. 


|F2 |O000B|A5 JOP1|M | 
AA AA TT PR ERE 
Generated code 


MVI S1,M 


OP1 may be indirectly addressed. 


Array Expression End 


De 


Format of the macro 


(1) (2) (D (9 (3) (2 (2 


-——q-———-—-——T-——T--—-.4-——-—--—-T1-—-—-T---1--- 


z 
|F2 |14*N*2|A8 |A |LABEL|N |M 
L A A. L L 


— — — p PA A A A Mh pee 


(2) (2 (2 (2) 
pes POZ LZ E 
[C1 [C2 | |CN | 
amd MESAS PS CR | 


2. Generated code 

a. N < 7: STM 14,4,GWO0+80 
LM 14,4,A 
LA 14,C1 (18) 
LA 15,C2 (15) 
LA 0,C23 (0) 
A 0,A+8 
LA 1,C4 
LA RX,CN 
STM 14,RX,A 
LM 14,4,GW0+80 
OPT (LABEL) 
BCT 4, LABEL 

b. N > 7: STM 14,4GW0+80 
LM 14,4,A 
LA 14,C1 (14) 
LA 15,C2 (15) 
LA 0,C3 (0) 
A 0,A+8 
LA 1,C (1) 
LA 2,C5(2) 
LA 3 ,C6 (3) 
LA 4 ,C7 (4) 
STM 14,4,A 
LM 14,4,A+28 
LA 14,C8 (14) 
LA 15,C9 (15) 
LA 0,C10 (0) 
A 0,A+36 
LA 1,Cc11 (1) 
LA RX,CN (RX) 
STM 14,RX,A+28 
LM 14,4,GW0+80 
OPT (LABEL) 
BCT 4, LABEL 

Repeat 


1. 


Format of the macro 


(0 (2 0 (6 (6 (0) M 


<a — m — me ow — — — =a o a ae — zm — w — = Du e 


[F2 |0012|]AaA |OP1|OP2|]L [I | 
A A ES ee A E EEA 
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2. Generated code 


MVC S1(L) ,S2 
MVC S1+L (I*L) ,S1 


OP1 and OP2 may be indirectly 
addressed. 
Load_DED 
1. Format of the macro 
(1) (2) (1) (6) 


| F2 |000A|AC Lop1| 


Lh O Y PNE A x xcd 


2. Generated code 

LA 2,01 

OP1 may be indirectly addressed. 
Load Scalar 


1. Format of the macro 


POST —€— i SE — 


Lad ete A eae | d 


2. Generated code 


LA 1,51 
BALR 14,15 


OP1 may be indirectly addressed. 
Load Array 


1. Format of the macro 


(1) (2) (1) (6) (2 (2 (2) 
|F2 |0010|AE |OP1| A | B | LABEL | 
LS A d 


2. Generated code 


3 
0 
1 
LABEL BALR 1 
1 
( 
3 


OP1 may be indirectly addressed. 
Call (3) 
1. Format of the macro 


(D (20 (0 (3 (0 | (1) 


PS e eee a en => aa on - — ow ~ am «o o «o one -— om — 


[F2 |000A|BO |S1 | X | Y fav | 


——— ae A A A O Pod 


282 


Us 


Generated code ATN 

Ms 
L 15,51 id 
LR 0,RS 


BA LR 14, 15 
or if AT indicates a parameter 


L 5,51 
LM 15,0,0 (5) 
BALR 14,15 


RS depends on X and Y as follows: 


[v er queer qoc quce 

| | X=0 | X=1 | X-2 | 

--——-- nn 

| Y=1 | RS=0 | RS=13 | RS=0 | 

I--—-- nna j---——--- e 

|Y=2 | RS=0 | RS=11 | RS=13 | 

[--—--1---—-- o =, = 

|Y=3 | RS=0 | RS=11 | RS=10 | 

PME y SEEN LOTES os REN J 
Set True on Condition 
1. Format of the macro 

(1) (2) (1) (1) (6) (2) 

E T tee PO poo o poo 

|F2 [000£|B1 | C |OP1 |LABEL | 

EE POKE A REJ O E 

BR 
2. Generated code D | 
NIA 

MVI 51,280 

OPT (LABEL) 

BC C,LABEL 

MVI Str U07 


LABEL 


OP1 may be indirectly addressed. 


Load Multiple 


Format of the macro 


(1) (2) (1) (6 (6) 


|F2 |0010|B3 |OP1|OP2| 


bollo. IES: Leama 
2. Generated code 

LM R1,R1*1,352 

OP2 may be indirectly addressed. 
Load Long 


1. 


Format of the macro 


( (2 (1) (6 (6) 


pee -— o e ow owe cia wam Amen REA Oz 4-— cm e — 


[F2 [0010|B4 |OP1]|OP2| 
¡PAE AAA REA AA RA | 
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© 2. Generated code 


LD R1,S2 


OP2 may be indirectly addressed. 


Move Character 


1. Format of the macro 


(1) (2 (1) (6) (6) 


|F2 |0010|B5 [OP1|OP2| 
Loc woods 


2. Generated code 


a. OP2 = REGISTER: 


STC R2,S1 
b. OP2 = STORAGE: 
MVC S1 (1) ,S2+3 


OP1 and OP2 may be indirectly 
addressed. 


Or Immediate 


= 1. Format of the macro 
( (1) (2 (1) (6 (1) 


r | 
[F2 [000B|B6 |OP1| M | 
Esñ=stbticss=do ke= be | 


2. Generated code 


OI S1,M 


OP1 may be indirectly addressed. 


Multiply Halfword 
l. Format of the macro 


( (20 0 (6 (1) 


"e am a — Mu «— ow — w m Z z ae -—— que ore 


: 
|F2 |000B[B8 |OP1| R | 
AE PATO KG ZZA ed 


2. Generated code 
MH R,OP1 


OP1 may be indirectly addressed. 


Call Library Routine 


1. Format of the macro 


(0 (2 (0 (3) 


|F2 [0007|BA |NAME| 
Lou emm 


2. Generated code 


L 15,NAME 
BALR 14,15 


Loop Begin 
1. Format of the macro 


(0 (2) M (6) (6) (2 (2 


o e 
[F2 [0014|BC |OP1|OP2| N [LABEL] 
AA AA AS AO O A A 


2. Generated code 


LA 3,N 
LA 4,51 
LABEL ST 4,52 
OP1 and OP2 may be indirectly 
addressed. 
Loop End 


1. Format of the macro 


(1) (2 (0 (2 (2) 


WASZ RARE IE 
[F2 |0008|BD | L |LABEL| 
RZEC: RRA EA WOSK AS | 


2. Generated code 
LA 4,L (4) 


OPT (LABEL) 
BCT 3,LABEL 


Phases PL/IE50-61 (General) 
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PHASE_PL/IE50 (CODE GENERATION I) -- TA „s 





Nu 
Generally, the generation code from the The individual routines are shown in 
macros can be made using the same algorithm flow charts TD - TT. Table MATAB showing 
for different macros. There are only a few the macro key, the routine name, and the 
macros which require special handling. corresponding flow chart, is given in Fig- 
These special macros are processed in the ure l. The code generated by each of the 
first generator phase. routines is described in the section The 
Macros and the Generated Code. 
Further objectives of the first phase are: r----- PE NN NN NN NN NN T77---- 
|Macro|Routine Name | Flow | 
[Key | (W=routine address) | Chart| 
1. To translate the macro key and the |  . [----- R--—-—---------—---—----—-----------— I------ 1 
macro code to a key and an address in [x'10'|decimal ADDITION | TH | 
the model instruction dictionary. [x'11' SUBTRACTION | TH | 
[x'12' MULTIPLICATION | TH | 
2. To build a table giving the passes [x' 13* | DIVISION | TJ | 
needed in the second phase. Ix'14* | NEGATION (1 oprnd.) | TK | 
[X* 15* | ASSIGNMENT | TL | 
3. To change the text string, the state- [X*'16'| NEGATION (2 oprnds.)| TK | 
ment identifiers, the attribute tables [X*'18*| COMPARISON | TH | 
for declared variables, and the END OF [X'50'|conversion CV30 | TM | 
STATEMENT's are eliminated from the [|X'56*'|conversion CV38 | TN | 
text string. [X'90*| CALL | TR | 
[x'92*| PROLOGUE | TD | 
4, To generate code that is independent of [xX'98'|ARray EXpression HEader | TP | 
the macros. The first instructions of |X'A8'|ARray EXpression ENd | TO | 
the text string must be the address |X'AA' | REPEAT | TO | je 
constants for storage blocks. |X'BO'| CALL (3) | TR | s 
bn n ve A nS AN Z e EN REM dll. J d. ur 
L'4* DC AL2(0) = 0 
DC AL2 (4096) = 4K Figure 1. Macro Keys and Corresponding 
DC AL2 (8192) = 8K ProcesSing Routines (MATAB) 
DC AL2 (12288) = 12K 
DC AL2 (16348) = 16K 
DC AL2 (18396) = 18K SHIFT -- TG 
DC AL2 (20480) = 20K 
DC AL2 (22528) = 20K This is a subroutine used by the decimal 
DC AL2 (24576) = 2UK arithmetic macros. For details refer to 
DC AL2 (26624) = 26K the section The Macros and the Generated 
DC AL2 (28672) = 28K Code. 
DC AL2 (30720) = 30K 
L'6' DC AL2 (0) 
DC AL2 (0) LAREG -- TS 
This is a submacro used by the routines 
AREXHE and CALL. It causes the generation 
of a sequence of "LA REG,OP" instructions. 
DESCRIPTION OE ROUTINES 
Note: The routines HUI and HUE are des- HEINS 
cribed in phase E60. 
This routine is used for inserting operands 
After initialization, filling of the buf- in a fixed set of code and moving this code 
fers, and the generation of the address onto the text output medium. The code to 
constants for the storage blocks (0K, 4K, be generated is also given in the flow 
8K, etc.), the text is scanned for macros. charts. 
Each macro key detected is translated into 
an address W and an integer Z. If Z = 0, 
i.e., if the macro is to be processed in HMOCO 
this phase, W gives the address of the 
routine that determines the code to be This routine is used to move a given Set of 
generated. code onto the text output medium. 
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Most of the macros are processed in the 
second generator phase. Therefore, the 
phase may make multiple passes over the 
text string and include multiple changes of 
the model-instruction dictionary. In the 
first generator phase, the needed passes of 
the second generator phase are determined 
and noted in a table. Only the phase over- 
lays given by this table are used in the 
Second generator phase. 


Phase E60 processes only those macros 
that allow a single algorithm for handling 
indirect addressing, code generation, and 
inserting of the operands. 


The needed code is determined by the 
work done on the macro-definition header. 
If a set of code is determined, a branch is 
made from the macro-definition header to a 
model-instruction set. The model- 
instruction set gives the information for 
inserting the operand and for the treatment 
of indirect addressing. 


The algorithm for the second generator 
phase may be separated into several parts: 


1. Determination of the phase overlays.0 
The phase overlays (phase E61) contain 
parts of the model-instruction 
dictionary. These phase overlays may 
not all be necessary. In the first 
generator phase the needed parts of the 
model-instruction dictionary are noted 
in a table. The table is used for the 
determination of the phase overlays. 


2. Scan of text string. 
The number of different elements is 
reduced in the first generator phase. 
In the second generator phase, the text 
string may consist of: 
a. Macros 
b. Code 
C. Variable tables 
d. Constant tables 

DESCRIPTION OF ROUTINES 


Symbols Used in Flow Charts 


X : input pointer 

Y : output pointer 

S : buffer index 

B(S): Start address of buffer (S) 

L : length of text element 

RC =: condition code set by the machine 

R : register used for indirect addressing 


HDETER -- UC, UD 


After a macro is detected, it must be det- 
ermined whether the macro can be generated 
in the current pass or not. If the macro 
can be generated, the code required for the 
macro is determined by the work done on the 
macro-definition header. The macro- 
definition header consists of instructions, 
(described in the section The Macro 
Definition Header) giving information for 
selecting model-instruction sets. The code 
generated for one macxo may consist of more 
than one model-instruction set. 


INSERT -- UE, UF 


A model-instruction set determined by the 
macro definition header contains no com- 
plete code. Some operands of the instruc- 
tions must be taken over from the operand 
list of the macro. The information for 
this process is given in the model- 
instruction set, too. After inserting the 
operands, the generation is continued in 
the macro-definition header. 


HOPE -- UG 
Secondary entry point: HOPEI 


This routine is used for moving the 
Operands depending on the three parameters 
P, M, and LM. For details on these 
parameters refer to the section Model 
Instruction Sets. The routine HINAD is 
called for operands that refer to variables 
or constants. 


HINDAD == UH 


A requirement for the use of indirect 
addressing is indicated in byte 6 of the 
corresponding operand. The significant 
bits of this byte are: 


Bit 1: 1 = CONTROLLED 
Bit 3: 1 = EXTERNAL 0 = INTERNAL 
Bit 5: 1 = PARAMETER (formal) 


If an operand OPX is controlled by B 
(OPX CONTROLLED (B)), OPX is replaced by B. 
The corresponding byte (6) is also changed; 
however, bit 1 is not changed. 


Code Used with Indirect Addressing 


Suppose that in the code there appears an 
instruction A WR,OPX where OPX requires 
indirect addressing. The code which repla- 
ces the above instruction is shown in Fig- 
ure 1. 
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nnn pn NN 7 HUES : used for skipping in the input 
| OPX- | CODE | text. . | 
Se no | HUEI : used for moving from input buffers 
| PARAMETER | L REG, OPX | to any location except output buf- 
| | A WR, O (REG) | fer. 
H—-------------- j-.--.]----------------------- 4 HUEO : used for moving from any location 
| EXTERNAL | L REG, AOP | except the input buffers into the 
| | A WR, O (REG) | putput buffer. 
| | ‘ 5 | HUEIO :used for moving from the input 
| | : è | buffers into the output buffer. 
| | . . | 
| | A ‘ | The following parameters are used: 
| | AOP DC A (OPX) | 
——————--—--—----- Hom e nn no) X =FROM address 
| CONTROLLED (B) | L REG, B | Y =TO address 
| | A WR, O (REG) | L =length of text to be moved or 
I-------------- Hom nn o M 4 skipped 
| CONTROLLED (B) | L REG, OPX | B(S) or BS = index of buffer being used 
|and B = | L REG, O (REG) | BUFL = length of buffers 
| PARAMETER | A WR, O (REG) | 
~------------- }-~-----~-------------------4 
{CONTROLLED (B) | L REG, AOP | HMOVE -- UL 
land B - | L REG, O (REG) | | 
|EXTERNAL | A WR, O (REG | This routine is called by HUE for moving L 
| | ; 5 | bytes of information from address X to 
| | å ś | address Y. L may be greater than 256 
| | 5 " | bytes. 
| | . . | 
| | AOP DC A  (B-1) | 
p-------------- doi nn 4 MASURO 
| Note: The following cases are invalid: | 
| | At this point, control is transferred to 
| OPX = PARAMETER and EXTERNAL | the address contained in the address con- 
| = EXTERNAL and PARAMETER | stant. For details, refer to General Des- A 
| — PARAMETER and CONTROLLED | cription of the Generator Phases, under Bus 
| = CONTROLLED (B) where B | Operations, macro subroutine. 
| itself is CONTROLLED | 
du m A 1 The routines branched to handle all 
cases that occur rarely and are not handled 
Figure 1. Code Used with Indirect Address- by operations and instructions contained in 
ing the model instruction set. 
LOAD 
HUE -- UJ, UK 
This is a supervisor macro, which is used 
The routine has four entry points: in this phase. 
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This phase performs the functions discussed 
in the subsequent paragraphs. For further 


ae ee — eU A À— a À— UEM MÀ M—— P$ e CORY R A € RZA OE NA 


below. 
Text Scan. The text-input string is 
Scanned for constants and generated varia- 
bles. When constants or generated varia- 
bles are found, they are written onto a 
work file as the prestatement table PRETAB. 
Assembler instructions are written onto the 
text-output file TXTOUT. 

PRETAB Scan.  PRETAB is scanned for gener- 
ated variables. These variables are con- 
verted to entries for DSTAB. A DSTAB entry 
contains the following information: 


Byte (s) Contents 


0-1 Internal name of the variable. 
253 Length of the variable during object 
time. 
4 Block and level number 
5 Attributes as follows: 
Bit Indication 
0 O = AUTOMATIC 
1 = STATIC 
1-3 000 = Scalar variable 
001 = STRUCTURE 
010 = ARRAY 
100 = Pointer 
111 = Parameter 


4-7 Left-hang bits if STRUCTURE 


DSTAB entries are written on TXTOUT as 
the output buffer is filled. 


Any constants in PRETAB are written on 
the text input file (TXTIN) following the 
assembler instructions. 

SYMTAB Scan. (For generation of the symbol 
table, refer to phase B20.)  SYMTAB is 
Scanned for variables for which STATIC or 
AUTOMATIC storage is to be allocated. 

These variables are converted to DSTAB 
entries as described above and written on 
TXTOUT. 


DSTAB entries for the abovementioned 
variables are also written, as table DSTAB, 
on the work file. 


Sorting Constants. The constants written 
on TXTIN during the PRETAB scan are sorted 
in the following order: 


1. Constants or address constants that are 
not optimizable. 


2. Optimizable address constants. 
3. Optimizable 8-byte constants. 
4. Optimizable 4-byte constants. 
5. Optimizable 2-byte constants. 
6. Other optimizable constants. 


The sorting of constants is accomplished 
by 6 scans through the unsorted constants 
on TXTIN. The first scan is for constants 
and address constants which cannot be 
optimized. Any such constants are written 
on the work file. 


The second scan is for optimizable 
address constants, and these constants are 
written on the work file. This procedure 
is continued for the remaining types of 
constants as shown above. At the end of 
the sixth scan, all constants are written 
on the work file in the abovementioned 
order. 


Phase Input and Output 


The input for this phase is a text string 
containing Assembler code, constants, and 
generated variables. 


Assembler Instructions. The format of 
these instructions is as follows: 


porem qoe IE ee Me re ee ee ee 
|Key |Length of following|One or more 


[Assembler 
|instructions 


[X'F6'|instructions + 3 


Generated Variables. These entries have a 
fixed length of eight bytes and appear in 
the text string in a format as follows: 
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| Key Tengen of tolicsing[one or more 
kai ARIA i + 3 > byte entries 


Each entry contains the following infor- 
mation: 


Byte (s) Contents 


0-1 Internal representation of the name. 
2 Bit Indication 


0-3 Reserved. 
4-7 Internal length of the varia- 


ble. 
3 0 0 = AUTOMATIC 
1 = STATIC 
1 not used 
2 1 = POINTER 
3-5 not used 
1 = DELETE 
7 1 = CONSTANT 0 = VARIABLE 
4 0-4 not used 
5 1 = LABEL 
6-7 not used 
5 0-2 not used 
3 1 = string data 
4 1 = BIT string 
0 = CHARACTER string 
5 1 = FIXED 
0 = FLOAT 
6 1 = BINARY 
O = DECIMAL 
7 not used 
6 If character-string type data: 


length of string. 
7 0-1 block level 
2*9 | block number 
Constants.  Constants that are to be allo- 
cated storage in STATIC storage during 
object time appear in the following format: 


pi n RETE o TQ | — ee — a —X X ewe MÀ SED eee LU  A— € w mam oe 


| Key 1Eength of Pol towing One or more 
px" ub iia + 3 | constants 
AA AA d ee Mis M — — 


Each constant has the following format: 


Byte (s) Contents 


0- 1 Internal name of the constant 
2 Attributes as follows: 
Bit Indication 
0-1 00 = X-type DC 
01 = A-type DC 
10 = V-type DC 
11 = AL3-type DC 
273 00 = Optimizable 
01 = To be deleted 


Not optimizable, but 
containing block is 
optimizable 

Not to be deleted. 


— 
-— 
I! 
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4 1 = V-type constants of a 
length of three bytes 
5 1 = word boundary if not 
optimizable. 
6-7 00 = not used 
01 = A-type DC for label 
assignment 
10 = A-type DC for an entry 
point 


11 = double-word boundary if 
not optimizable 

3-1 Length of constant (if an address 
constant, the length must be four 
bytes). 

5-n Internal representation of constant 
or, if an address constant, name and 
modifier. 


Symbol Table SYMTAB. The entries of this 
table have a fixed length of 20 bytes each. 
For further information about table SYMTAB 
See the description of the generation of 
the table in the preceding phases. 


Output of the Phase: 


1. A text string on TXTIN containing 
Assembler code only. 


2. Table DSTAB on a work file. This table 
contains generated and declared varia- 
bles, for which STATIC or AUTOMATIC 
storage is to be allocated. 


3. Constant table CONTAB on the work file. 
This table contains the constants in 
Sorted order. 

DESCRIPTION OF ROUTINES 


Symbols used in flow charts: 


INPT : input pointer for text 

INPO : input pointer for text 

BUFFL : buffer length 

BULE : buffer length 

EOP : end of program 

OPT1 : output pointer for text 

OPT2 : output pointer for text 

REC : number of records required from 
text input 

RECLE : record length 

COMPL : length of available input area 

RECN : record counter for DSTAB 

LENGTH: length of variable 

DSTA : buffer for DSTAB entry 


Text Scan -- XA through XF 


The text string to be scanned contains 
1. Assembler code (key = X'F6'), 
2. generated variables (key = X'FO'), 
3. constants (key = X'F3'), and 


4. end-of-program key X'FF'. 
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Each key, except the end-of-program key, 
is followed by 2 bytes containing the skip- 
pable length. When the text scan is com- 
pleted, a text string containing Assembler 
code, excluding keys and skippable length 
indications, on TXTOUT and the table PRETAB 
on the work file are provided for further 
processing. 


The text string is consecutively read 
into input buffers BUFF1 and BUFF2 and 
processed as follows: 


1. Assembler instructions (key X'F6' and 
no Skippable length) are moved into 
OBUF1 and written on TXTOUT. 


2. A constant or a generated variable 
causes the program to branch to the 
subroutine CONVAR. This routine moves 
the string of constants (or generated 
variables) into OBUF2 and writes them 
on the work file as table PRETAB. 


3. When the end-of-program key is encoun- 
tered, the records in OBUF1 and OBUF2 
are written out and control is passed 
to the routines that cause the table 
PRETAB to be scanned. 


INITIAL1 -- XB 
This subroutine sets the input and output 
pointers (INPT, OPT1, and OPT2 to 0 and 
calculates the buffer addresses. 


IXTIN -- XC 


This subroutine reads text from TXTIN into 
the input buffers as determined by paramet- 
er REC. 


WAIT1 -- XC 


This subroutine tests whether or not the 
next text record is ready for processing. 
If not, the subroutine loops until the I/O 
instruction is completely executed. 


ASSCODE -- XD 
This subroutine causes Assembler code, 
excluding the key X'F6' and the skippable- 
length value to be moved into OBUF1, 


If OBUF! are full, its contents is 
written on TXTOUT, output pointer OPT! is 
reset to zero, and Assembler code is moved 
into the next buffer. If OBUF1 is not 
full, the routine only increases OPT1 by 
the length of the Assembler code moved into 
the buffer. 


OUTASS -- XD 

This subroutine writes the contents of 
OBUF1 on TXTOUT. OBUF1 contains Assembler 
code. OPT1 is reset to 0. 


CONVAR -- XE 


Entry point: PRET. 

This subroutine controls the writing of 
constants and of generated variables on a 
work file. If the length of the string to 
be written exceeds the length of the input 
buffer, the string is written out in sec- 
tions. 


PRET -- XF 


This subroutine causes the constants or 
generated variables to be moved from the 
input buffers into OBUF2. If the length of 
the constants (or variable) string to be 
moved exceeds the length of OBUF2, the 
String must be written out in sections. 


Constants or variables are moved into 
OBUF2 until this output buffer is full. 
The output buffer is then written onto the 
work file. 


PUTPRE -- XF 


This subroutine writes the contents of 
OBUF2 on the work file and resets OPT2 to 
0. 


SKIPIN -- XG 


This subroutine increases INPT by the skip- 
pable length. If necessary, read-in of the 
next record into input buffer 2 is initiat- 
ed. 


PRETAB Scan -- XH through XO 


The data contained in PRETAB (on a work 
file) is scanned. This data consists of 
constants and generated variables. The 
format of the PRETAB entries is the same as 
described for constants and general varia- 


bles under Phase Input and Output). 
The End-of-PRETAB key is X'FF'. 


When the PRETAB scan is completed, one 
6-byte DSTAB entry is provided for each 
entry in PRETAB. In addition, all con- 
Stants are written (unsorted) on TXTIN 
following the program string. 


The data contained in PRETAB is consecu- 
tively read from the work file into the 
input buffers. Each generated variable is 
converted to a 6-byte DSTAB entry by the 
subroutine GENVAR and written on TXTOUT. 
Constants are written on TXTIN. When the 
End-of-PRETAB key is encountered, control 
is transferred to the routines that scan 
SYMTAB. 


INITIAL2 -- XI 


This subroutine calculates the addresses 
for the input and output buffers. The 
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input and output pointers are set to 0 and 
the parameters for the input and output 
routines are set to their initial values. 


GETPRE -- XJ 


This subroutine reads PRETAB from the work 
file into the input buffers as determined 
by parameter REC. 


WAIT2 -- XJ 


This subroutine controls the processing of 
input buffer BUFF1 and loops until the I/O 
operation to fill buffer BUFF2 is complet- 
ed. 


GENVAR -- XK 


This subroutine converts the entry for the 
generated variable in PRETAB to a 6-byte 
DSTAB entry. 


RTESTIN -- XL 


This subroutine determines if the next 
PRETAB record is to be read or if a waiting 
loop is to be entered to wait for the com- 
pletion of the preceding I/O instruction. 


OPT => XM 


This subroutine causes the DSTAB entry for 
the variable to bé moved into the output 
buffer area and OPT1 to be increased by 6. 
If OPTÍ is greater than the buffer length, 
subroutine DSPUT is called. 


DSPUT -- XM 

This subroutine causes the contents of 
OBUF1 to be written on TXTOUT. The con- 
tents of OBUF2 are moved to OBUF1. OPT1 is 
updated. 


CONSTA -- XN 


This subroutine controls the writing of the 
constants on TXTIN. 


OUT -- XN 

The subroutine causes the constants to be 
moved from the input area to the output 
buffer area. Additional control functions 
are required for strings greater than the 
buffer area. 

PUTCO -- XO 

This subroutine causes the contents of the 
output buffer which contains constants to 
be written on TXTIN. 

SKIPRE -- XO 

Input pointer INPT is increased by. buffer 
length and set to the next key in PRETAB. 
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PRETEND -- XO 

The end key X'FFF' of the constant table is 
moved into the output buffer and the last 
record of constants is written on TXTIN. 


SYMTAB Scan -- XP through XY 


Symbol table SYMTAB is consecutively read 
into input buffers BUFF1 and BUFF2 and 
processed as follows: 


1. Variables, for which no storage will be 
allocated in STATIC or AUTOMATIC stor- 
age, are skipped. 


2. Variables for which storage must be 
allocated cause the following informa- 
tion to be moved into the output buf- 
fer: 


a. Internal name of the variable. 

This name is contained in bytes 2 
and 3 of the SYMTAB entry. 

b. Length of the variable. In case of 
a character string, the length is 
contained in byte 8. Otherwise in 
byte 4 (bits 4 through 7). For 
structures, the length is contained 
in bytes 12 and 13. For arrays, 
the length of the array element 
must be multiplied by the number of 
array elements. 

C. Block and level number. 

d. Special attributes required during 
storage allocation. 


3. If an end-of-block key is encountered, 
a new record must be read because the 
next SYMTAB entry is in the new record. 


4. When the end key of SYMTAB is encoun- 
tered, the TXTOUT tape is rewound and 
the 6-byte entries are read into BUFF1 
and written on the work file as table 
DSTAB. 


INITIAL3 -- XQ 


This subroutine causes the parameters 
required to perform the SYMTAB scan to be 
set to their initial values. 


GETSYM -- XQ 


This subroutine causes SYMTAB to be read 
into the input buffers as determined by 
parameter REC. 


INCR adm XO 


Input pointer INPT is increased by the 
length of the SYMTAB entry. If the value 
of INPT exceeds the buffer length, the 
contents of BUFF2 are moved to BUFF1 and 
the next SYMTAB record is read. 





i 
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ALLOC -- XR 


Lodi 


The subroutine tests the SYMTAB entry. If 
it is a variable for which storage must be 
allocated in STATIC or AUTOMATIC storage, 
the subroutine ALLVAR is called. Other- 
wise, the entry is skipped. 


ALLVAR -- XS 


This subroutine generates a DSTAB entry for 
the variables in SYMTAB that require stor- 
age to be allocated. For the information 
contained in a DSTAB entry, refer to the 
introductory paragraphs of this section. 


DSEND -- XT 


This subroutine causes (1) the end-of-DSTAB 
key (X'FFFF') to be moved into the output 
buffer and (2) the last DSTAB record to be 
written on TXTOUT. 


PUTNV -- XT 


This subroutine reads DSTAB from TXTOUT 
into the input buffer and causes the 
entries to be written out on the work file. 


Sorting Constants -- XU through XY 


All constants that are included in the text 
string from TXTIN are sorted in the order 
described in the introductory paragraphs of 
this section. For the format of the con- 
tents and the type of information they 
contain, refer to Phase Input and Output. 
The overall functions for the sorting of 
constants are as follows: 


1. The TXTIN tape is rewound and the table 
of constants is scanned for constants 
that cannot be optimized and for 
address constants. The constants are 
read consecutively from TXTIN into 
BUFF1 and BUFF2; the attribute byte is 
tested and, if the constant cannot be 
optimized, moved into the output buffer 
(See subroutine OUTPUT) from which 
blocks of sorted constants are written 
on the work file. If the attribute 
byte indicates that the constant can be 
optimized, control is transferred to 
the subroutine SKIP in order to skip 
the constant by increasing the value of 
INPT accordingly. 


2. When the end-of-constant key is encoun- 
tered, the TXTIN tape is rewound and 
the table of constants is scanned for 
optimizable address constants. 


3. This procedure of rewinding the 
TXTIN tape and scanning the table of 
constants for a specific type of con- 
Stants is repeated until all constants 
have been written on the work file in 
the desired order. 


Flow charts XU and XV show the main 
functions to be performed to properly sort 
the constants. 


This subroutine causes (1) the buffer 
addresses to be calculated and (2) the 
parameters required to write out the sorted 
constants on the work file to be set to 
their initial values. 


GETIN -- XW 


This subroutine causes (1) the TXTIN tape 
to be rewound to the beginning of the first 
constant by means of a POINT macro and (2) 
the subroutine GECON to be called. 


GECON -- XW 


The input buffers are filled as determined 
by the value of REC. 


OUTPUT -- XX 


This subroutine tests the constant to 
determine if the DELETE bit is set. If 
this bit is set, the constant is skipped. 
If the delete bit is not set, the subrou- 
tine causes the constant to be moved into 
the output buffer and OPT1 to be increased 
by the length of the constant. If the 
value of OPT1 is greater than the buffer 
length, the contents of the output buffer 
are written out on the work file. 


COUT -- XX 


This subroutine writes the contents of the 
output buffers on the work output buffers 
to be written on the work file. 


SKIP -- XY 


INPT is increased by the length of the 
constant. If its value is greater than the 
buffer length, the next record is read from 
TXTIN. 


CONEND -- XY 


The end key for the constant table CONTAB 
is moved into the output buffer and the 
records in the output buffer that have not 
yet been written out are written on the 
work file. 
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PHASE PL/IF35 (OPTIMIZATION OF CONSTANTS) -- YA 4: 


During phase PL/I F25, the constants were 
sorted into the table CONTAB in this order: 


1. Constants and address constants that 
are not optimizable. 


2. Optimizable address constants. 


3. Optimizable 8-byte constants. 


4. Optimizable 4-byte constants. 
5. Optimizable 2-byte constants. 
6. Other optimizable constants. 


Constants that are not optimizable are 
allocated storage in the order as they are 
written in the table. 


| Constants are compared for identity. If 
two constants are equal, storage is allo- 
cated only to one constant and an equate 
entry is made for the other. An equate 
entry has following format: 


Byte (s) Contents 


0-1 Name of equated constant. 

2=3 Name of based constant (storage 
allocated). 

4-5 Modifier of based constant. 


The modifier indicates an offset as 
shown by the example below: 


DC C'ABCDEFGH' 


Constant (A) : 
: DC C'EFGH' 


Constant (B) 


Constant B is contained in constant A. 
In this case, constant B is flagged by the 
DELETE bit and an equate entry B EQU A+4 is 
generated. 


The constants are read from the work 
file into the table space. If the con- 
Stants do not fit into the table space, the 
constants are optimized only within the 
limits of this area. 


The equate entries are moved into the 
output buffers and are written on TXTOUT. 
After all constants contained in the table 
area have been tested for identity, these 
constants are written on TXTIN following 
the program string. The next part of CON- 
TAB is read into the table space and proc- 
essed as described above. This procedure 
is repeated until the end of CONTAB is 
reached. 
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All equate entries that have been gener- 
ated are read from TXTOUT into the input 
buffers and written as table CONEQU on the 
work file. 


Those constants which were written out 
on TXTIN are (1) read into the input puf- 
fers, (2) moved into the output buffers if 
they do not have a DELETE bit, and (3) 
written on the work file as new constant 
table CONTAB. 


Phase Input and Output 


The input for this phase are the constants 
contained in the table CONTAB on the work 
file. These constants are sorted in the 
order as described in phase F25. 


The output consists of the following: 


1. Equate table CONEQU on the work file. 
This table contains 6-byte entries as 
follows: 


Byte (s) Contents 


0-1 Name of equated constant. ZEE 

2-3 Name of based constant (for xs 
which storage is allocated). 

4-5 Modifier of based constant. 


2. Constant table CONTAB on the work file 
containing only those constants for 
which storage must be allocated. The 
format of the constants in this new 
CONTAB is the same as for the constants 
in the input table CONSTA. 


STORAGE AREAS 


The subsequent paragraphs describe the 
storage areas used during this phase. Fig- 
ure 1 shows the layout of these areas. The 
following symbols are used: 


TS Begin-address of table-space area 

TS1 TS * one buffer-length | 

BUFF1 Begin-address of buffer area 

TS8 TS + 12 buffer-lengths 

TSE TS * 13 buffer-lengths 
table-space area 

OBUF1 Begin-address of first of two 
output buffers (same as TSE) 


(end of 


The constant table CONTAB is read from 
the work file into the table space TS up to 
quos 





During initialization, INPT1 is set to 
point to the first constant, i.e., to TS. 
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1 
TS ===>] | 
| | 
TS1 ---»L---- | 
| | 
MA S 
| Table | 
E---- ----4 
| space | 
|-— ----{ 
| | 
|--— -—— 
| | 
Po 2- 1 
| | 
}---- ----4 
| | 
|---- ----{ 
| | 
}---- ----4 
| | 
BUFF1 ---»[---- aj 
| | 
}---- ---- 
| | 
TS8 —-->}---- ----f 
TSE A 1 
(OBUF 1) | 
| HF---- Output buffers ----4 
AA 
Figure 1. Layout of Storage Areas 


The constants in the table-space area 
are then compared with each other. If 
identical constants are found, an Equate 
entry is generated and written on TXTOUT. 
If all constants in the table-space area 
are optimized, these constants are written 
on TXTIN following the end of the program 
string. The constants between TS8 and TSE 
are moved to TS, INPT1 is updated and, if 
not all of the constants have yet been 
processed, the table-space area is filled 
with the following part of CONTAB beginning 
at TS. This procedure is repeated until 
all constants have been optimized. 


DESCRIPTION OF ROUTINES 


Symbols used in flow charts: 


LCON : Length of table CONTAB 
INPT : input pointer 
INPO : input pointer 


REPO1: Record counter 


REPO2: Record counter 

OPT : Output pointer 

TSO : Pointer in table space 
TS1 : Pointer in table space 
INITIAL -- YB 


This subroutine calculates the addresses of 
the input and output buffers and sets the 
pointers to their initial values. 


FILL -- YB 


This subroutine reads from the work file 
into the table space. This causes eight or 
nine buffers to be filled with constants 
from CONTAB. 


SAVE -- YC 


INPT2 is set to INPT1 + 5 + the length of 
the constant; thus, INPT2 points to the 
address of the next constant. This address 
is stored. 


TEST -- YC 


This subroutine determines the type of the 
constant INPT1 points to and transfers 
control to the appropriate subroutine. 


NOTOPT -- YD 


This subroutine scans the table space for 
optimizable blocks of constants. If two 
blocks of constants compare equal, an 
equate entry is generated. 


ADCON -- YE 


This subroutine scans the table space for 
identical address constants. Two address 
constants are equal if (1) they have ident- 
ical types and (2) they are identical in 
bytes 5 through 9. In this case, the 
equate information is moved into the output 
buffer and written on TXTOUT when the out- 
put buffer is full. 


OPTIM8 -- YF 


This subroutine compares the base constant 
with all constants that have a length of 
eight bytes or less. The base constant is 
pointed to by INPT1.  Constants of a length 
of two, four or eight bytes are compared 
only for identical boundary alignment. The 
compare operation is terminated when the 
end of CONTAB or the end of the table space 
is reached. 


OPTIM4 -- YG 


Constants of a length of less than five 
bytes are compared with the base constant. 
The base constant, which is pointed to by 
INPT2, has a length of four bytes. Con- 
Stants of a length of two bytes are com- 
pared only for identical boundary align- 
ment. Also, the constants are compared 
only within the limits of the table Space. 
If an identical constant is found, control 
is transferred to the subroutine EQU. 


MOD -- YG 
This subroutine updates the input pointer 


INPTO and the modifier MODIF. 
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OPTIM2 -- YH 
When this subroutine is entered, INPT1 
points to a 2-byte base constant.  INPT2 


points to the constants the base constant 
is compared with. 


If a subsequent constant has a length of 
two bytes or only one, this constant is 
compared with the base constant. If the 
two constants compare equal, a DELETE bit 
is set and an equate entry is moved into 
the output buffer. 


The compare operation is terminated when 
the end of the table space or the end of 
CONTAB is reached. 


OPTIM -- YI 


Constants of a length other than eight, 
four, or two bytes are compared with each 
other. 


Two constants are considered to be equal 
if they are identical in length and if 
their internal representations are the 
same. In this case, an equate entry is 
moved into the output buffer and control is 
transferred to the subroutine EQU. 


The compare operation is terminated when 
the end of CONTAB or the end of the table 
Space is reached. 


EQU -- YJ 


The subroutine causes the equate informa- 
tion, i.e., the name of the equated con- 
Stant, the name of the base constant, and 
the modifier, to be moved into the output 
buffers. The output pointer OPT is 
increased by 6 and, if the value of OPT 
exceeds the buffer length, control is 
transferred to the subroutine. 


EQUOUT -- YJ 
The contents of OBUF1 are written on 


TXTOUT.  OBUF2 is moved to OBUF1 and OPT is 
updated. 
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CONOUT -- YK 


This subroutine causes the constants con- 
tained in the table space to be written on 
TXTIN following the end of the program 
string. 


EQUSR -- YK 


The TXTOUT tape is rewound and the equate 
entries are read from TXTOUT into the input 
buffer and then written on the work file as 
table CONEQU. 


CONSCR -- YL 


This subroutine causes the TXTIN tape to be 
positioned to the beginning of constants 
following the program string. The con- 
stants are read into the input buffers and 
tested for DELETE bits.  Constants without 
a DELETE bit are moved to the output buf- 
fers and written on the work file. Con- 
stants with a DELETE bit are skipped. 


SKIP -- YL 


The input pointer INPT is increased by the 
length of the constant. If the value of 
INPT exceeds the buffer length, BUFF2 is 
moved to BUFF1. The next block of records 
is read from TXTIN and INPT is updated. 


PUTOUT -- YM 


The subroutine causes the output pointer 
OPT to be increased by the length of the 
constant. If the value of OPT exceeds the 
buffer length, the contents of OBUF1 are 
written on the work file. The contents of 
OBUF2 are moved to OBUF1 and OPT is updat- 
ed. 


PUT -- YM 

This subroutine causes the records con- 
tained in OBUF2 and not yet written out to 
be written on the work file. 


GETCON -- YN 


This subroutine causes constants from CON- 
TAB to be read into the table space. 
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PHASE PL/IP75 (STORAGE ALLOCATION) -- YO 


Storage to be allocated may be STATIC or 
AUTOMATIC. This section describes how 
STATIC or AUTOMATIC storage is arranged and 
how these types of storage are allocated. 


Static Storage 


At object time, STATIC data is arranged as 
shown in Figure 1. 


prove up cd ud E onse: 1 
| Not Optimizable Constants | 
po 1 
| Optimizable Constants | 
po — ——— { 
| Simple Variables | 
——— ——————— 1 
| Arrays | 
| -------------~--------------~-----~-~----- { 
| Structures | 
AA A E A el TEE POR ARNE Se Se (On EOE ERI J 


Figure 1. Arrangement of STATIC Storage 


Each invocation of a procedure or BEGIN-END 
block at object time requires a DSA 
(Dynamic Storage Area). The DSA consists 
of a block of storage aligned at a double- 
word boundary. The size of DSA is deter- 


mined by the size of its fields. Figure 2 
shows the arrangement of a DSA. 

aM EP dC MCI dC CE GM CUI CE 1 
| Fixed Area | 
}~---------------------------------------~- 4 
| Parameters | 
| ----~-------------~---------------------- { 
| Variables and Work Storage | 
| ------~--------------------+-----------~- { 
| Arrays | 
po ————————— { 
| Structures | 
ee ee MR eee 1 


Figure 2. Arrangement of a DSA 

The fixed area contains the length of 
DSA and a register save area. The length 
of the fixed area is always 88 bytes. 


Storage Allocation 

Storage is said to be allocated for a vari- 
able or a constant when a certain region of 
Storage is assigned to the variable (or 
constant). 


Storage Allocation for Constants from 
CONTAB 


The constant table CONTAB (for generation 
See phase F35) is consecutively read into 
the input buffers. The location counter 
for STATIC storage (LCST) is set to O0 
before the allocation of storage is started 
for the first string of data from CONTAB. 


For each constant, an entry for the 
offset table OFFTAB1 is generated and moved 
into the ouptut buffer. The format of an 
OFFTAB1 entry is as follows: 


Byte (s) Contents 
0-1 Internal name of constant. 
273 Offset (= location counter LCST). 
4 Attribute byte (for constants, this 


byte contains only the STATIC bit, 
ewa DIe A ESA) 


Before the value of the location counter 
js moved into the output buffer, this value 
is set to a specific boundary, if required. 
Following the move operation, the location 
counter is increased by the length of con- 
stant and the OFFTAB1 entry for the next 
constant is generated. This procedure is 
repeated until one OFFTAB1 entry has been 
generated for all constants in CONTAB. The 
generated OFFTAB1 entries are written on 
TXTOUT as the output buffer is filled. 


Storage Allocation for Character- String 
Constants in CARTAB 


These constants, which are contained in the 
work file, are chained together and handled 
as one constant. The name of this constant 
is a reserved name and has the internal 
representation 3. The length of CARTAB is 
contained in the interphase communication 
region. 


To allocate storage for these constants, 
an OFFTAB1 entry is moved into the output 
buffer and the location counter is 
increased by the length contained in the 
communication region. 


Storage Allocation for STATIC and AUTOMATIC 
Variables 


The table DSTAB contains entries for the 
STATIC and AUTOMATIC variables. These 
entries are not sorted. In order to allo- 
cate the variables in the order as des- 
cribed above, several passes through DSTAB 
are required. In the first pass, Storage 
is allocated for parameters; passes 2 
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through 5 allocate storage for 8-byte, After the OFFTAB1 entry has been moved 


U-byte, 2-byte, and other scalar variables. into the output buffer, the value of the d 
Pass 6 allocates storage for arrays and location counter is increased by the length a 
pass 7 for structures. of the variable and the next DSTAB entry is 
tested. 
The number of procedures or BEGIN-END When the end of DSTAB is reached, the 
blocks in the compilation was stored in the next pass is started to allocate storage 
interphase communication region during for the U-byte variables. 
phase A50. 
The remaining passes handle storage 
At the outset of storage allocation, allocation in the same way as the second 
location counters are provided for each pass. Each time, all DSTAB entries are 
block. These location counters (LC1 tested for the desired type of variable, 
through LCn) are initially set to 88, which and the OFFTAB1 entries for variables, 
is the length of the fixed area in a DSA. arrays, or structures are moved into the 
During the first pass, DSTAB entries are output buffer and written on TXTOUT. 
consecutively read into the input buffers. 
For each parameter encountered, an OFFTAB1 Phase Input and Output 
entry is generated as follows: 
Input: 
Byte (S) Contents 
1. Constants 
0- 1 Internal name of parameter The constant table CONTAB, which was 
273 Offset (value of location counter written on the work file during the 
for the block) preceding phase.  CONTAB contains all 
n Attributes: declared and generated constants, 
except user-defined character-string 
Bit Indication constants.  CONTAB is used to allocate 
0-1 Level number storage for the constants. The format 
2 1 = STATIC, of CONTAB is described in phase F25. 
0 = AUTOMATIC 
3-7 Set to 0. 2. Character String A 
The user-defined character-string con- un 
A 


The information contained in bytes 0, |, 
and 5 is taken from the DSTAB entry. In 
addition, the DSTAB entry contains the 
block number used to find the proper loca- 
tion counter. 


After the OFFTAB1 entry has been moved 
into the output buffer, the value of the 
location counter is increased by the length 
of the parameter and the next variable is 
tested for being a parameter. This proce- 
dure is continued until the end of DSTAB is 
reached. The generated OFFTAB1 entries are 
written on TXTOUT as the output buffer is 
filled. 


During the second pass, the DSTAB is 
Scanned for 8-byte variables. Each 8-byte 
Variable encountered is tested to determine 
whether it is STATIC or AUTOMATIC. If it 
is STATIC, the value of the location coun- 
ter LCST for STATIC storage is moved into 
the OFFTAB1 entry; otherwise, the value of 
the location counter for the associated 
block is moved into the OFFTAB1 entry. 


Before the value of the location counter 
is moved into the output buffer, this value 
is set to the next double-word boundary, if 
necessary. 


The format of an OFFTAB1 entry for an 


8-byte variable is the same as for an 
OFFTAB1 entry for a parameter. 
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Stants were gathered in one string and 
written on the work file as table CAR- 
TAB during a phase A45. For storage 
allocation, only the length of the 
character string is required. The 
length is stored in the interphase 
communication region. 


3. Variables 
During phase F25, the table DSTAB was 
built up. This table contains one 
entry for each variable for which stor- 
age is to be allocated in STATIC or 
AUTOMATIC storage. For a description 
of this table see the section describ- 
ing phase F25. 


Output: 


1. Offset table OFFTAB! on TXTOUT. The 
format of OFFTAB1 entries has already 
been described. 


2. Block table BLTAB on the work file. 
This table contains the lengths of 
DSA's aligned at double-word boundary. 


DESCRIPTION OF ROUTINES 


Flow chart ZA shows the main functions for 
the allocation of storage for constants; 
flow chart ZH for the allocation of storage 
for variables. 
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Symbols used in flow charts: 


INPT input pointer 
OPT output pointer 


BUFFL buffer length 

LCST location counter for static storage 

LOCO location counter for static storage 

REC number of work file records request- 
ed 

Storage Allocation for Constants -- ZA-ZG 


CONTAB is read consecutively into input 
buffers BUFF1 and BUFF2. At the beginning, 
input pointer INPT points to the first 
constant. The location counter LCST for 
STATIC storage is set to 0. 


For each constant, an OFFTAB1 entry is 
generated and moved into the ouput buffer. 
Ihe value of the location counter LCST, the 
name of the constant, and the STATIC bit 
are moved into the output buffer. The 
value of the location counter may have to 
be set to the required boundary before the 
move operation is executed. The value of 
the location counter is increased by the 
length of the constant and the next con- 
Stant is processed. The OFFTAB1 entries 
are written out on TXTOUT. When the end of 
CONTAB is reached, an OFFTAB! entry is 
produced for CARTAB. The length of CARTAB 
is contained in the communication region. 


INITIAL -- ZB 


Ihe addresses of the input and output buf- 
fers are calculated and the pointers are 
set to 0. Bit 2 in the TABTAB entry for 
CONTAB is set to 0 to start reading the 
CONTAB entries. 


CONTAB -- ZB 

This subroutine causes one or two records 
of CONTAB to be read from the work file 
into the input buffer (s). 


OFFTAB1 -- ZC 


This subroutine causes the value of the 
location counter, the internal name of the 
constant, and the STATIC bit to be moved 
into the output buffer. Control is then 
transferred to the subroutine OFFOUT to 
write the OFFTAB1 entries on TXTOUT. The 
value of the location counter is increased 
by the length of the constant before con- 
trol is returned. 


ALIGN -- ZC 

Before the value of the location counter is 
moved into the output buffer, the constant 
is tested to determine if it requires a 
boundary. This subroutine tests the con- 
Stant for the required alignment. 


LOCAL -- ZD 


The subroutine causes the value of the 
location counter LOCO to be set to the 
boundary specified by AL8, AL4, or AL2. 


LINCR -- 2b 

The subroutine LINCR determines if the 
constant is an address constant of a length 
of three bytes. If it is, the length spec- 
ified in bytes 3 and 4 of the constant is 
changed to 3 because the location counter 
is to be increased by 3. 


OFFOUT -- ZE 


OPT is increased by 5. If its value 
exceeds the buffer length, the contents of 
OBUF1 are written on TXTOUT. The contents 
of OBUF2 are moved to OBUF1 and OPT is 
updated. 


The input pointer INPT is increased by the 
length of the constant. If the value of 
INPT exceeds the buffer length, the con- 
tents of the input buffer BUF2 is moved to 
BUF1 and the next CONTAB record is read 
into BUFF2.  INPT is updated. 


CARTAB -- ZG 


This subroutine generates an OFFTAB1 entry 

for the character string table CARTAB. The 
value of the location counter is increased 

by the length of CARTAB (obtained from the 

interphase communication region). 


RERRTEST -- ZG 


The location counter is tested and, if its 
value is greater than or equal to 64K-1, an 
error bit is set in the compiler communi- 
cation region in the field IJKMWC and the 
diagnostic phase G31 is called. 


Storage Allocation for Variables -- ZH-ZL 


Seven passes of scanning the DSTAB entries 
are required to properly sort the variables 
and to allocate storage to them. 


When the desired type of variable is 
encountered, control is transferred to 
OFFSET. That subroutine causes an 
appropriate OFFTAB1 entry to be generated 
and written on TXTOUT. 


A disi RM E EJ MAN EA Au 


A 2-byte location counter for each proce- 
dure or BEGIN-END block is reserved in the 
table space. These location counters are 
Set to their initial values, i.e., the 
length of the fixed area in the DSA (19 
words). 
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PICK -- ZI | LEFTH -- ZK | AN 
f 
This subroutine initiates the reading of The appropriate location counter value is i 
the data table DSTAB from the work file. moved to LOCO using the subroutine GETLOC. 
The input pointer INPT is set to 0. © The value in LOCO is then adjusted as det- 
ermined by the lefthang of structure. 
DSTAB -- ZI 
SKIPV -- ZK 
The subroutine causes (1) the data table 
DSTAB to be read into the input buffers and 
(2) INPT to be updated. This subroutine skips to the next DSTAB 
entry by increasing INPT. If the value in 
OPP oR. ~- mg INPT becomes greater than the buffer 
length, the subroutine DSTAB is called to 
This Subroutine causes the offset value, read the next record. 
the internal name, and the attributes to be 
moved a into the output buffer. In addi- LAST ==. Ah 
tion, this subroutine uses various other 
subroutines to complete the generation of 
and the writing out of the OFFTAB1 entry. Ihe end-of-OFFTAB] key (X'FFFF') is moved 
into the output buffer, and offset table 
GETLOC =- ZJ. entries not yet written out are written on 
TXTOUT. 


For an AUTOMATIC variable, the appropriate 
location-counter value is taken from the BLTAB -- ZL 
table space and moved to LOCO. For a STA- 
TIC variable, the value in location counter 


LCST is moved to LOCO. When this subroutine is entered, the loca- 

tion counters in TS contain the lengths of 
PUTLOC == ZK the generated DSA's. These lengths are 

adjusted to double-word boundaries and 
For an AUTOMATIC variable, the value in written on the work file as table BLOCK1. GN 
LOCO is returned to the table space BLTAB The length of STATIC storage (in LCST) is TM 
of the block concerned. For a STATIC vari- stored in the compiler communication a= 
able, LOCO is returned to LCST. region. 
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PHASE PL/IF30 (BUILDING OF OFFSET TABLE) -- AA 


This phase builds up the final offset table 
OFFTAB which contains all offsets of data 
in the following form: 


offset 
attributes 


bytes 0 - 1 
byte 2 


The entries are sorted in ascending order 
of their interal names. 


Phase Input and Output 
The input used by this phase is 


symbol table SYMTAB on SYS001 

equate table CONEQU on SYS001 

offset table OFFTAB1 (built up and des- 
cribed in phase F75) on TXTOUT 


Output is the final offset table OFFTAB 
on SYS001 or in storage. It contains all 
offsets of data in ascending order of their 
internal names. 


Switches 
Switches are located in byte WSWITCH: 


bits 0 - 5 not used | 
bit 6 = 0 switch CON off: SYMTAB must be 
retrieved 
CONEQU must be 
retrieved 
EQUTAB is on 
SYSS001 
= 1 switch TXT on : EQUTAB is on 
TXTIN. 


= 1 switch CON on: 


II 
e 


bit 7 Switch TXT off: 


I/0 Concept 


Two adjacent buffers, referred to as buf- 
fers A and B, are used as I/O buffers. The 
beginning of a table is read into both 
buffers. The individual entries of the 
table are processed sequentially from left 
to right (beginning in buffer A). The 
buffer pointer R3 is increased each time by 
the entry length until it points to an 
entry in buffer B. If necessary, buffer A 
is moved into the output buffer in order to 
put it onto TXTIN, TXTOUT or SYS001. Buf- 
fer B is moved into buffer A and the buffer 
pointer is reset to the next entry to be 
processed. The next record will be read 
into buffer B in overlapped mode. 


Communication with Other Phases 
Ihe address of the table space is decreased 
in this phase by the length of TABTAB. The 
number N2 of records of OFFTAB that can be 

stored in the area between the new begin- 





ning of the table space and the end of the 
second I/O buffer is stored in IJKMIP+2. 

If OFFTAB does not exceed N2 records, it 
remains in storage at the end of this phase 
and the beginning of OFFTAB is identical to 
the new beginning of the table space. 


FUNCTIONAL DESCRIPTION 


This phase performs three main functions: 
gathering of equates, sorting of offsets 
and calculating the offsets of equates, and 
inserting equate offsets into the offset 
table. 


1. Gathering of Equates 


Equate table EQUTAB1 is built up. Each 
entry contains the following information: 


bytes 0-1 : Internal name of defined varia- 
ble or equated constant 


bytes 2-3 : internal name of based variable 
or based constant 


modifier (0 if defined 
variable). 


bytes 4-5 


Variables with the attribute DEFINED are 
handled as equates.  SYMTAB is scanned and, 
if a defined variable is found, an entry in 
EQUTAB1 is made. 


Equate table CONEQU contains all equated 
constants in the following form: 


bytes 0-1 : Internal name of equated con- 
stant. 

bytes 2-3 : internal name of the based 
constant. 


bytes 4-5 : modifier. 


All entries of CONEQU are appended to 
EQUTAB1. If the source text contains no 
defined variables, gathering of equates is 
skipped and CONEQU is used as EQUTAB1. 


2. Sorting of Offsets and Calculating the 


—— eee — e À—À— 


Offsets of Equates 





If the offset table entries are sorted in 
ascending order of their internal names, no 
internal name is required within the entry 
Since an entry in the final offset table 
OFFTAB can be found by using the internal 
name as relative address in the offset 
table. 
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Offset table OFFTAB1 contains all 
entries in unsorted order. An entry con- 
sists of: 


bytes 0-1 internal name 
bytes 2-3 offset 
byte 4 attributes 


The format of the entries in the final 
offset tabel OFFTAB is as follows: 


offset 
attributes 


bytes 0-1 
byte 2 


The area in which OFFTAB is built up is 
called work area. The number of OFFTAB 
entries that fit into the work area is 
called M. MIN is equal to the smallest 
internal name of an entry that fits into 
the work area; MAX is equal to the internal 
name greater than the greatest internal 
name of an entry that fits into the work 
area. 


Sorting of offsets starts with MIN=0 and 
MAX-M. OFFTAB1 is read successively into 
the input buffers. The offsets and attri- 
butes of all entries of OFFTAB1 whose 
internal names are greater than or equal to 
MIN and less than MAX are stored in the 
work area in ascending order of their 
internal names. After scanning of OFFTAB1, 
EQUTAB1 is read successively into the input 
buffers. Entries of EQUTAB1 with internal 
names of based data greater than or equal 
to MIN and less than MAX are processed, 
e.g., the internal names of based data of 
these entries are replaced by their offsets 
retrieved from the work area. The modifier 
is added to each retrieved offset. The 
first byte of the modifier is replaced by 
the attributes of the based data. If 
EQUTAB1 is read from TXTIN, the processed 
EQUTAB1 is written onto SYS001 and vice 
versa, 


The offset table built up in the work 
area is named OFFTAB2. The entries and 
length of OFFTAB2 are the same as those of 
OFFTAB. The two tables differ in that 
OFFTAB2 contains gaps to be replaced by the 
entries of equated data in OFFTAB. If 
OFFTAB2 is completely stored in the work 
area, the offsets are stored and the off- 
sets of equates are calculated in one pass. 
Otherwise, the part of OFFTAB2 that is in 
the work area is written on TXTOUT. MIN 
and MAX are increased by M and sorting of 
offsets and calculating the offsets of 
equates is continued until OFFTAB2 is com- 
pletely on TXTOUT. 


The processed equate table is named 


EQUTAB. The EQUTAB entries have the fol- 
lowing format: 
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bytes 0-1 : internal name of equated data AN 
bytes 2-3 : offset of equated data q 
byte 4 : attributes of equated data 

(equal to attributes of based 

data) 
byte 5 : not used. 
3j. Inserting Equate Offsets into the 





Offset Table 


If all entries of OFFTAB2 are stored in the 
WOrk area, EQUTAB is successively read into 
the input buffers. The offsets and attri- 
butes of the equated data are inserted into 
the work area according to their internal 
names. 


If OFFTAB is greater than the work area, 
inserting of equate offsets starts with 
MIN-0 and MAX-M. The records of OFFTAB2 
that contain entries of internal names 
greater than or equal to MIN and less than 
MAX are read into the work area.  EQUTAB is 
successively read into the input buffers. 
The offsets and attributes of equated data 
whose internal names are greater than or 
equal to MIN and less than MAX are inserted 
into the work area according to their 
internal names. If all entries of EQUTAB 
whose internal names are not less than MIN 
or greater than MAX have been inserted, the 
part of OFFTAB that is in the work area is P 
written onto SYS001. MIN and MAX are | 
increased by M and the insertion of equate 
offsets is continued until OFFTAB is com- 
pletely on SY35001. 


DESCRIPTION OF ROUTINES 


Initialization and Gathering of Equates -- 
AB, AC 


Buffer pointer R3 is set to the beginning 
of buffer A and table space pointer R8 is 
set to the beginning of the table space. 


If the source program contains defined 
variables, SYMTAB is scanned. If a defined 
variable is found, an entry in EQUTAB1 is 
made. SYMTAB is scanned in buffers A and 
B. EJUTAB1 is built up in the table space 
and written onto TXTIN. 


If scanning of SYMTAB is finished, 
Switch CON is set.  CONEQU is read into 
buffers A and B, and all entries of it are 
added to EQUTABl. If EQUTAB1 has been 
completed and written onto TXTIN, switch 
TXT is set to indicate the presence of 
EQUTAB1 on TXTIN. 


Construction of Work Area -- AD 


The space consisting of parts of the phase 
(beginning with WBEG2), the table space, 
and the first three buffers is used as work 
area to build up the offset tables. 
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If the length of the work area divided 
by 3 is not less than the number of off- 
sets, the entire offset table can be placed 
in the work area. Otherwise, the offset 
tables must be built up in several passes. 
Between these passes, the parts of an off- 
Set table that have been processed are 
written onto TXTOUT or SYS001 in the length 
of multiples of the buffer length. To 
avoid gaps in the offset tables, the length 
of the work area actually used must be 
three times the buffer length times floor 
of length of the work area divided by three 
times the buffer length. 


The number of entries of the offset 
table that can be placed in the work area 
is called M. 


Sorting of Offsets (TXTOUI) -- AE 


OFFTAB1 is read from TXTOUT into the input 
buffers. The offset and attributes of each 
OFFTAB1 entry whose internal names are less 
than M are stored in the work area accord- 
ing to the internal name. The table built 
up in the work area is called OFFTAB2. If 
there are entries of OFFTAB1 with internal 
names equal to or greater than M, OFFTAB1 
is written onto SYS001. 


Calculating Offsets of Equates -- AF 


EQUTAB1 is on TXTIN if switch TXT is on; 
otherwise, it is on SYS001. EQUTAB1 is 
read into the input buffers. If the entry 
of the based data of an EDUTAB1 entry is in 
the work area, the based data is replaced 
by its offset. Its modifier is added to 
the offset and the first byte of the modi- 
fier is replaced by the attributes of the 
based data. 


After processing, EQUTAB1 is written 
onto SYS001 if switch TXT is on; otherwise, 
it is written onto TXTIN. Switch TXT is 
altered. 


Sorting of Offsets (SYS001) -- AG 


The part of OFFTAB2 which is built up in 
the work area is written onto TXTOUT if 
OFFTAB2 is not completely contained in the 
work area. If OFFTAB2 is completely on 
TXTOUT and EQUTAB is on SYS001, EQUTAB is 
written onto TXTIN. 


If the construction of OFFTAB2 is not 
finished, MIN and MAX are increased by M 
and OFFTAB1 is read from SYSO01 into the 
input buffers. The offset and attributes 
of each OFFTAB1 entry whose internal name 
is greater than or equal to MIN and less 
than MAX are stored in the work area 
according to its internal name to continue 
the construction of OFFTAB2. 





Inserting of Offsets of Equates -- AH 


EQUTAB, which contains the internal name, 
offset, and attributes of all equated data, 
is read into the input buffers. If OFFTAB2 
is completely in the work area, the offset 
and attributes of each entry of EQUTAB are 
Stored in the work area according to its 
internal name. 


If OFFTAB2 is not completely in the work 
area, the insertion of offsets of equated 
data is started with MIN-0 and MAX-M. The 
records of OFFTAB2 which contain the off- 
Sets of internal names greater than or 
equal to MIN and less than MAX are read 
into the work area. The offset and attri- 
butes of each EQUTAB entry whose internal 
name is greater than or equal to MIN and 
less than MAX are stored in the work area 
according to its internal name. If EQUTAB 
has been completely scanned, the records of 
OFFTAB that are in the work area are writ- 
ten onto SYS001. If the construction of 
OFFTAB is not finished, MAX and MIN are 
increased by M and the insertion of offsets 
of equates is continued by scanning EQUTAB 
again. 


Entry point: WSR21 


Input parameters: 

R3 points to the element to be scanned in 
the input buffers. 

R6 contains the address of buffer A. 

R7 contains the address of buffer B. 


If pointer R3 points to an element in 
buffer B, buffer B is moved into buffer A, 
buffer pointer R3 is reset, and the routine 
is left through exit B. Otherwise, the 
routine is left through exit A. 


Move Buffer B to Buffer A -- AI 


Entry point: WSR21A 

The function is the same as described for 
the routine WSR21, but without testing 
whether pointer R3 points to an element in 
buffer B. 


EUN, ED eee o carte ater? VIR DZY 


Entry point: WSR51 

Input parameters: 

R3 points to the beginning of the end key 
of a table in buffer A. 

R7 contains the add ress of buffer B. 


It is tested whether the entire end key 
Of a table is in buffer A. If not, buffer 
B is written onto SYS001 and the routine is 
left through exit B. Otherwise, the rou- 
tine is left through exit A. 
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Entry point: WSR11 

Input parameter: | : 
R3 points to the entry of OFFTAB1 being 
Scanned. 


If the internal name of the entry point- 
ed to by R3 is not less than MIN and less 
than MAX, the offset and the attributes of 
this entry are Stored in the work area 
according to its internal name. 


Output parameter: 
R3 points to the second byte of the OFFTAB1 
entry following the scanned entry. 


Work up an Entry of EQUTAB -- AK 
Entry point: WSR61 


Input parameters: 

R2 contains the internal name of the EQUTAB 
entry being scanned. 

R3 points to the EQUTAB entry scanned. 


If the internal name in R2 is not less 
than MIN and less than MAX, the offset and 
the attributes of the entry pointed to by 
R3 are stored in the work area according to 
its internal name. 


Output parameter: 
R3 points to the EQUTAB entry following the 
Scanned entry. 


Work up an Entry of EQUTAB1 -- AK 
Entry point: WSR31 


Input parameter: 
R3 points to the EQUTAB1 entry scanned. 


If the internal name of the based data 
of the entry pointed to by R3 is not less 
than MIN and less than MAX, the offset of 
the equated data is calculated by the off- 
set of the based data and the modifier. 

The based data is replaced by the offset of 
the equated data, and the first byte of the 
modifier is replaced by the attributes of 
the based data. 


Output parameter: 


R3 points to the EQUTAB1 entry following 
the scanned entry. 


AK cuc d Oey ope CM LM CD RC pe ea 
Entry point: WSRE1 


Input parameters: 
R2 : internal name; 
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R4 : address of the table space; ff ^N 
R9 : MIN; | c 
R10 : MAX. 
If the internal name is less than MIN or 
not less than MAX, the routine is left 
through exit A. Otherwise, the allocation 
of the entry in the work area is calculated 
by the internal name and the routine is 
left through exit B. 
Output parameter: 
R2 contains the address of the internal 
name in the work area, if the routine is 
left through exit B. 
Calculate end of Filled Work Area -- AL 
Entry point: WSRB1 
Input parameters: 
R4 : address of the work area; 
R9 : MIN; 
R11 : K = maximum number of OFFTAB2 or 
OFFTAB entries. 
The address of the end of the filled 
work area is calculated. 
Output parameter: 
R3 contains the address of the end of the 
filled work area. 27% 
ios 
Put Work Area on TXTOUT -- AL 
Entry point: WSRC1 
Input parameters: 
R3 contains the address of the end of the 
filled work area. 
R4 contains the address of the work area. 
The contents of the filled work area are 
written onto TXTOUT. 
Put Work Area on SYS001 -- AL 
Entry point: WSRD1 
Input parameters: 
R3 contains the address of the end of the 
filled work area. 
R4 contains the address of the work area. 
The contents of the filled work area are 
written onto SYSO01. 
Set Pointer and Clear Work Area -- AL 
Entry point: WSR41 
Input parameters: AM ^ 


a 


R4 contains the address of the work area. 
R6 contains the address of buffer A. 
R8 contains M. 
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Buffer pointer R3 is set to the begin- 
ning of buffer A, and the work area is 
filled with zeros. 


Output parameter: 
R3 points to the beginning of buffer A. 


Work up an Entry of SYMTAB -- AJ 
Entry point: WSR22 


Input parameters: 

R3 points to the SYMTAB entry being 
Scanned. 

R8 points to the location in the table 
Space where the next entry of EQUTAB! is 
Stored. 


If the SYMTAB entry contains a defined 
variable, the internal names of the defined 
and the based variable are moved into the 
entry in the table space pointed to by R8. 


Output parameters: 

R3 points to the entry of SYMTAB that fol- 
lows the one being checked. 

R8 points to the next EQUIAB1 entry. 

Write Record of Table Space on TXTIN -- AJ 


Entry point: WSR12 


Input parameters: 

R4 contains the address of the beginning of 
the table space. 

R8 points to the location in the table 
Space where the next EQUIAB1 entry is 
stored. 

R11 contains the address of the end of an 
EQUTAB1 record in the table space. 


If R8 points to an address not less than 
that of the end of an EQUTAB1 record, a 
record of EQUTAB1 is written onto TXTIN and 
the remaining bytes of EQUTAB1 are moved to 
the beginning of the table space. Table 
Space pointer R8 is reset. 


Fill Begin of Table Space with Zeros -- AJ 
Entry point: WSRO02 


input parameter: 

R8 points to the location of the table 
Space where the next entry of EQUTAB1 is 
stored. 


The area of the table space used to 
build up EQUTAB1 is filled with zeros 
Starting at the location pointed to by R8. 
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These phases can be divided into two 
groups. The first group comprises the 
phases F95 - G15; the second group compris- 
es the phases G20 - G55. Phase G17 is 
organized differently and not described 
here. 


PHASES F95 - G15 


These phases prepare the program text for 
final output, i.e., all code and all infor- 
mation required for the TXT and RLD cards 
has been prepared upon completion of these 
phases. 


Phase F95 generates the code for offsets 
greater than 4K using the offset table 
OFFTAB, which contains the offsets of the 
variables and constants of static and auto- 
matic storage. As far as possible, the 
offsets are inserted into the text string, 
even if no code generation is required. 


Phase G00 optimizes the "maximum" code 
produced by phase F95. The offsets of the 
labels are inserted into the label table 
LABTAB, and all program blocks are divided 
into segments of 12K length. For all 
branches within the same segment, the 
preceding pseudo Assembler instruction ADD 
(generated in previous phases) is deleted. 
LABTAB is updated accordingly. 


Phase G01 inserts the label offsets into 
OFFTAB so that the missing offsets may be 
retrieved from only one table. It also 
lists OFFTAB if the SYM option was speci- 
fied in the OPTION job control statement. 


In the first part of phase G15, the text 
string is scanned and the remaining offsets 
are inserted. In the second part, the 
format of the constants in static storage 
is changed from that of the constant table 
CONTAB to that of the text string, and the 
offsets for the address constants are cal- 
culated. If the source program contains no 
file declarations, phase G15 transfers 
control to phase G20 instead of to phase 
G17. 


Input/Output Handling. The handling of 
input and output is the same for all phases 
(except phase G17). Storage is divided 
into four parts: 


1. Compiler interface 
2. Program Space (4K) 
3. Table space (TS). This space is used 


to read OFFTAB from SYS001 and to build 
up LABTAB. 
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GENERAL DESCRIPTION OF PHASES F95 - G55 


4. Buffer area. It is used for I/O of the 


text string. 


Actually, there are five buffers in the 
buffer area. However, only three are used 
for text I/O so that the first two buffers 
may be considered as belonging to the table 


Space. The last three buffers are used as 
follows: 
buffer output buffer (OBUF) 


1: 
buffer 2: input buffer 1 (IBUF 1) 
buffer 3: input buffer 2 (IBUF2) 


The start addresses of these buffers are 
BO, B1, and B2, respectively. Pointer POU 
is used in OBUF; pointer POI is used in 
IBUF1 and IBUF2. The buffer length is 
referred to as BUFL. 


ISU, MOO, MODIF (F95, G00, G15). The text 


is read into the input buffers and scanned 
using pointer POI. When POI becomes great- 
er than B2, the record is moved from IBUF2 
to IBUF1, POI is adjusted, and a new text 
record is read into IBU1. This action is 
performed by the routine ISU. 


PHASES G20 - G55 


The text of the length L (given in reg- 
ister 1) is moved from the address pointed 
by POI to the address pointed to by POU by 
means of the routine MOO, This routine 
also performs the output if OBUF is full 
and adjusts all pointers. Reading and 
writing of the text records is performed by 
the external routines IJKGI and IKJPO. The 
external move routine IJKMN is used for 
move operations.  MODIF is used to evaluate 
the correct modifier. 


Table Handling. Each table to be used in 
Several phases has an 8-byte entry in the 
master table TABTAB. Each TABTAB entry has 
the following format: 


bytes 0-1 flag bytes. The first three bits 
indicate the following: 


bit 0 on = table on SYS001 
bit 1 on - table in storage 
bit 2 on = transfer to or from 


SYS001 has been start- 

ed. 
bytes 2-3 position on SYS001 
bytes 4-5 number of records 
bytes 6-7 record length 


(key) 


If OFFTAB, which is built in phase F90, 
is small enough, it remains in the table 
Space. Otherwise, it is written onto 
SYS001 (TABTAB entry ZTAB11). Phase F95 
checks whether or not OFFTAB is in the 
table space. If it is not, the first part 





q^ 
C 


À - 
: 


AN 


Ji . / 
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is read into the table Space by means of 
the external routine ZTIN. The text is 
scanned and the available offsets are 
inserted. Then the next part of OFFTAB is 
read. This process continues until all 
parts of OFFTAB have been in storage. 


If OFFTAB was not on SYS001, it is writ- 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 


If LABTAB becómes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase G00. 


If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 


If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase G00. 


If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase G00. 


If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase G00. 


If LABTAB becomes greater than the table 
space, it is intermediately written onto 
ten onto it by the external routine ZTOUT 
in order to free the table space for the 
construction of LABTAB in phase GOO. 


If LABTAB becomes greater than the table 
space, it is intermediately written onto 
SYS001 (TABTAB entry ZTAB19). It is read 
again into storage for updating. The final 
LABTAB is written onto SYS001 (TABTAB entry 
ZTAB20) for use by phase 325. 


In phase G01, the label offsets are 
inserted from LABTAB into OFFTAB. For this 
purpose, OFFTAB is read into the table 
Space and LABTAB is read (record by record) 


into the buffer area. The updated OFFTAB 
remains in the table space unless it 
becomes too large. In this case, it is 
written onto SYS001 (TABTAB entry ZTABO7). 


In phase G15, OFFTAB is read into the 
table space in order to insert the missing 
offsets into the instructions. The text is 
Scanned only once if OFFTAB fits into the 
table space; otherwise, the text is scanned 
as many times as parts of OFFTAB have to be 
read. After this phase, OFFTAB is no long- 
er used. 


The constant table CONTAB is also proc- 
essed in phase G15. CONTAB (TABTAB entry 
ZTABO8) is read into the buffers record by 
record. After this phase, CONTAB is no 
longer used. 


AS initialization for the following 
phases, the external name table EXTAB 
(TABTAB entry ZTABOU) is read from SYS001 
at the end of phase G15 and written onto 
TXTIN, which becomes TXTOUT in the follow- 
ing phases. 


PHASES G20 - G55 


Phase G20 arranges the different cards for 
the files to prepare one file module and 
writes the cards onto SYS001. 


Phase G25 generates the ESD cards for 
the object-program module and writes them 
onto SYS001. 


Phase G30 generates the TXT and RLD 
cards for the object-program module as well 
as the END card. The cards are written 
onto SYS001 (TABTAB entry ZTAB16). 


Phase G31 is called if the compilation 
must be terminated before phase G55 is 
called. It lists the flagged errors, clos- 
es all files, and terminates the compila- 
tion by the EOJ macro instruction. 


Phase G40 lists the object code. 


Phase G55 writes all cards (for both tne 
first and the second module) onto IJSYSLN 
(in blocks of 322 bytes) if the LINK option 
is on. If the DECK option is on, it 
punches the object deck. If the SYM option 
is on, it lists the external symbol table 
and the block table. 
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This phase generates code for operands that 
have an offset greater than or equal to 4K 
or 12K, respectively. The code is generat- 
ed by means of the four general registers 5 
- 8 and some constants contained in static 
storage. Registers 7 and 8 are loaded with 
UK and 8K, respectively. Registers 5 and 6 
are used for indirect addressing. The 
constants in static storage are OK, 12K, 
16K, 20K, 24K, and 28K. They are stored in 
this sequence under the internal name 
N'0004* (one half-word each). 


1. Offset less than 12K 


a. No additional code is required if 
the offset is less than LK, 


Note: No code generation is 
required for RS instructions, since 
these instructions are never used 
with offsets greater than or equal 
to LK. 


b. For instructions with offsets 
between 4K and 12K, an additional 
register is used for addressing. 
in RX instructions, the index reg- 
ister has not been used so that 
registers 7 (containing 4K) and 8 
(containing 8K) can be used as 
index registers for these instruc- 
tions. For instance, in the 
instruction 


L R,NAME1 


NAME1 is an address with the offset 
5000. This instruction is modified 
to 


L R,904 (7,9) 
where 9 is the base register. 


In all other instructions, the base 
register is increased by 4K or 8K. 
For example, in the instruction 


MVC NAME2 (4) ,NAME3 


NAME2 is an address with the offset 
6000 and NAME3 has the offset 
10000. The instruction is modified 
to 


(ST 6,SAVE) 

LA 6,0 (7,9) 

LA 5,0 (8, 9) 

MVC 1904 (4, 6) , 1806 (5) 
(L 6, SAVE) 
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The instructions in brackets are 
required if, for example, register 
6 is not free. 


2. Offset greater than 12K-1 and less than 
32K. In this case, one of the con- 
Stants 12K, 16K, 20K, 24K, or 28K is 
loaded into a register as follows: 


LH 6,=A(16K). 


This register can then be used as an 
index register in RX instructions so 
that no additional code generation is 
required. In all other cases, an addi- 
tional ADD instruction for the base 
register must be generated, and reg- 
ister 6 or 5 is inserted as base reg- 


ister. For instance, 
AR 6,9 
STM R,S,50, (6) 


3. Offset greater than 32K-1. One of the 
constants is loaded into register 5 or 
6 and multiplied by 2 by adding the 
register to itself, e.g», 


LH 6,=A(20K) 
AR 6,6 


(20K) 
(40K) 


For 36K, 44K, 52K, and 60K, additional 
LK must be added, e.g., 
AR 6,7 (44K) 


The following instructions are the same 
as described under item 2. 


Phase Input and Output 


The input is read from the text input file 
and consists of machine instructions, pseu- 
do Assembler instructions, and end key. 

The format of these instructions is des- 
cribed in the section Instruction Formats. 
The input is read into the two input buf- 
fers B1 and B2. The input pointer is POI. 


The offset table OFFTAB is read into the 
table space. If OFFTAB is small enough, 
phase F90 has left it in the enlarged table 
space of the length M*buffer length. If 
the size of OFFTAB exceeds the table Space, 
OFFTAB is read from SYS001. The table 
Space was enlarged in phase F90 by 180 
bytes in low core and two I/O buffers in 
high core. Thus, Mis given by the length 
of the table space divided by the buffer 
length. M is stored at IJKMIP+2. The 
Start address of the table space (stored at 
IJKMTS) was reduced by 180 bytes. 





AS SN 
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Figure 1. Input and Output of Phase F95 


All instructions whose offset has 
already been determined are modified by 
inserting a half-word after the modifier. 
The inserted half-word contains the base 
register in the first four bits and the 
offset in the remaining bits. The key is 
changed to 10. 


Note: The pseudo Assembler instruction 
DC AL3 
is not modified. 


The correlation between the input and 
output of this phase is shown in Figure 1. 


NAME and MODIFIER are not deleted 
because they are still used in phase G40. 
The output is written on the text output 
file using the output buffer (OBUF) BO with 
the pointer POU. At the end of this phase, 
OFFTAB is written on SYS001, if it is not 
already there. 


Instruction Formats 


The format of the individual machine 
instructions is shown in Figure 2. The 
first byte contains the key 88. The second 
byte contains the operation code. R1, R2, 
and R3 are registers. L1 and L2 are 
lengths. I is an immediate constant. 


The format of the Assembler pseudo 
instructions is shown in Figure 3. The 
first byte contains the key 80. 


The end key (01) is used to determine 
the end of the text. 


The keys used in the operands have the 
following meaning: 


E1 Declared variable 

EG Generated variable 

E9 Constant 

E5 Register 

00 Absolute address 

11 Label in DC A 

10 New key (worked up) 

18 New key (worked-up E5) 


88 Op LI L2 Name Modifier E4 Name Modifier 
| Code 
EET" T"H"TFT=" EH 


Figure 2. 


Input 





Output 


The first three keys denote entries in 
OFFTAB, from where the offset is retrieved. 
The key E5 indicates that the operand con- 
Sists of a register with a displacement 
given by the modifier. The key 00 denotes 
an absolute address. The key 11 denotes a 
label in a DC A or DC AL3 instruction. The 
keys 10 and 18 are written if the offset 
has already been retrieved and inserted 
into a half-word following the element. 


FUNCTIONAL DESCRIPTION 
Phase F95 does the following: 


1. To retrieve the offset from OFFTAB, the 
first part of OFFTAB is read into the 
table space if it is not already there. 
The offsets of all text operands with 
entries in this part of OFFTAB are 
determined. Then, the next part of 
OFFTAB is read into the table space, 
and the text is scanned again from the 
beginning. This process is repeated 
until all parts of OFFTAB have been in 


Storage. 
RR-Format 
8 | op | ni | r2 
RX-Format 
e |» [n epe | ea 
y! 
RS-Format 
e [ow [o |o Petr [nn 
SI-Format 
e [os [59 = fieri vee rose 
SS-Format 


oe [ow] Jaja [ee [we Jue 


If only one length is present, L replaces L2 and Ll 
must be zero. 


Machine Instruction Formats 
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Figure 3; 


Ze 
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CNOP 


had KA RUE 


DC AL3 


so | 61 [rex] wwe | noone 


DC X (L + 4 bytes) 


y 
A 
eae 


C2 L CON 


STANT 


El 


This is a special key for a DC X'L' in which 
the length L of the DSA is inserted in phase 
G30. The reserved length is 4 bytes. 


' 
LEV 'BLO 


ADD (OPT) 


PEE 


This is a special key denoting that a branch 
instruction follows that is optimized in 


U 
o 


2 
UJ 
tej 
c” 


so [cs 


PROCEDURE 


po [es ava] me 


BLO is the block number; 
LEV is the level number. 


EJ 


L 


phase Go. 


DC A (STATIC) 


not 
[so [es | upea | 


This is a special key for a DC A(STATIC) 
containing the initial address of static 
storage. 


PARA 
o [ca | ze | to. 


This instruction precedes a field of instruc- 
tions not to be separated by other instructions. 
(The length of the string is restricted to 256 
bytes.) LC = length of the string; LO = length 
at object time. 


To evaluate the base register, it is 
determined whether the variable is in 
static or in automatic storage. Gener- 
al register 12 is used for static stor- 


age. One of the general registers 13, 
11, or 10 is used for automatic stor- 
age. Which of these three registers is 


used depends on the block in which the 
variable appears and in which it is 
called 


ee A NA A — UMP — o — 


The length of static and automatic 
storage and of the text string is res- 
tricted to 6LK. 


so [cs 


Indicates register not to be used for indirect 
addressing (5 or 6). Zero means both are free, 


Assembler Pseudo Instruction Formats 


KEY 


To get no displacement greater than or 
equal to 4K, storage is divided into 
üK-blocks. Each block is pointed to by 
the corresponding offset. When code is 
to be generated, the üK-block is deter- 
mined and the address of the block is 
loaded into a register which is then 
used as a base or index register. 


The code to be generated depends (1) on 
the type of instruction and (2) on the 
üK-block pointed to by the offset of 
the operand. Examples of code genera- 
tion for blocks with an offset greater 
than 4K are shown in Figure 4, 





| PES: 


\ 
Nir m 
S. w^ 
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to by offset RX instruct ion SS or SI instructions 
4K Reg. as index | LA 5,M(7,BASE) 
8K Reg. 4 as index LA 5,øØ(8,BASE) 


12K LH 5,A(12K) LH 5,A(12K) 
Reg. 5 as index AR 5,BASE 
Reg. 5 as base reg. 
LH 5,A(16K) 
AR 5,BASE 
Reg. 5 as base reg. 
LH 5,A(2@K) 
AR 5,BASE 
Reg. 5 as base reg. 


LH 5,A(24K) 

AR 5,BASE 

Reg. 5 as base reg. 
LH 5,A(28K) 

AR 5,BASE 

Reg. 5 as base reg. 


LH 5,A(16K) 




















LH 5,A(16K) 
Reg. 5 as index 















LH 5,A(2@K) 
‘Reg. 5 as index 










LH 5,A(24K) 
Reg. 5 as index 


LH 5,A(28K) 
Reg. 5 as index 


















LH 5,A(16K) 
AR 5,5 
Reg. 5 as index 




























LH 5,A(16K) 
AR 5,5 
AR 5,7 
Reg. 5 as index 


LH 5,A(16K) 
AR 5,5 

AR 5,7 

AR 5,BASE 
Reg. 5 as base reg. 


LH 5,A(28K) 
AR 5,5 

AR 5,BASE 
Reg. 5 as base reg. 


5 = one of tha registers 5 or 6. 
A(...) = address of the corresponding constant. 
BASE 











LH 5,A(2@K) 
AR 5,5 
Reg. 5 as index 













= base register. 





Generation of Code for Blocks 
with Offset greater than LK 


Figure 4. 


Logical Flow 


If the first part of OFFTAB is not yet in 
the table space, it is read from SYS001. 
The I/O buffers are filled with text. The 
text is scanned for entries in this part of 
OFFTAB, and the corresponding offset and 
the attribute byte are moved into a special 
Stack. The base register and the 4K-block 
are determined and the corresponding code 
is generated. The key and the instruction 
followed by a half-word containing the base 
register and the offset (modulo 4K) are 
then put into the output text string. 


When the end key is found, the next part 
of OFFTAB is read into the table space and 
the text is scanned again from the begin- 
ning. This process is repeated until all 
parts off OFFTAB have been in storage. 


Note: The modifier becomes negative if it 
is greater than X'FFF8'. 





DESCRIPTION OF ROUTINES 

Note: The routines ISU, MOO, and MODIF are 
described in the section General Descrip- 
tion of Phases F95 + G55, 


Symbols used in flow charts: 


BN Number of OFFTAB records 

TS Table space 

M Number of buffers in TS 

BO, B1, B2 Initial I/O buffer addresses 

POU Output pointer 

POI Input pointer 

STA Stack 

STAP Pointer in STA 

STAR Pointer in STA 

HW Half-word 

SSS Switch for SS instructions 

BOTH Switch indicating that R6 
has been saved by a store 
instruction 

OFEN Stack for offset 

LEVS Stack for level 


RY Register containing object- 
time base register 


REWO l-byte stack indicating the 
free register 

R1, R2, etc. General registers 

OBUF Output buffer 

IBUF Input buffer 


WUP -- AP, AQ 


This routine scans the text for end-of- 
Statement, machine instructions, and 
Assembler instructions. 


If an end-of-statement of the format 


is detected, it is transformed into a pseu- 
do Assembler instruction of the format 


This format is the same as for the PROCE- 
DURE statement. The only difference is 
that it contains X'FFFF' in bytes 3 and 4. 


Assembler and machine instructions are 
differentiated by their first byte, which 
is 80 for Assembler instructions and 88 for 
machine instructions. The individual types 
of Assembler and machine instructions are 
then determined by means of the second byte 
(the code byte). 


The Assembler instructions are processed 
by individual routines branched to via the 
branch table shown in Figure 5. The rou- 
tines are described later. 
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D 


RE ROGZ Boo "opo e to aan coii ER 1 
|Key|Branch to|Handles | 
po foo Yo 4 
| CO|B CNOP |CNOP | 
| C1]B DCAL3|DCAL3 | 
| C2]B DCX |DC x | 
| C3]B DSL |DS | 
| C4|B LABEL| Label | 
| C5|B PROCE|Begin of block | 
| C6|B ENDBL|End of block | 
| C7|B DCF |DC X with length of DSA | 
| C8|B ADD |Optimizable branch 

| C9|B DCSTA|DC A (static) 

| CA|B PARA |Connected field | 
| CB|B UREG |Free register (6 or 5) | 
HU See ea Es LS aA ENORMI MESE 3 


Figure 5. Format of the Branch Table 

For machine instructions, the instruc- 
tion format (RR, RX, RS, SI, and SS) is 
checked. The routine then scans the text 
for operands with one of the keys El, E9, 
E4, E5, and 00. The scanned element is 
moved into a special 18-byte stack. STAR 
always points to the first free byte in 
STA. Pointer STAP is used to indicate the 
position of the keys. 


If one of the keys El, E9, or El is 
found, the routine OGE is called to 
retrieve the offset from OFFTAB, add the 
modifier, determine the base register and 
the 4K-block and generate code, if neces- 
sary, insert the base register and the 
offset into the half-word following the 
modifier as shown in Figure 1. 


If one of the keys E5 or 00 is found, 
only a part of OGE (OGE1) is used to gener- 
ate code if the modifier is greater than or 
equal to 4K, and to insert offset and reg- 
ister (for key E5 only) into the half-word 
following the the modifier half-word in 
STA. 


OGE --AR 


OGE determines whether or not the name at 
STAP*5 is an entry in the present part of 
OFFTAB. If it is an entry, OGE moves off- 
Set and attribute byte to OFEN*2, deter- 
mines the base register, changes the key, 
and moves base register plus offset into 
the corresponding column of STA. If addi- 
tional code is required, it is generated by 
means of the routine KBT. 


BAS -- AS 

Ihis routine determines the base register 
by means of the variable level (in the 
attribute byte at OFEN+4) and the current 
block level (in LEVS). 


The attribute byte has the following 
format: 
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bits 0-1: level He 


bit 2 1 = automatic M 
bits 3-7s off W^ 


For static variables, register 12 is 
used as base register. 


For automatic variables, the block con- 
taining the variable is determined. Figure 
6 shows the register used for the current 
block level and the level of the variable. 
The base register is returned in RY. 


mic d E [oo Se A 1 
| | CURRENT BLOCK LEVEL | 

I[---—-—--- pa == =22 y eS | 
[VARIABLE LEVEL| 1 | 2 | 3 | 
[-—-————————-—-—-—------- | © 30m | ooo = | 
| 1 | 13 | 11 | 11 | 
| 2 | ERROR | 13 | 10 | 
| 3 | ERROR | ERROR | 13 | 
A A T AS AAA TET MAE J 


Figure 6. Base Registers Used for Block 


and Variable Level 
MOK -- AT 
MOK inserts the base register (contained in 


RY) into the leftmost 4 bits of the half- 
word at STAR and the rightmost 12 bits of 


the offset into the other 12 bits. AN 
Na 
KBT -- AT, AU, AV, AW 


KBT determines the 4K-block and 
distinguishes the offsets as follows: 


1. offset smaller than 12K 


2. offset greater than or equal to 12K and 
smaller than 32K 


3. offset greater than or equal to 32K 


In each of these cases it determines wheth- 
er or not the instruction is an RX instruc- 
tion. 


It generates code by means of 3 masks 
(see MIO -- AY) corresponding to the 
LK-block and the type of instruction and 
returns the number of the base register in 
RY. The number of the index register, if 
any, is inserted into the instruction at 
STA+23. 





FRR -- AX 


This routine determines which of the two 
registers 5 or 6 is free and returns the 
number of the free register in R2. If both 
registers are free, 6 is returned. If no 
register is free, R2 is set to zero. 
Whether or not a register is free is indi- 
cated by the byte REWO (see Figure 7). 
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If a free register is used for the first 
operand of an SS instruction (SWITCH=1) , 
bits 4 (for R5) and 5(for R6) are set to 
prevent the use of these registers for the 
second operand. Therefore, these bits are 
always tested when a free register is 
found. If the corresponding bit is on, the 
other register is used and its contents are 
saved, if required. 


PRN E ae I EUN a 1 
|Bit | Meaning | 
| ----}----~------------------------------- 1 
[0-3 | Not used | 
| 4 | If on, register 5 is used for first] 
| | operand of an SS instruction | 
| 5 | If on, register 6 is used for first] 
| | operand of an SS instruction | 
| 6 | If on, register 5 is free | 
| 7 | If on, register 6 is free | 
aja E AA AP dE ZA J 


Figure 7. Available Registers as Indicated 


by Byte REWO 


MIO puts a mask, the initial address of 
which has been inserted into RO, into OBUF. 
It identifies the mask and thus its length. 
The hexadecimal formats of the masks are as 
follows: 


LH mask (9 bytes): 
88 48 00 00 E1 00 04 00 00 


AR mask (4 bytes): 
88 1A 00 00 


LA mask (9 bytes): 
88 41 00 00 E5 00 00 00 00 


L mask (9 bytes): 
88 58 06 00 E1 00 06 00 00 


ST mask (9 bytes): 
88 50 06 00 E1 00 06 00 00 


A CM AS A M — O. 


A M um ua A P UN WO e 


The element (length 7 bytes) is moved into 
OBUF. 


DCX -- AZ 


The length of the element is determined by 
adding 4 to the length half-word. The 
element is then put into the output stream. 


DSL, LABEL, DCF, DCSTA, ENDBL 


All these routines are identical to MULTI. 


MULTI -- AZ 


This routine moves the element (length 4 
bytes) into OBUF. 


This routine determines whether there is a 
Statement number or not. If there is a 
Statement number, the element is put out. 
Otherwise, this routine stores the level 
from POI*2 at LEVS and calls MOO to move 
the element into OBUF. 


ADD -- BB 


The pseudo assembler instruction and the 
following branch are put into OBUF. 


PARA -- BA 


The following elements of length LC 
(restricted to 256) are regarded as one 
unit and put into OBUF together with the 
preceding assembler pseudo instruction 
PARA. No additional ADD, CNOP, or LABEL 
may occur in the string. 


UREG -- BB 


The free register (5 or 6) is flagged in a 
Special flag byte REWO. If bit 7 of REWO 
is on, register 6 is available. If bit 6 
is on, register 5 is available. The reg- 
ister that may not be used is specified in 
the second half-word of the instruction. 
If it contains 5, this means that register 
5 is not free. If it contains zero, both 
registers are free. The element is then 
put into OBUF. 
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This phase performs the following func- 
tions: 


1. It constructs a label table LABTAB 
which contains the internal names of 
the labels, the location counter values 
relative to the beginning of each pro- 
gram block, and the number of the pro- 
gram block; 


2. It constructs a program block table PBT 
which contains the names and addresses 
of the program blocks; 


3. It optimizes the code for branches to 
label constants inside the same 12K 
Segment and updates LABTAB and PBT. 
The code generated for branches that 
cannot be optimized is shown in the 
Section Generated Code and Optimiza- 
tion. | 


Block Structure 


The source program has a special block 
Structure; blocks may be nested into one 
another up to a level of 3. This block 
Structure is assorted in a previous phase, 
So that there is no longer any nesting. 


Each program block may have a maximum 
length of 32K bytes. Because most of the 
branch instructions branch to labels inside 
of the same program block, the label han- 
dling is optimized within a program block. 
All branches to labels outside of the block 
are not optimized. 


If any program block is larger than 12K 
bytes, it has to be divided into segments 
of 12K. At the end of each (full) 12K 
segment, an instruction 


BALR 9,0 


is generated so that register 9 is always 
loaded with the initial address of the 
current 12K segment. For the first 12K 
segment of each program block, register 9 
is loaded by the prologue. 


A branch within a 12K segment may 
require a displacement greater than or 
equal to 4K. Therefore, the general reg- 
isters 7 (loaded with 4K) and 8 (loaded 
with 8K) are used as index registers. 

Thus, any branch inside of a 12K segment is 
possible without using a displacement 
greater than or equal to LK. 
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PHASE PL/IGOO (LABEL HANDLING) -- BF 


Generated Code and Optimization 


In phase E50, a 4-byte pseudo Assembler 
instruction of the format 


Foor, Ca tg ee a ee 1 
| 80 | C8 | LABEL | 


ts id ds 


is generated in front of each branch to a 
label constant inside the same program 
block so that the code can be optimized as 
follows: 


l. The branch instruction and the label 
appear in the same 12K segment of the 
same program block: 

The pseudo Assembler instruction is 
deleted and the branch may be modified 
by inserting register 7 or 8 as index 
register (if the displacement is great- 
er than 4K-1 or 8K-1, respectively). 


2. The branch instruction and the label 
appear in different 12K segments of the 
same program block: 

The code to be generated depends on the 
type of branch instruction. 


a. Absolute branch 


AH 9,=X"3000'" (or = X'6000') 
BC F,LABEL 


b. Conditional branch 


BALR 14,0 

AH 9,=X'3000' 
SPM 14,0 

BC 8, LABEL 


SH 9,=X'3000' 
c. BCT and BAL 


AH 9, -X' 3000* 
BAL LINK,LABEL 
SH 9, -X' 3000' 


If the label has an offset smaller than 
that of the branch instruction, the AH 
will be replaced by an SH and the SH by 
an AH. The constants 12K and 24K are 
half-words contained in static storage. 


Construction of LABTAB and PBT 


LABTAB and PBT are constructed in the rou- 
tine LATA. The text is scanned for the 
pseudo Assembler instructions PROCEDURE, 
END OF BLOCK, and LABEL. 





f ON 
M 


mU 
on 
zt x 
7 | . j 
: 
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1. When PROCEDURE is found, the number of 
the program block is stored in a Stack, 
the name and the location counter LOC1, 
which counts the offset from the begin- 
ning of the program, are inserted in 
PBT at a location given by the block 
number (PBN). The second location 
counter LOCO, which counts the offset 
from the beginning of the program 
block, is set to zero to start a new 
count. The entry name is inserted in 
LABTAB with the location 0. 


The format of PBT and LABTAB entries is 
as follows: 


PBT: 

Name (2 bytes) 
Offset (LOC1) (2 bytes) 
LABTAB: Name (2 bytes) 
Offset (LOCO) (2 bytes) 


PBN (1 byte) 


2. When END OF BLOCK is found, it is 
checked whether LOCO is greater than 
32K and whether LOC1 is greater than 
64K. An error is indicated if either 
one of these conditions is detected. 
The part of LABTAB that pertains to 
this block is written on SYSO001. 


3. When LABEL is found, the name, LOCO, 
and the block number PBN are inserted 
at the appropriate location in LABTAB. 
While PBT remains in storage for phase 
G15, LABTAB is written on SYS001 for 
the phases G01 and G25. 


pd 


Ihe text is scanned for the 4-byte special 
pseudo Assembler instruction ADD, which 
indicates an optimizable branch. This 
instruction has the format. 


| 80 | C8 | LABEL | 


A AAA ONDE 


The present part of LABTAB is scanned 
for the label and, if the label is found, 
the label offset is compared with the cur- 
rent location counter LOCO if the label and 
the ADD instruction are located in the same 
program block. If label and instruction 
appear in the same 12K segment, the pseudo 
Assembler instruction is deleted and the 
following instruction is modified. The 
label offsets of this program block in 
LABTAB and all offsets of following blocks 
in PBT are updated. 


If label and instruction do not appear 
in the same 12K segment, code is generated 
as described in the section Generated Code 
and Optimization. 


At the end of a 12K segment, an instruc- 
tion 


BALR 9,0 


is generated to load register 9 with the 
initial address of the following segment. 
This instruction must be exactly at the end 
of the 12K segment. This is achieved by 
inserting one or more instructions of the 


type 
BCR 0,0 


if necessary. 


Critical Cases and Boundary Problems 


There are some critical cases at the end of 
each 12K segment. Because the LABTAB was 
constructed when maximum code was present 
or simulated by the pseudo Assembler 
instruction, some labels may get from one 
12K segment into the other during this 
phase due to the deletion of code. 


CALL LABEL A CALL LABEL A 


12K} 12K 


LABEL A 


LABEL A 


Figure 1. Calling of Label A at Different 


Moments of Compile Time 


Figure 1 shows two cases of calling 
LABEL A at different moments of compile 
time. While in case 1 instruction and 
label are situated in different segments, 


they are in the same segment in case 2, 


although instructions 1 and 2 are situated 
in the same segment. These cases are han- 
dled differently as follows: 


Case 1: 


The ADD instruction is not deleted because 
it is not known whether or not LABEL A will 
go into the same segment. In phase G15, 
where it can be determined whether label 
and instruction are in the same segment, 
the generated AH instruction is modified to 
a NOPR instruction by inserting the address 
of a zero half-word into the AH instruc- 
tion, so that zero is added to register 9. 
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Case 2: (1) (1) (0 0) (0 (D (2 (2 A 
: . | p Calend: dias: iia cl tera Veas AAA - 
The pseudo Assembler instruction is deleted | 80 | CO | OP | X | OO | ET |NAME|0000] 
and no code is generated. Another critical | | [code] | | | | | 
case occurs, for instance, if there is only L-L---L-.---L4-2--L-2.---L4----l4-.---l1----1---—-4 
one label to be called in a 12K segment, 
and this is situated just before the last This element represents the optimized 
instruction of the segment. Because a branch instruction. The special pseudo 
Assembler instruction ADD is changed in 
BALR 9,0 this phase to 
instruction has to be generated at the end (1) (1) (1) (1) (1) (1) (2) (2) 
of each 12K segment, it may happen that the [7——-T----4----.T----4----4----4.----T----4 
label is moved into the next segment so | | | YA | | | | | | 
that the optimization performed before | 80 | C8 | or | 9 | 00 | El |NAME| 0 | 
becomes wrong. To exclude this case, A | | | 4B | | | | | | 
will be regarded as being situated in the ld todoo tooodo A 
next block, so that no optimization is 
performed. The CNOP instruction 
Due to the limited table space, only a [^——-T----T----4--—-4 
part of LABTAB may fit into storage so that | 80 | CO | B |W | 
the rest remains on SYS001. Because each L____4—-__14—~-~_1--~-~-4 
LABTAB entry has 5 bytes, the maximum num- | 
ber of present labels is restricted to is replaced by a corresponding number of 
FLOOR [M*BUFFERLENGTH:5] =NPL where M is the 
number of buffers in the table space. For BCR 0,0 
a 16K system with a buffer length of 256 
bytes, the number of labels in the table instructions of the format 
Space is NPL = FLOOR (9x256:5) =460. 
MEUGREĆ SAGE ee 
If NPL is smaller than the number of | 88 | 07 | 00 | OO | 
labels of one 12K segment, some labels, LL---L----L----4----—4 PN 
although belonging to the same segment, may S 
not be present in the table space and, so that the key CQ is available for the ań 
therefore, be regarded as belonging to other instructions, and the instructions 
another segment. The corresponding branch- 
es are not optimized. Optimization is [^——-T----T----T----4 
stopped when coming to a branch with cur- | 80 | CA | LC | LO | and 
rent offset greater than the offset of the Ett tdo do 


last present label. 


Phase Input and Output Libido J 


are deleted. 
Phase input is the output text string of 
phase F95. The I/O buffers B1 and B2 are 








used for accommodating the text input (the DESCRIPTION OF ROUTINES 
pointer is POI). Input is controlled by 
the subroutine ISU. Note: The routines ISU, MOO, and MODIF are 
described in the section General Descrip- 
LABTAB is intermediately written on tion of Phases F95 - G55. 
SYS001 if it becomes larger than the table 
space. It is put out in records of buffer symbols used in flow charts: 
length (ZTAB19) and read again into the 
table space for updating. At the end of BO, B1, B2 - Initial addresses of the I/O 
each block, the corresponding updated part buffers 
of LABTAB is written on SYS001 (ZTAB20). BUFL - Buffer lengtn 
Thus, LABTAB is completely on SYS001 at the OBUF - Output buffer (for text), 
end of the phase.  PBT is left in storage. same as BO 
It is placed at the end of the program IBUF - Input buffer (for text) 
Space by an ORG instruction. POU ~ Pointer for OBUF 
POI - Pointer for input buffers 
Buffer BO and the pointer POU are used LAPO - Pointer for LABTAB in the 
for output. The output consists of the I/O buffers 
optimized text string which contains only TS - Initial address of table 
one new element: Space 
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TSE - End of table space (points 
to first byte after table 
space) 

LSP - Pointer for LABTAB in table 

| space 

NLB - Number of LABTAB buffers 

LAPO - Pointer in table space to 
insert labels into LABTAB 

BA - BUFL of BO 

LASTAD - Address of last updated 
LABTAB element * 5 

BTS - TS + BUFL 

LOCO - Location counter from 
beginning of a program block 

LOC1 - Location counter from 
beginning of program 

UPCO - Update counter 

UP - Update counter for present 
LABTAB part 

PBTCO - Pointer for PBT and other 
tables 

BRAN1 - Branch table 

N - Number of current 12K 
segment 

SSS - Switch for SS format 

SRS - Switch for labels 

CCB - Switch for conditional 
branches 

NLBSTA - Stack for NLB 

NO - Number of program blocks 

RO; RT, RZ, 

RX, RY - Working registers 

PBT - Program block table 

OFFTAB - Offset table 

LABTAB - Label table 

M - Number of buffers in TS 

LATA -- BI 


LATA constructs the first version of LAB- 
TAB. It scans the text string for the 
pseudo Assembler instructions LABEL, PROCE- 
DURE, and END of block. Two location coun- 
ters are used. LOCO counts from the begin- 
ning of each program block; LOC! counts 
from the beginning of the program. 


1. When LABEL is found, LOCO is stored in 
LABTAB together with the label name and 
the number of the current program 
block. 


2. When PROCEDURE is found, the number of 
the program block is stored in a stack. 
The name and LOC1 are inserted into PBT 
at a location given by the block number 
(PBN). LOCO is set to zero to start a 
new count. The entry name is inserted 
into LABTAB with the location 0. The 
format of the entries in PBT is as 


follows: 
bytes 1 - 2: name 
bytes 3 - 4 : offset (LOCI) 


The format of the entries in LABTAB is 
as follows: 


bytes 1 - 2 
bytes 3 - 4 
byte 5 


name 
offset (LOCO) 
program block number 


3. When END OF BLOCK is found, an error is 
indicated if LOC1 is greater than 64K 
or if LOCO is greater than 32K. 


c o a rx «a 


If the pseudo Assembler instruction LABEL 
is found, LOCO is stored in LABTAB together 
with the internal name of the label and the 
current program block number contained in 
the corresponding stack.  LABTAB is written 
on SYS001 if an overflow occurs. The ele- 
ment LABEL is put into OBUF. 


UDA -- BK 


UDA updates those offsets of the present 
labels in LABTAB of the current program 
block that are greater than the value of 
the current location counter LOCO with the 
value given in UP. The same updating is 
performed for the offsets in PBT that are 
greater than the value of LOCI. 


MOC -- BL 


If the half-word pointed to by LSP contains 
the end key (X'FFFF'), LABTAB is written on 
SYS001. It is tested whether the byte 
pointed to by LSP + 4 (block number) is 
equal to PBN. If it is not, the routine 
returns. If the label location is greater 
than LOCO, the routine returns. If it is 
not, LSP is increased by 5. If LSP becomes 
greater than TS * BUFL, the first buffer in 
the table space is written on SYS001. LSP 
is decreased by BUFL and a new LABTAB 
record, if any, is read in and updated. 


A MM Z M MÀ 


If switch SRS is off, SCAL scans the pre- 
sent part of LABTAB for the label at POI + 
2. If SRS is on, the label is regarded as 
not belonging to the same 12K segment. 
Thus, optimization is suppressed for 
branches of that part of a 12K segment the 
labels of which are not present in the 
table space. 


Before scanning LABTAB, the current 
program block number PBN and LOCO are com- 
pared with the number of the last present 
LABTAB entry. If the PBNs are identical 
and LOCO is greaer than the label offset, 
SRS is set to one. SRS is reset if the end 
of the program block or the 12K segment is 
found. 


If the label is in the present part and 
belongs to the same program block and the 
same 12K segment, SCAL returns RZ # 0; 
otherwise, it returns RX - O0. 
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MADM -- BN 


This routine moves the ADD mask to OBUF by 
means of the routine MOC. 


This routine is used for the handling at 
the 12K segment boundaries. It generates 


BCR 0,0 


instructions until LOCO has the value 
N*12K-2. The instruction 


BALR 9,0 


is generated to load register 9 with the 
initial address of following segment. 


The location counters and the update 
counter are adjusted. The present labels 
are updated (by calling UDA), and new 
labels are read into the table space (by 
calling MOC). 


Branch Table BRANI and_Routines 


To determine the various Assembler instruc- 
tions, the code byte is used as offset in a 
branch table BRAN1 which contains branches 
to corresponding subroutines. For the 
format of the branch table refer to phase 
F95, 


The individual routines branched to via 
the branch table perform the following 
functions: 


CNOP (Test N) -- BO 


N = 0 : Word boundary: Add 2 to location 
counters.  Double-word boundary: 
Add 6 to location counters. Skip 
the element. 

N # 0: Evaluate the increment of the loca- 
tion counters. Generate a corres- 
ponding number of 


instructions. Update the present 
label offsets of LABTAB, change 
UPCO and update PBT. 


DCAL3 -- BO 


Ihe location counters are increased by 3 
and the element is moved into OBUF. 


The second half-word (L) of the element is 
added to the location counters and the 
element is put into OBUF. 
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DSL -- BP s 
The second half-word (L) of the element is Ns 
added to the location counters and the 

element is moved into OBUF. 


LABEL (Test N) -- BP 


Branch to LABE. 


N O : 
N O : Move the element into OBUF. 


+ Il 


PROCE -- BQ 


The routine checks whether there is a 
Statement number. If there is not, it 
stores the program block number in stack 
PBN and sets LOCO to zero. It tests wheth- 
er N= 0. 


N = 0 : Insert the name of the block and 
LOC1 into PBT and the name with 
LOCO into LABTAB. 

N # 0 : Move the element into OBUF. 


If it is a statement number, the element 
is moved into OBUF. 


ENDBL -- BQ 


An error message is produced by calling == 
phase G31 if either LOCO 2 32K or LOCT 2 | 
60K. Call MOC to write the labels of the NE 
current block on SYS001 and read the next 

part of LABTAB into the table space, if 

possible. Move the element into OBUF. 


DCF =~ BO 


The location counters are increased by 4 
and the element is moved into OBUF. 


ADD -- BR 


N = 0 : Determine the type of the following 
branch instruction and increase the 
location counters accordingly. 

Skip the element and the following 
branch instruction. 

N* 0 : Call SCAL to scan LABTAB for the 
label (second half-word). Deter- 
mine whether the label belongs to 
the same 12K segment as the 
instruction. 


1. If not the same 12K segment: 


Insert name and instruction key into 
the ADD mask of following format: 


00 (0) (0 (0 (0 (9) (2 (2) 


puce Td O Da ES 


: 
|] tat ft | d Ù 1 
i 





c8 | 4B | 9 | 0 | E3 |NAME| O | 
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de 


b. 


An absolute branch follows: The ADD 
mask followed by the branch 
instruction is put into OBUF. 


A BAL or BCT instruction follows: 
The ADD mask is put into OBUF fol- 
lowed by the branch instruction and 
an SH instruction of corresponding 
format. 


A conditional branch follows: The 
following sequence of instructions 
is generated: 


BALR 14,0 
AH D ses 
SPM 14 

BC eee 

SH Dye eee 


The location counters are increased 
accordingly. 
instructions should not fit in the 
current 12K segment, 
NOPR instructions are inserted and 
the instructions are put into the 
next segment. 


If the generated 


corresponding 


2. Same 12K segment: 
Delete the pseudo Assembler instruction 
by adjusting the pointer POI and change 
the following branch instruction to the 
format 
(0 (0 (0 0 0 (t Q (2 
IA OA: tad GaGa cet a de O 
| | [Op. | | | | | | 
| | CO |code| X | O | El |NAME| O | 
OUEST CS IA SA E ES A. cee 


Put this element into OBUF and increase 


the location counters by 4. 


Update the 


label table LABTAB and PBT. 


DCSTA -- BP 


The location counters are increased by 4 


and the element is moved into OBUF. 


PARA -- BT 


N = 0 : Increase the location counters by 


the length LO (contained in the 
Skip the element 
of length 4 and the following 


byte at POI + 3). 


string of length LC. 


N # 0 : Delete the pseudo Assembler 
Test wheth- 


instruction (POI + 4). 


er LOCO * LO is greater than N*12K 


- 2. 
the string at POI 
OBUF. 
evaluate 


N*12K - 2 - LOCO = ABS. 


If the value is not greater, 
increase LOCO and LOC1 by LO. 
(length LC) 
If the value is greater, 


Put 
into 


Generate ABS: 2 instructions of the 


type 
BOR 0,0 


Increase the location counters by 


ABS + 2 and N by 1. 
an instruction 


BALR 9,0; 


Then generate 


update present labels and branch to 


the action listed under item 1. 


UREG -- BT 


This instruction is deleted during the 
construction of LABTAB by increasing the 


pointer POI by 4. 
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The offset table OFFTAB is listed if the 
SYM option is active. This phase inserts 
the label offsets and block numbers from 
the label table LABTAB into the offset 
table OFFTAB. The offset table is put into 
the table space in subsequent parts. The 
label table is read into the I/O buffers 
record by record. 


Each LABTAB record is scanned. For each 
entry, the offset half-word and the follow- 
ing program block number are inserted into 
the present part of OFFTAB, if possible. 
The scan of LABTAB is repeated until all 
parts of OFFTAB have been in the table 
space. 


The input consists of the two tables OFFTAB 
and LABTAB retrieved from SYS001.  OFFTAB 
is read into the table space in parts of M 
records. The value of M is stored at 
IJKMIP+2, 


LABTAB is read (record by record) into 
the I/O buffers BO and B1 with the pointer 
LAPO. Each record is processed separately. 
If the end of LABTAB is found, the next 
part of OFFTAB is written into the table 
Space and reading of LABTAB starts again 
with the first record. 


The output (used by phase G15) consists 
of the changed offset table which is writ- 
ten onto SYS001 under ZTABO7. 


OFLIS == CC 


This routine lists the offset table OFFTAB 
in the following format (in the example, 
the start address of the static storage is 
assumed to be 4000) : 
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PHASE PL/IGOT (LABEL OFFSETS) -- CA 


CR SU CHE AE OS cec GK COOK 
| INTERNAL | OFFSET | TYPE | MODULE | 
| NAME | | | OFFSET | 
ļ---------- Poo |-———————— 1--------- 1 
| 0101 | 0024 | STATIC | 004024 | 
| 0102 | 0038 | AUTOMATIC | | 
baee ires EE Lor. A eae ery Oe eee Lia J 


Variables, constants, or labels that do 
not have an offset in static or automatic 
storage are not listed. For entry names, 
the offset of the generated address con- 
stants in static storage are written. 


RAN -- CD 


RAN inserts one line of the offset table 
into the print buffer. For the format of 
the line see the section OFLIS -- CC. Then 


the line is printed by the routine ZPRNT. 





TRANS -- CD 


This routine translates hexadecimal values 
into EBCDIC. The bytes (the number of 
which is given in R2) at 0(R1) are trans- 
lated and moved into the print buffer at 
the location given in RO. 


WOLA -- CB 


WOLA inserts the offsets and block numbers 
of the present part of LABTAB into the 
present part of OFFTAB. 


It takes the first half-word of a LABTAB 
entry, multiplies it by 3, and takes the 
value as offset in the offset table. It 
then inserts offset and block number at the 
position indicated by the offset. The 
pointer LAPO is increased by 5 for adjust- 
ment to the next entry. The routine 
returns when it finds the end key or reach- 
es the end of the first buffer. 











we 


| Nil 
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PHASE PL/IG15 (FINAL OFFSET PREPARATION) -- CH 


This 
toge 
iste 
foll 
this 
For 

rese 


Ihe 
ds 


2. 


idential 


phase inserts the offsets from OFFTAB 
ther with the corresponding base Reg- 
rs into the instructions. A half-word 
owing the instruction is reserved for 
purpose as described in phase F95. 
address constants, three bytes are 
rved for the offset. 


phase consists of two main parts: 
Processing of the text string and 


Processing of the constants contained 
in static storage. 


Text String 


Ihe 


of this phase. 


text output of phase 300 is the input 
The text is scanned for Rx, 


RS, SI, SS, and DC AL3 instructions. The 
format of the operands of these instruc- 
tions is as follows: 

byte 1 : key 

bytes 2-3 : name 

bytes 4-5 : modifier 

The key may have the following values: 
X'E1' : declared variable 

X'E9' : constant 

X'EU' : generated variable 

X'E5' : register 

X'00' : absolute address 

X'11" : DC AL3 (label) 

X'10' : already processed 

X'20' : DC VL3 

a. The first three keys mark the following 


field as entry in OFFTAB. In these 
cases, the offset is taken from OFFTAB. 
The modifier is added, the correspond- 
ing base register evaluated, and both 
are inserted into half-word following 
the operand. | 

The key is changed to X'10' to mark 
that the element has already been proc- 
essed. 

Address constants require special 
treatment because the offset may become 
greater than 64K. Therefore, the off- 
Set is inserted into the following 3 
bytes. 


The key X'E5' denotes that the operand 
(the half-word name) is a register. 
The register is taken as base register 
and the modifier as offset. Both are 
inserted into the following half-word 
as described under item a. The key is 
changed to X'10'. 


C. 


The 


CONTAB. 


bytes 1- 2 


denotes an absolute 
the name field is free, 
and 


The key X'00' 

address, i.e., 
no base register has to be taken, 

the modifier has to be inserted as 
offset. 


Though most of the instructions were 
processed in phase F95, some are left 
because the offsets for the labels 
could not be inserted; some strings, 
the elements of which should be con- 
nected, have not yet been processed; 
and the address constants could not be 
processed because some of them might 
contain labels. 


The key X'10' is used to mark operands 
already processed, i.e., that the half- 
word with offset and base register has 
already been inserted. 


Besides those normal cases, two special 
instructions have to be regarded. 

Those are the special pseudo assembler 
instructions with the code byte X'CO' 
or X'C8', respectively. (See phase 
G00). Special base and index registers 
have to be inserted besides the offset 
in these cases. 


Constants 


are on SYS001 in the table 
have the following format: 


constants 
They 


internal name 


byte 3 : attribute 
bytes 4 = 5': length 
bytes 6 - n : constant 


The attribute byte has the following 
format: 
bits 0-1: 00 = constant of type DC X ` 
01 = constant of type DC A 
10 = constant of type DC V 
11 = constant of type DC AL3 
bit 2 : 0 = not optimizable 
| 1 = optimizable 
bit 3. 2 not used 
bit 4 : 1 = DCVL3 if bits 0-1 are on. 
bit 5 : 1 = word boundary 
bits 6-7 : 01 = DC X for label assignment 
DC A for segment origin 
10 = DC A of an entry name 
11 = double-word boundary 
The constant itself is given in the inter- 


nal 


constant, 


if it is an address 
modifier (4 bytes). 


representation or, 
as name plus 
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[E zwei pecu PERRY RIN: p E ANNIA RUNY CRO TE 1 
| | Byte (s) | A 
| eects ŚWI dial: Coser: gatas een aoe usque eique ique ees wy 
|Instruction| 1 | 2] 3 | 4 | 5| 6 | 7 | 8 | 9] 10] 
poro A |———— Al22.-i-—---42---4-2--.---- ER 
|DC X | 80 | C2 | length | constant | | 
ey eee Pore 6 "| ene ee ee ee HSS Sees Hs 
IDC A | 80 | CA | 10 | name | modifier] offset | 
~---=------ }----}----}----}--------- t--------- }-------------- 
{DC V | 80 | CB | 10 | name | modifier| offset | 
-~--~------ ł----4----ł----ł---------ł---------ł-------------- 
|DC AL3 | 80 | C1 | 10 | name | modifier| offset | 
~---------- }----}----}----}--------- }---------}-------------- { 
|DC VL3 | 80 | C1] 13 | name | modifier| offset | 
ERR AA A A AA a a E E A 1 


Figure 1. Output Format of Translated Constants 


These constants are translated into the p[T—7—-T-------------------- 1 
same format as those in the text string, | 80 | C4 label aaaa | 
and the offset for address constants is E id J 
inserted. For DC A, the code byte X'CA' 
and for DC V the code byte X'CB' is used. o T----41------- 177----- T^7-7---- 1 
The constants are put onto the text medium | | | BLOCK | | | 
behind the normal text; the end key is put [ 80 | CA | 10 | NAME | N*12K |OFFSET| 
at the end of the constants so that there LL---4----4----4----—-—-—- 11111——— t- J 


is no difference between the two parts in 

following phases. At the begin of the 

constants, a label FFFF is generated denot- N= 0 or 1or 2 
ing the begin of static storage. 


The output is shown in Figure 1. Lo nd ido omo J ON 
Figure 2. Output Formats of DC A and 
Two keys are used for DC AL3 because two DC X Constants Generated for 
types of instructions may occur: 1) the GOTOs. 


normal DC AL3 with the key X'10' and 2) a 

DC VL3 (flagged by bit 4 of the attribute 

byte) with the key X'30'. S —. p-------- 
The names in front of the constants, 

used to address them, are inserted into a DC A 

pseudo assembler instruction LABEL. 


12K 


r 
| 
| 
| 
| 
| 
Special constants: -}-------- 
| 
a. For GOTOs from one program block to a DC X | Lh: K——4 LABEL L 
label in another one, the following DC | 1] 
instructions are used: L 
L'aaaa' DC A(BLOCK * 12K segment) P======-- | 


DC X*OFFSET' 


of the program block and a multiple of 

12K as modifier representing the ini- 

tial offset of the 12K segment corres- Loto 
ponding to the label. | 


| 

The DC A constant contains the address | GOTO X -- 
| 
| 


b. To correctly load register 9 (in the 





The 4-byte DC X constant is the label prologue) when calling an entry name, a 
offset in the block reduced by the constant 

offset of the corresponding 12K seg- 

ment. ‘Label DC A (BLOCK + 12K segment) ' 

The output formats of these constants is used. Its output is the same as 

are shown in Figure 2. that of the previous instruction. 
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General Flow 


The offset table is read into the table 
space and the text is scanned and proc- 
essed. If the End key is found, the con- 
stant table CONTAB is read into the buf- 
fers. The format is Changed, the offset 
inserted, and the constants are written 
behind the text string. 


If the offset table is greater than the 
table space, the text followed by the con- 
stants is scanned again. This process is 
repeated until all parts of OFFTAB have 
been in the table space. At the end of the 
phase it is tested whether a file table 
exists. If there is a file table, phase 
G17 is called. Otherwise, phase G17 is 
Skipped and phase G20 is called. 


Ihe input consists of the text string as 
generated in phase G00 and of the following 
tables: 


OFFTAB Offset table to be found on SYS001 
under ZTABO7 or, if small enough, 
in the table space. 


CONTAB Constant table to be found on 
SYS001 under ZIABO8. It is read 
into the I/O buffers. 


CARTAB  Character-string table to be found 
on SYS001 under ZTABOO. It is read 
in and put behind the text string. 


EXTTAB External name table to be found on 
SYS001 under ZTABOY. It is written 
onto the free text medium at the 
end of the phase. 


PBT Program block table in the program 
Space (generated by phase GOO). 


The text is read into the I/O buffers B1 
and B2 with the pointer POI and put out by 
means of the output buffer BO with the 
pointer POU. 


symbols used in flow charts 


BO, Bl, B2 - I/O buffer begin 
addresses 

IBUF a - Input buffers 

OBUF - Output buffers 

POI - Input pointer 

POU - Output pointer 

BRAN2 - Branch table 

LOCO - Location counter 

DCXMA - Address of the DC X mask 

OFEN - Storage area for offset 

Hw - Half-word 

BN - Number of OFFTAB records 
left 

RO, R1, R2, RY - Working registers 

SSS - Switch for SS instructions 


SW - Switch for the constants 

REN - Register containing the 
name 

LAMA - Address of LABEL mask 

CN - Number of constant records 

PSC - Pointer for constants 

AMA - Address of DC A mask 

DSLMA - Address of DS mask 

SWO - Switch for DC SO 

M - Number of buffers in the 


table space 


Functional Description 


This phase has the following functions: 


1. To scan the text for instructions not 
yet processed. 


2. To generate the half-word containing 
base register and ottset after the 
operand. 


3. To change the format of the constants 
in static storage. 


4. To insert the offsets for address con- 
stants into the succeeding 3 bytes. 


Since OFFTAB may become greater than the 
table space, only a part of OFFTAB might be 
present in storage. Therefore, the text 
string and the constants may have to be 
scanned several times, once for each part 
of OFFTAB. 


Machine Instructions 


The instruction format is determined by 
testing bits 0 and 1 of the operation-code 
byte. 


RR_Format 


The element is moved into OBUF and LOCO is 
increased by 2. 


LOCO is increased by 4. The key at POI*U 
is tested. If the key is El, E9 or E4, the 
offset is taken from OFFTAB together with 
the attribute byte. The modifier is added 
to the rightmost 12 bits of the offset, and 
the base register is evaluated. The ele- 
ment is put into output after the key has 
been changed. The haif-word containing 
base register and offset is put behind the 
element. 


If the key is E5, the offset half-word 
is constructed from register and modifier. 
If the key is 00, the modifier is used as 
offset half-word. If the key is 10, the 
element is moved into the output. 
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Both operands of the instruction are han- 
dled as described for the RX, RS, and SI 
instructions. The element is put into the 
output in two parts. LOCO is increased by 
6. 


Assembler Instructions 
The individual assembler instructions are 


determined by the second byte which con- 
tains the instruction key. The keys are: 


CO - optimized BRANCH 
C1 - DC AL3 

CZ, = DC: Xx 

ES =. DS: Lb 

C4 - LABEL 

C5 - PROCEDURE 

C6 - END OF BLOCK 

CY - DC KX BENGTH OF DSA' 
C8 - special ADD 

C9 - DC A(STATIC) 

CA* — DC A 

CB* - DC V 


CC* - DC LASS 
CD* - DC SO 


* used for static constants 


The key byte is put into a general reg- 
ister and X'COÓ' is subtracted. The result- 
ing number is used as an offset in the 
branch table (BRAN2) that contains the 
corresponding branches to the processing 
subroutines. 


The branch table BRAN2 has the format shown 
below. 
BRAN2 OBRA 
DCAL3 
DCX 
DSL 
LABEL 
PROCE 
ENDBL 
DCF 
ADD 
DCSTA 
DCA 
DCV 
DCLASS 
DCSO 


0D w y U u v u u yv u y w w w 
CO QU 50 -J1O0U £U0hN 30 


The names contained in the table are the 
names of the subroutines. The displacement 
within the table is found by multiplying 
the number in the right-hand column by 
four. 


OBRA -- CL 


The instruction (branch) has the following 
format: | 
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Byte (s) Contents 
qe 2 x'80C0* 
3 operation code 
4 X 
5-6 X'00E1' 
1- 8 name 
9-10 


Zero 


LOCO is increased by 4. The name field 
is tested to determine whether the corres- 
ponding offset is contained in the present 
part of OFFTAB. If it is not contained, 
the element is put into OBUF unchanged. If 
it is contained, the first byte (80) is 
deleted. The second byte (C0) is replaced 
by X'88'. The offset is taken from OFFTAB. 


0 
4K 
8K 


offset module 12K < 4K byte 4U=X"00" 
offset module 12K < 8K byte  4=X"07' 
offset module 12K < 12K byte 4=Xx'08" 


IA IA IA 


The key El is changed to 10 and the 
element is put into OBUF. The offset modu- 
lo 4K and the base register 9 are inserted 
into the following half-word. 


The new format iS: 


Byte(s) | Contents 
1 X'88' 
2 operation code 
3 X 
4 0, T, or 8 
5 O 
6- 7 name 
8- 9 Zero 
1434 left-hand four bits: X'9' 
remainder: offset 


DC AL3 -- CM 


The instruction has the following format: 


Byte (s) Contents 
152 x'"80Cc1* 
3 key 
yr 5 name 
6- 7 modifier 
8-10 used for offset 


The location counter is increased by 3. 
The key is tested for 10 and 11. If it is 
10, the element has already been processed 
and is put into OBUF unchanged. In this 
case, the succeeding 3 bytes contain the 
offset. If it is 11, the key denotes that 
the operand is a label. The offset is 
taken from OFFTAB together with the program 
block number. The offset is increased by 
the sum of modifier and initial block- 
address offset to be taken from PBT. This 
sum is inserted into the succeeding three 
bytes. The element is then put into OBUF 
after the key has been changed. 














PL/I PLM 8 


IBM Confidential 


If the key is neither 10 nor 11, the 
operands are constants in static storage. 
The offset is taken from OFFTAB (if 
present). The sum of offset, modifier, and 
length of program is inserted into the 
Succeeding 3 bytes after the element with 
the changed key has been moved into OBUF. 


DEA: PE UM 


Since the constant may become greater than 
256 bytes (for STATIC), a special treatment 
for 1/0 is necessary. Thus, the element is 
not changed but only put into the output 
(LOCO + length of constant). It is tested 
whether the element is fully contained in 
the input buffers B1, B2. If it is, MOO is 
called to move the element into OBUF. If 
it is not, MOO is called for the present 
part. The input pointer and the element 
length are updated and new input is read 
into B1 and B2. This loop is repeated 
until the entire element has been brought 
from input to output. 

DS L -- CN LOCO is increased by the 
length L (HW at POI*2). The element is put 
into OBUF unchanged (call MULTI). 


LABEL -- CN (Same as MULTI) -- CN. The 
element is put into OBUF unchanged. 


PR = LOCO is set to zero to start 
a new count. Ihe element is then put into 
OBUF (call MULTI). 

ENDBL -- CN. (Same as MULTI). The element 
is put into OBUF unchanged. 


BE p ce The element is put into OBUF 
unchanged and LOCO is increased by 4. 
MULTI -- CN. The element of length 4 is 
moved from POI to POU by calling MOO. 


ADD -- CN Ihe element has the following 
format: 
Byte (S) Contents 

dee e Xx 9068" 

3 X'5A' or X'5p' 

4-10 X'0900E300040000° 


LOCO is increased by 4. The name field is 
tested to determine whether the correspond- 
ing offset is contained in the present part 
of OFFTAB. 


If it is not contained, the element is 
moved into OBUF unchanged. If it is con- 
tained, the first byte (80) is deleted. 

The second byte (C8) is set to X'88'. The 
key is changed to X'10'. The offset is 
taken from OFFTAB. Then it is tested 
whether or not LABEL and instruction are 
contained in the same 12K segment. The 
modifier is replaced by 0 if it is the same 


12K segment, by 12K if it is a neighbouring 
Segment, and 24K in all other cases. Base 
register 12 together with the offset of the 
constant which is stored in a special stack 
during the initialization are inserted into 
the succeeding half-word. 


The new format is: 


Byte (s) Contents 

1 X'88' 

2 X'5A' or X'58' 

3- 7 X'0900100004' 

8- 9 modifier 
10-11 left-hand four bits: Xx'C' 

remainder: offset 

pepe NGT PT" RO qe [occu 1 
| [5A | d |» | | | | 
|88for 58[09[00[10[0004 |MODIFIER|C OFFSET | 
(A ll E CS ON EDEN. A d a 4 


The internal name 0004 is reserved for the 
Special constants OK, 12K, 16K, 20K, 24K 
and 28K. These are stored as half-words at 
the beginning of static storage. Their 
Offset is contained in OFFTAB. During the 
initialization of the phase, the offset of 
these constants has to be taken and stored 
into a stack so that it is accessible dur- 
ing the entire phase. 


Constant Name Modifier 
OK 0004 0000 
12K 0004 0002 
16K 0004 0004 
20K 0004 0006 
24K 0004 0008 
28K 0004 000A 


DC STA -- CO. The length of the program is 
retrieved from the interphase communication 
region. It is inserted to the last three 
bytes of the DC A mask. The format of the 


DC A mask is as follows: 





Byte (s) Contents 

d 3 X'80CA10' 

4- 7 zero 

8-10 length of program 


The name field is set to zero to sign the 
special DCA. This mask is moved into OBUF, 
and LOCO is increased by 4, 

DC A and DC V -- CP These routines are 
used for the constants of static storage 
after they have been brought to a new for- 
mat. 





Byte (s) Contents 
1 X'80' 
2 X'CA* or X'CB 
3 key 
4-5 name 
6-7 modifier 
8=9 offset 
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The key is tested for 10 and 11. The DC V 


routine is contained in DC A. 


The key 10 indicates that the element 
has already been processed. The three 
succeeding bytes contain the offset. The 
element is put into OBUF. The key 11 
denotes that the internal name represents a 
label. In this case, the offset together 
with the program block number, if present, 
are taken from OFFTAB. The offset is 
increased by the sum of modifier and ini- 
tial block-address offset to be taken from 
PBT. This sum is inserted into the suc- 
ceeding three bytes and the element put 
into OBUF after the key has been changed. 


If the key is neither 10 nor 11, the 
offset is taken from OFFTAB, if present. 
The sum of offset, modifier, and length of 
program is inserted into the succeeding 
three bytes. The element is put into OBUF 
after the key has been changed. 


DC LASS -- CO The instruction has the 


a ee — ——M —À—— — A PP oe 


= 

| Int. NAME 
E1 | OF LABEL 
L 


The name of the label is tested to deter- 
mine whether the corresponding offset is 
contained in the present part of OFFTAB. 


If it is not contained, the element is 
put into OBUF unchanged. If it is con- 
tained, the second byte is changed to CA 
and the third to 10. The offset together 
with the block number is taken from OFFTAB. 
The block number is inserted into the name 
field and the 12K segment is determined. 
Corresponding to this, 0, 12K, or 24K is 
inserted as modifier. The modifier is then 
added to the offset of the program block to 
be taken from PBT. The sum is inserted 
into the following three bytes. 


T 
| | | | NUMBER 10, 12K] OFFSET OF 


[80|CA|10|0F BLOCK | or 24K| CORRES. 12K segm. | 
¡AR O hs ean AAA MIA E er eee J 


Following this, the instruction DC X 
(containing the offset of the label inside 
the 12K segment) is generated. Its format 
is as follows: 


The length 4 is inserted into the DC X 
mask. The label offset is reduced by the 
modifier of the preceding DC A and stored 
into the following 4 bytes. The element is 
put into OBUF. 
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DC 50 == CO. This routine consists of the 
first part of DC STA. At the beginning, 
Switch SWO is set to one so that the rou- 
tine is terminated before generating the 
second instruction. 


End Key 


When the End key is found for the first 
time, a routine will be called to transform 
the static storage constants into the same 
format as the constants of the text string. 
The routine inserts the offset, if possi- 
ble, and moves it into OBUF. After this a 
Switch will be set. 


At the beginning of the static storage, 
a label 'FFFF' is generated while the end 
key is put at the end of the output. 


In all cases, the contents of the last 
output buffer are written onto text medium. 
If all parts of OFFTAB have not yet been in 
Storage, a new part of OFFTAB is read into 
the table space. The work files are 
Switched and rewound, and the phase is 
called again until all offsets have been 
inserted. 


The character string is retrieved from 


SYS001 and put behind the text.  TXTIN is 
rewound and EXTAB is written on it. It is 
tested whether a file table exists. If it 


does, phase G17 is called. Otherwise, that 
phase is Skipped and C20 is called. 


EXTAB -- CR 

This routine reads EXTAB record by record 
into the I/O buffers BO and B1 in over- 
lapped mode and puts it onto TEXTOUT in the 
Same way. 


OGA -== ER 


OGA determines whether the corresponding 
offset 1S contained in the present part of 
OFFTAB. If not, it moves the rest of the 
element (5 bytes) into OBUF and returns. 
Otherwise, the offset is taken from OFFTAB 
together with the attribute byte and stored 
in OFEN+2. The base register is determined 
by the routine BAS; the rest of the element 
(5 bytes) is followed by a half-word con- 
taining the base register in the first 4 
bits and the offset mod 4K in the following 
12 bits is moved into OBUF. 


GEO -- CS 

GEO moves the OFFTAB entry, if present, to 
OFEN+2 (R1 = 0), or it returns (R1 = 1) 
after having moved the element into OBUF. 


MOK -- CS 


Moves the half-word at OFEN*2 into OBUF. 
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ROFF -- CT 
ROFF determines the final offset by adding 
the modifier (at POI + R1) to the offset, 
taking the sum modulo 4K, storing the 
result in OFEN*2 and ORing base register RY 
on the initial 4 bits of OFEN*2. 


BAS > CU 
This routine determines the base register 
by means of the variable level contained in 
the attribute byte at OFEN+4 and the cur- 
rent block level contained in LEVS. The 
format of the attribute byte is as follows: 


bits 0 - 1 : level 
bit 2 : 1 = static, 0 = automatic 
bits 3 - 7 : zeros 


If bit 2 is on (static), register 12 is 
used as base register. If it is off 
(automatic), it has to be determined in 
which block the variable is to be found. 
Figure 3 shows all possible cases and the 
base register used. The base register is 
returned in RY. 


| 

| Level | 
| SP oe LATAS 1 
| | 11 2] 3 | 
| p t----- }----- 
| Level | 1 ES | 11 | 11 | 
|of the ---4----- $----- $----- { 
|Variable| 2 |ERROR| 13 | 10 | 
| }--~4---~- i----- E----- 1 
| | 3 JERROR|ERROR] 13 | 
AA A O aos A J 


Basic Register Used for Automat- 
ic Variables 


Figure 3. 


IRAN -- CV, CW, DA DB 


TRAN transforms the constants of static 
Storage given in a table on SYS001 into the 
instruction formats used for the text. The 
constant table CONTAB is taken from SYS001 
and put into the input buffers B1 and B2. 
The format of the constant in the table is: 


DC X 

Byte (s) Contents 
1-2 name 
3 attributes 
4-5 length 
6-8 constant 


DC A, DC AL3, DC V, LC VL3 


1-2 name 

3 attributes 
4-5 y 

6-7 internal name 
8-9 modifier 


All elements with a 'delete' bit are delet- 
ed. The name field is translated into the 
pseudo assembler instruction LABEL. The DC 
X instructions are transformed into the 
following format: 


Byte (s) Contents 
TEŻ x'80C2* 
3-4 length L 
oed constant 


This is done by inserting the length into 
the DC X mask: 


Byte (S). Contents 
Tez x 80C2" 
3-4 length L 


and moving the mask followed by the con- 
Stant itself into OBUF. In the case of an 
optimizable DC X, LOCO is set to boundary 
depending on the length of the constant: 


Length Boundary 
2 half-word 
4 word 
8 double-word 


This is done by generating a corresponding 
DSL instruction by means of the DSL mask: 


Byte(s) Contents 
1-2 X'80C3" 
3-4 length L 


There are special constants for label 
assignments which are transformed to the 
format: 





Byte (s) Contents 
1-2 A BOCC* 
3 key 
4-5 label 
6 zero 


The routine DC LASS is called to insert the 
offsets, to generate the following DC X and 
to put the elements into OBUF. These spe- 
cial constants originally have the follow- 
ing format in CONTAB: 


1. DCA 
Byte (s) Contents 
1-2 name Of DC A 
3 attributes 
bits 0-1 = 00: DC X 
Dxt 2 SD Oe 
optimizable 
bits 3-5 always zero 
bits 6-7 = 01: label 
assignment 
4-5 length = 4 
6-7 label 
gc Zero 
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2. DC X 
Byte (s) Contents 
1-2 Zero 

3 attributes 


bits 0-1 = 00: DC X 
bits 2-7 always zero 


The DC AL3 and the DC VL3 instructions are 
transformed by means of the DC A mask: 


Contents 
x'80' 

2 ZEN 
b key 

-5 internal name 

-7 modifier 

-10 place for offset 


Byte (s) 
1 


X'CA', X'CB', or X'CC' 


co OL 


Ihe key C1 is inserted into byte 1, the 
internal name and the modifier into the 
corresponding two half-words. The key at 
byte 2 is set to 11 for entry names, to 20 
for DC VL3, and to El for all other items. 
The routine DC AL3 is called to insert the 
offset, if possible, and to put the element 
into OBUF. 


The same mask is used for DC A and DC V 
instructions, CB is inserted into byte 1 
for DC V and CA or CC for DC A, after LOCO 
has been brought to word-boundary. 


In the case of a DC V, the element is 
put into OBUF. The modifier is taken as 
offset and put into the three bytes follow- 
ing the element. The key at byte 2 is set 
to 10. 


For DC A instructions the following 
three cases may occur: The operand is an 
entry name: The key (byte 2) is set to 11, 
and the routine DC A is called to put the 
element followed by the offset (if present) 
which is formed by the sum (modifier * 
offset from OFFTAB * length of program 
block) into OBUF. 


Segment origin: 


The format of this instruction is: 


Byte(s) Contents 
1-2 name of DC A 
3 attributes 
4-5 length = 4 
i entry 
8-9 zero 


The format of the attribute byte is as 
follows: | 


bits 0-1 : 01 = DCA 

bit 2 : 0 = optimizable 

bits 3-5 : zero 

bits 6-7 : 01 = segment origin 
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It is transformed to: 


Byte (s). Contents 
1-2 X'80CD' 
3 key 
4-5 label 
6-7 zero 


and the routine DC SO is called to insert 
the offsets and to put the element into 
OBUF. 


In all other cases, the key (byte 2) is 
set to El and the routine DC A is called to 
put the element followed by the offset 
which is formed by the sum (modifier + 
offset from OFFTAB + length of program) 
into OBUF. 


BOU S= DC 


BOU sets LOCO to the boundary given in R2. 


R2 = 2 half-word boundary 
R2 = 4 word boundary 
R2 = 8 double-word boundary 


All other values of R2 cause no boundary 
alignment. LOCO is set to boundary by 
generating an instruction DSL with the 
corresponding length L. 


MOK1 -- DD 


This routine moves a constant from PSC into 
OBUF even if it is not fully contained in 
the I/O buffers. It moves the present 
part, reads new input into the input buf- 
fers, and moves the next part. This proce- 
dure is repeated until the constant is 
fully moved into OBUF. 


ISCR supervises the input buffers BI and 
B2. It compares the pointer PSC with B2. 
If B2 is greater than PSC, the routine 
returns. If it is less or equal, the input 
is moved from B2 to B1 (with the length L = 
BUFL) and new input is read into B2.  PSC 
is adjusted by subtracting BUFL, and the 
routine returns. 


BRG -- DF 

BRG is called by the routines OBRA and ADD. 
It prepares the elements generated in phase 
G00 for the branch instruction. It takes 
the offset from OFFTAB and inserts some 
keys into the instruction. 


These routines are described in the section 
General Description of Phases F95 =+.G55) 
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PHASES PL/IG17, B, D, E, R, S (FILE GENERATION) -- DJ 


— — 


These phases generate the tables required 
for each file: the DTF appendages, the DTF 
tables, and the buffers. 


These tables are generated in the form 
of assembler output cards (ESD, TXT, and 
RLD cards). For each file, a special con- 
trol section is produced. The name of the 
control section is the file name. External 
references are the module name in each 
table and, depending on special file param- 
eters, certain library routine names (e.g. 
the name of the end-of-file processing 
routine). The first part of the text is 
the appendage (from START to the label 
TABAD in the tables shown in Appendix D). 
For the format see description of the 
library. The following text applies to the 
normal logical IOCS DTF table, which is 
followed by the buffer areas, if required. 


The above control Sections are generated 
as follows: First, the addresses of the 
work spaces (buffers) to be used by the 
phases are established and the first 
entries of the file table and of the exter- 
nal name table (on the text output medium) 
are read. Reading and writing is performed 
in non-overlapped mode, using the external 
routines IJKARO and IJKAPI and the standard 
routine ZTIN. The phase itself provides a 
partial overlapping of these functions. A 
record count.is maintained in register RD 
for the file table entries, and the proc- 
essing is terminated when this table is 
exhausted. Then the file entries are 
scanned. The file table was constructed 
and written on SYS001 by phase B25. The 
external name table was constructed and 
written on SYS001 by phase B97. The latter 
table is written on TXTOUT by phase G15. 


All file entries, which are not to be 
processed by the present phase are 
bypassed. In the first of the six phases, 
a bit is set in the communication region 
for each bypassed file entry. This bit 
later on initiates calling of the appropri- 
ate phase to process the entry. If a file 
entry to be processed by one of the phases 
of group G17 is encountered in the corres- 
ponding phase, a mask is selected according 
to certain file parameters, and the output 
pointer (register RE) is set to the address 
of this mask. Then the external name table 
is scanned for the external name of the 
file. The external name table is scanned 
record by record. Each record contains 
several entries. A new record is fetched 
whenever the previous record has been com- 
pletely scanned. 


If no matching file name is found, the 
file entry is associated to a file paramet- 
er and consequently ignored. Otherwise, 
the matching external name is inserted into 
the selected mask. The remaining part of 
the mask is set up according to the file 
table attributes. The EDIT routine is 
called to edit the modified mask into the 
text input medium, immediately following 
the program text. The next phase is 
fetched according to the setting of the 
communication bits. If the next phase is 
G20, an END card image is additionally 
produced and edited. 


The EDIT routine writes one output 
record (card image: 80 bytes) , starting 
with the byte selected by the output poin- 
ter. Then the output pointer is conse- 
quently incremented by 80. 


Phase Input and Output 


This phase uses the file table (see phase 
B25) and the external name table (see phase 
B97) as input. The external name table was 
written onto the text output medium by the 
preceding phase. The text input medium was 
not rewound so that the output cards can be 
written onto the medium, immediately fol- 
lowing the text. 


The output file tables are based on 
preassembled masks in the form of assembler 
output cards. All files are divided into 
several groups, each group is characterized 
by special file parameters. For each 
group, one mask is generated. The remain- 
ing file parameters, which may change and 
which are not required for the selection of 
the group, affect the mask internally. The 
file groups and the modification of masks 
are discussed later. 


General Rules 


The following rules apply to all files 
except those explicitly mentioned: 


1. The file name is inserted as SD name in 
the first ESD card. 

2. The CSECT length in the SD entry is 
incremented for all files except the 
unbuffered files. 

The increment value is: 

e one blocksize for files with 
BUFFERS (1) ; 

e two blocksizes for files with 
BUFFERS (2) and STREAM, and 

e two blocksizes + MOD (blocksize, 8) 
for files with BUFFERS (2) and 
RECORD. 
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PL/IG17_ (CARD, PRINT, UNBUFFERED FILES) 


ARE 
This phase processes all card, print, and unbuffered files. s" 
CARD FILES 
Four different masks are used for card files: 
FILECDI : Input card files 
FILECDO1: 1442 Output card files 
FILECDO2: 2520 Output card files 
FILECDO3: 2540 Output card files 
The following rules apply to all card files: 
Location Action 
001E AL1 (0) if SYSIPT, SYSPCH 
AL1 (1) if SYS000 to SYS245 
001F AL1 (1) if SYSIPT 
AL1 (2) if SYSPCH 
AL1(0) to AL1 (245) if SYS000 to SYS245 
0028 7th character Z if BUFFERS (1) 
I if BUFFERS (2) 
8th character 0 if 2540,INPUT 
1 if 1442 
2 if 2520 
3 if 2501 
4 if 2540, OUTPUT =. 
ay | 


Rules for FILECDI: 


Location Action 


002D AL1 (0) if 2501 
AL1 (1) if 2540 
AL1 (2) if 2520 
AL1 (32) if 1442 
Add 4 to all values if BUFFERS (2) 
0030 The address is incremented 
by blocksize if BUFFERS (2) STREAM, and 
by blocksize + MOD (blocksize,8) if BUFFERS (2), RECORD. 
0038 4th parameter: insert blocksize 
0040 Insert LA 2,0 (14) if BUFFERS (2) 


Rules for FILECDO1, 2, 3: 


Location Action 


002D AL1 (16) if BUFFERS (1) 
AL1 (20) if BUFFERS (2) 
002E AL1 (65) if 2520, 2540 
002F AL1 (193) if 1442 
003A Insert LA 2,0 (14) _ if BUFFERS (2) 
003E x'00' if 2540 
x'01' if 2520 
x02" if 1442 
0040 1st parameter: See location 002E 
2nd parameter: the address is increased by blocksize 


if BUFFERS(2) STREAM, and 
by blocksize + MOD (blocksize,8) if BUFFERS(2), RECORD 
4th parameter: insert blocksize 
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PRINT FILES 


Two different masks are used for print files: 


FILEPRR : print files with record 


FILEPRP 


print files with print 


The following rules apply to print files: 


Location 

FILEPRR 
001E 
001F 
0028 


002D 


003A 


0040 


Action 
FILEPRP 
0026 AL1 (0) 


AL1 (1) 
0027 AL1 (3) 


if SYSLST 
if SYS000 to SYS245 
if SYSLST 


AL1 (0) to AL1 (245) if SYS000 to SYS245 


0030 7th character: 


- AL (16) 
AL1 (20) 
0035 AL1 (48) 
AL1 (52) 
0042 NOP 
LA 2,0(14) 
> 2nd parameter: 
the address is 


4th parameter: 
0048 2nd parameter: 


Z if BUFFERS (1) 
I if BUFFERS (2) 
if BUFFERS (1) 
if BUFFERS (2) 
if BUFFERS (1) 
if BUFFERS (2) 
if BUFFERS (1) 
if BUFFERS (2) 


increased by blocksize + MOD (blocksize, 8) 


if BUFFERS (2) 
insert blocksize - 1 


the address is increased by blocksize 


Lth parameter: 


UNBUFFERED TAPE FILES 


if BUFFERS (2) 
insert blocksize - 1 


One mask is used for unbuffered tape files: FILETAUN. The following rules apply to this 
file group: 


Location 
0016 
0017 


0025 
0028 
002A 
002C 


0038 


Action 


AL1 (1) 
AL1 (0) 
AL1 (1) 
AL1 (2) 
AL1 (3) 


'AL1(0) to AL1 (245) 


Increase value by 16 


Insert blocksize 
Insert blocksize 
Xx 02 

Xx “Oc” 
X'00000000' 
X'00400000' 





Xf 
if 
if 
if 
LE 
TÉ 
LE 
LE 


if 
pf 


if 


SYS000 to SYS245 


SYSIPT, SYSPCH, SYSLST 
SYSIPT 

SYSPCH 

SYSLST 

SYS000 to SYS245 


BACKWARDS, and by 128 
LEAVE 


without BACKWARDS 
BACKWARDS 
without BACKWARDS 
BACKWARDS 
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UNBUFFERED DISK FILES 


Two different masks are used for unbuffered disk files: 


FILEDIUN: no UPDATE 
FILEDIUU: 


with UPDATE. 


The following rules apply to unbuffered disk files: 


Location 


FILEDIUN FILEDIUU 


0026 
0038 
004E 
0050 
0054 


002E 
0040 
0056 
0058 
005€ 


Action 


Insert filename 
Insert blocksize 
Insert blocksize 


Increment value by 64 if VERIFY 
Increment value by 16 if VERIFY 


PL/IG17B (BUFFERED TAPE FILES) 


This phase processes all tape files except the unbuffered ones. 


are used for buffered tape files: 


FILETAFI: 
FILETAFO: 
FILETASP: 
FILETAFB: 
FILETAVI: 
FILETAVO: 
FILETAUI: 
FILETAUO: 


Input tape files with fixed records 


Output tape files with fixed records 
Tape files with PRINT option 


Tape files with BACKWARDS option 


Input tape files with variable records 

Output tape files with variable records 
Input tape files with undefined records 
Output tape files with undefined records 


Ihe following rules apply to all buffered tape files: 


Location 
FILETASP 
0026 
0027 


0034 


0035 


0036 
0040 
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All others 


001E 


001F 


002C 


002D 


002E 
0038 


Action 


AL1 (0) 

AL1 (1) 

AL1 (1) 

AL1 (2) 

AL1 (3) 

AL1(0) to AL1 (245) 
5117 

x'12' 

x137 

x'14' 

Increment by 64 
by 32 

by 4 

Insert file name 
Increment value 
by 128 

by 16 

by 8 


if 


if 
if 


if 
if 
if 
if 
TE 
if 
if 
if 


if 
if 
if 


SYSIPT, SYSPCH, SYSLST 

SYS000 to SYS245 

SYSIPT 

SYSPCH 

SYSLST 

SYS000 to SYS245 

NOLABEL 

OUTPUT without NOLABEL 

INPUT, BACKWARDS without NOLABEL. 


Eight different masks 


INPUT without BACKWARDS and NOLABEL 


blocksize £ record size or if VARIABLE 


BUFFERS (2) 
BACKWARDS 


NOLABEL not specified, 
LEAVE, 
BACKWARDS specified. 
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Rules for FILETAFI, FILETAFO, FILETASP, FILETAFB: 


Location 


(Sent Qa weet Fo o o Z SRI 


FILETASP All others 


Action 


0054 004C Insert NOP if neither blocksize unequal to record size 
nor BUFFERS (2) specified. 
0058 0050 2nd parameter: 
add (blocksize -1) if BACKWARDS 
4th parameter: 
insert blocksize 
0060 0058 Add to address blocksize if BUFFERS (2) STREAM, 
blocksize + MOD (blocksize, 8) if BUFFERS (2) RECORD, 
add extra (blocksize -1) if BACKWARDS. 
0061 005C Add (blocksize - record size) if BACKWARDS, 
blocksize if OUTPUT, BUFFERS (2) , STREAM 
blocksize + MOD (blocksize, 8) if OUTPUT, BUFFERS (2) RECORD 
0068 0060 Insert (-recordsize) if BACKWARDS, 
recordsize in all other cases. 
006C 0064 Add (blocksize - recordsize) if BACKWARDS, 
blocksize if OUTPUT, BUFFERS (1), 
2 blocksizes if OUTPUT, BUFFERS (2), STREAM 
2 blocksizes+MOD (blocksize,8) if OUTPUT, BUFFERS (2) , RECORD 
0070 0068 Insert blocksize 
0072 006A Insert (blocksize + 1) if BACKWARDS, 
(blocksize -1) in all other cases 
0074 006C Insert (recordsize -1). 
Rules for FILETAVI and FILETAVO: 
Location Action 
0050 4th parameter: insert blocksize 
0058 Add blocksize + MOD (blocksize, 8) if BUFFERS (2) 
005€ Insert blocksize 
0060 Add blocksize + MOD (blocksize, 8) if BUFFERS (2) 
006C Add blocksize + MOD (blocksize, 8) if BUFFERS (2) 
0070 Insert blocksize -4 if OUTPUT, 
blocksize if INPUT 
0076 Insert (blocksize -1) 
Rules for FILETAUI and FILETAUO: 
Location Action 
004C Insert NOP if neither BACKWARDS nor BUFFERS (2) 
0050 1st parameter: 
x'01' if OUTPUT 
X027 if INPUT without BACKWARDS 
X'OC' if INPUT, BACKWARDS 
2nd parameter: 
add (blocksize -1) if BACKWARDS 
4th parameter: insert blocksize 
0058 Add blocksize + MOD (blocksize, 8) if BUFFERS (2) 
add extra (blocksize - 1) if BACKWARDS 
005C Add blocksize * MOD (blocksize, 8) if BUFFERS (2) 
0060 Insert BCTR 14,0 if BACKWARDS 
NOPR 
0064 Insert blocksize 
0066 Insert (blocksize -1) 
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These two phases process all consecutive disk files except the unbuffered ones. Ten 
different masks are used. for buffered, consecutive disk files: 


FIDIINFI: Input disk file, fixed records 
FIDIINVA: Input disk file, variable records 
FIDIINUN: Input disk file, undefined records 
FIDIOUFI: Output disk file, fixed records 
FIDIOUPR: Disk file with PRINT option 
FIDIOUVA: Output disk file, variable records 
FIDIOUUN: Output disk file undefined records 
FIDIUPFI: Update disk file, fixed records 
FIDIUPVA: Update disk file, variable records 
FIDIUPUN: Update disk file, undefined records 


Exception to General File Rules: 


The CSECT length is additionally increased by 8 bytes for all disk files with OUTPUT, 
BUFFERS (1), and by 16 bytes for all disk files with OUTPUT, BUFFERS (2). 


Location Action 
FIDIOUPR All others 


0035 002D Increment value by 64 if blocksize unequal to recordsize 


0036 002E Insert file name 
004C 0044 If INPUT/UPDATE, BUFFERS (2), STREAM, add blocksize to address. 


If INPUT/UPDATE, BUFFERS (2), RECORD, add blocksize + MOD 
(blocksize, 8) to address. 


0062 005A If OUTPUT, insert blocksize 

0068 0060 If FIXED, insert records per track (RT: see below. Otherwise 
insert X'FF'. 

006A 0062 Insert (blocksize -1) 

0074 006C If BUFFERS(1) and blocksize is equal to recordsize, insert NOP. 

0080 0078 If OUTPUT, add (blocksize +8) to address. Otherwise, add blocksize 
to address, 

0084 007C Increment value 


by 4 if VARIABLE, INPUT/UPDATE; 
by 8 if FIXED, INPUT/UPDATE, BUFFERS (2); 
by 16 if VERIFY, OUTPUT/UPDATE 
00A0 0098 2nd parameter: 
Add (blocksize +8) to address if OUTPUT, BUFFERS (2), STREAM. 
Add (blocksize *8) * MOD (blocksize, 8) to address if OUTPUT, 
BUFFERS (2) , RECORD. 
Jrd parameter: 
Insert 64 if OUTPUT, VERIFY 
üth parameter: 
Insert blocksize if INPUT/UPDATE. 
Insert (blocksize +8) if OUTPUT. 


Rules for Evaluation of RT (Records per Track): 


Length of normal record: 
LNR - [blocksize multiplied by 537/512 + 61] 


Normal records per track: 
NRT = [3625/LNR] 


Number of records per track for INPUT/UPDATE: 
RII NRT or 
RII NRT + 1 if 3625 - NRT multiplied by LNR 2 blocksize 


Number of records per track for OUTPUT: RTO - RTI - 1 


332 





ES 


NZ 








PL/I PLM 8 


IBM Confidential 


PL/IG17R, S (REGIONAL DISK FILES) 


These two 


FIDIINR1: 
FIDIONR1: 
FIDIOVR1: 
FIDIUNRI: 
FIDIUVRI: 
FIDIINR3: 
FIDIONR3: 
FIDIOVR3: 
FIDIUNR3: 
FIDIUVR3: 


phases process all regional disk files. Ten different masks are used for reg- 
ional disk files: 


Input disk files, regional 1 

Output disk files, regional 1, no verify 
Output disk files, regional 1, with verify 
Update disk files, regional 1, no verify 
Update disk files, regional 1, with verify 
Input disk files, regional 3 

Output disk files, regional 3, no verify 
Output disk files, regional 3, with verify 
Update disk files, regional 3, no verify 
Update disk files, regional 3, with verify 


to General File Rules 


For FIDIINR3, the CSECT length is increased by blocksize + key length.For FIDIONR3, 
FIDIOVR3, FIDIUNR3, and FIDIUVR3, the CSECT length is increased by blocksize + key length 


+ 8. 


Rules for all Regional Files: 


Location 
0010 
0018 
001C 
0024 
005E 
0094 
00B0 


00B6 
00B8 


00DO 


OOFO 


Action 


If REGIONAL 3, OUTPUT/UPDATE, add (keylength + 8) to address. 
If INPUT, REGIONAL 3, add blocksize to address. 

Insert RT if RESIONAL 1 

Insert keylength 

Insert filename 

Insert blocksize 

2nd parameter: 

If INPUT, REGIONAL3 add blocksize to address. 

üth parameter: insert keylength if INPUT/UPDATE, REGIONAL3. 

If OUTPUT, REGIONAL 3, insert keylength. 

2nd parameter: 

add (keylength + 8) to address if OUTPUT/UPDATE, REGIONAL 3 
4th parameter: 

insert blocksize. 

If OUTPUT/UPDATE, REGIONAL 3, insert blocksize + keylength. Otherwise 
blocksize. 

4th parameter: 

If OUTPUT/UPDATE, REGIONAL3, insert blocksize + keylength + 8. 


insert 
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This phase moves the block table from 
SYS001 into the table space. The label 
table is written from SYS001 onto TXTIN. 
If no files are declared, the end of the 
phase is reached. 


If files do exist, ESD, TXT, and RLD 
cards for each user- defined file are proc- 
essed.0 These cards are stored on TXTIN in 
the preceding sequence. Following the 
cards for all files, only one END card is 
generated. The output of G17 is changed in 
the following manner: 


First, all ESD cards are sorted out and 
written onto SYS001. Then all TXT cards 
are written behind the ESD cards, and 
finally all RLD cards followed by the END 
card are written onto SYS001. The ESID 
numbers of the cards are changed to provide 
only one module for the files. 


Phase Input and Output 
Input: 


1. TXTIN : The text (i.e., the changed 
source program) is located on 
TXTIN. Information about the 
existing files is written 
following the text. This 
information consists of ESD, 
TXT, and RLD cards and one END 
card as described in phase 
G17. TXTIN is positioned at 
the end of the text if no 
files exist and at the end of 
the files if files do exist. 

2.  TXTOUT : The external name table is 
located on TXTOUT, which is 
positioned at its beginning. 

3. SYS001 : The block table and the label 
table are located on SYS001. 


Output: 

1. TXTIN : At the end of this phase, the 
unchanged text and the 
unchanged files followed by 
the label table are contained 
on TXTIN, which is positioned 
at the beginning of the label 
table. 

2.  TXTOUT : The external name table is 
contained on TXTOUT, which is 
positioned at its beginning. 

3. | SYS001 : The work file SYS001 contains 


the updated files. 


The block table is contained in the first 
128 bytes of the table space. 
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PHASE PL/IG20 (FILE MODULE) -- DP 


Interphase 


1. The NOTE information about the begin- 
ning of the files written on TXTIN is 
contained in ZTAB19. 


2. The NOTE information about the end of 
the external name table written on 
TXTOUT is contained in ZTAB18. 


3. The NOTE information about the end of 
the DTF table writen on SYS001 is con- 
tained in KSAVES. 


4. If the third bit in the first byte of 
ZIABO3 is 1, files do exist. 


5. At the end of this phase, the number of 
the cards which are still in the output 
buffer and have not been written on 
SYS001 is stored in the first byte 
behind the output buffer. 


Main Routine -- DO and DR 


This routine moves the block table into the 
table space and writes the label table onto 
TXTIN.  SYS001 is reset to the end of the 
DTF table and, if no files exist, the end 
of the phase is called; otherwise, the 
files are read in. 


The ESD cards are changed and written 
onto SYS001, the TXT cards that have been 
processed are written onto TXTOUT, and the 
RLD cards are stored in the table space. 
If an overflow occurs in the table space, 
the RLD cards are written onto TXTIN. If 
the END card is detected, the TXT cards are 
moved from TXTOUT onto SYS001 and the RLD 
cards are written onto SYS001. Finally, 
the END card is written on SYS001. Each 
card written on SYS001 is given a consecu- 
tive card number in colunms 77-80 and the 
identification FILE in columns 73-76. At 
the end of this phase, TXTIN is positioned 
at the beginning of the label table, and 
TXTOUT is repositioned at its beginning. 


The parameters for ZTIN are loaded and 
the block table record indicated by ZTAB13 
is read into the table space. Control is 
transferred to the routine LABTAB, which 
moves the label table onto TXTIN. The 
tables contained on SYS001 are saved or no 
longer used; therefore, the work file is 
positioned at the end of the DTF table, and 
the other tables may be overwritten. If 
files exist, routine INI2 is called. 

TXTOUT is set to the first free record 
following the external-name table, and 
TXTIN is set at the beginning of the files. 
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Buffer handling is as shown in Figure 1. 


TS TSB BO. 
t t t 

| | | 

-—-------—---- ļł-------------------- =- 

block table | table space used for RLD cards | 

[------------- o ===- 1 

| | | 

IJKMTS IJKMTS+128 


Input Buffers: 


B1+80 
| | | | 
+ ; 


— — À— — — —Ó — — — —Ó — — — 


BA 

| 

mmm PO o qe ==> T----- 
| | | | 
AAA oo x e ERE TEM 


IJKMBS+3 * IJKMBL+8 
320 BYTES 


Figure 1. Buffer Handling 


2. Processing of the files. 


The first card of the file is read into 
the input buffer at B0+80, and the 
program enters a loop as follows: 


LOOP: The card in B0+80 is moved into 
buffer BO and the next record is 
read into B0+80. The card type 
in BO is checked: 

a. An ESD card is detected: Sub- 
routine ESD changes the ESID 
numbers in the ESD card and 
subroutine MOOK moves the card 
into the output buffer BA. 

b. A TXT card is detected: The 
ESID number of the last ESD 
card that contains an SD entry 
is contained in SDNO. It is 
put into the TXT card. The 
card is moved into output- 
buffer B1 and written onto 
TX DOUT. 

C. An RLD card is detected: 
Subroutine RLD changes the 
ESID numbers in the RLD cards, 
and subroutine MOR moves the 
card into the table space or 
onto TXTIN. 

d. If an END card is detected, 
the end of the loop is 
reached. 


free|free 


| | | 
TER Mecz c c e i uL qc qc 


IJKMBS* 3+IJKMBL 


BB: Or BS 


BA+320 
4 CARDS 


Subroutine IXTSYS moves the TXT cards 
behind the ESD cards; subroutine RLDSYS 
moves the RLD cards behind the TXT 
cards. The number of those cards that 
are Still in output buffer BA 
(contained in POUS) is stored in the 
first byte behind B5.  TXTIN is set to 
the beginning of the label table and, 
after repositioning TXTOUT to its 
beginning, phase G25 is called. 


INI1 -- DT 


This routine initializes some pointers. 
These pointers are used mainly to move the 
label table and the block table. All poin- 
ters, counters, and values used for han- 
dling files are initialized in INI2. The 


transfer bits of the block table (ZTAB13) 
and the label table (ZTAB20) are set to O. 
The initial buffer address (IJKMBS) is 


increased by 2 * IJKMBL and stored in BO. 
BO is increased by IJKMBL and stored in Bl. 


INI2 -- DU 
This routine is called if files exist. It 
evaluates the buffer start addresses and 


initializes some counters and pointers used 
to process the files. 
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The address of the output buffer for the 
TXT cards is stored in B1 (B1 = B0+160). 


The address of the output buffer for the 
sorted cards is stored in BA (BA = | 
BO+IJKMBL+8) , and the end of this buffer is 
stored in BB (BB = BA+320). 


The TABTAB entry of the output (ZTAB16) 
is updated. The buffer length is changed 
to 320; the transfer bit is set to 0. 

SDNO, which contains the ESID number of the 
last ESD card with an SD entry, is set to 
0, and ESID, which contains the current 
ESID number, is set to 1. The output poin- 
ter CSP is set to BA, TSB is evaluated, and 
SPEI is set equal to TSB. 


LABTAB -- DV 


This routine moves the label table from 
SYS001 onto TXTIN. 


The beginning of the label table on 
TXTIN is noted by the NOTE macro, and the 
number of label table records is moved from 
ZTAB20 into register R3. 


If R3 is 0, the label table does not 
exist, and the routine returns to the main 
routine. Otherwise, the first label table 
record is read into buffer BO. 


Buffers: 

PZERZ JE ROSE PE AE IE 1 
| | | 
AAN A AI SI E J 
4 t 4 
BO B1 = BO*IJKMBL B1+1JKMBL 


Both buffers have the buffer length and 
both are used alternately as input and 
output buffers. Next, the program enters a 
loop as follows: 


First, R3 is decreased by 1 and a test 
is performed to determine if it is equal to 
0. If it is 0, the end of the loop is 
reached; otherwise, the next record is read 
into B1 or BO and the preceding record is 
written onto TXTIN from BO or B1, respec- 
tively. | 


The program waits for the end of the 
last reading. Then the last record is 
written onto TXTIN, the end of the label 
table is noted, and the routine returns 
control back to the main routine to the 
point where it was called. 


ESD -- DW 


This routine inserts the current ESID num- 
ber contained in ESID into the ESD cards. 
SDNO is updated and ESID is increased by 
the number of entries in the ESD card. 


336 


This routine is called if an ESD card is 
identified. If its first entry is an SD 
entry, SDNO, (the ESID number of the last 
ESD card containing an SD entry) is set to 
the current value of ESID.  ESID is insert- 
ed into the ESD card and increased by the 
number of bytes contained in the card 
divided by the length of one ESD entry. 
Then the routine returns to the main rou- 
tine. 


MOOK -- DX 


This routine moves the cards that have been 
processed into the output buffer BA after 
inserting the successive card number. If 
the buffer is filled, a 320-byte record is 
written on SYS001. 


This routine is called if a card that 
has been processed has to be moved from the 
place pointed to by R1 into the output 
buffer BA. The pointer CSP points to the 
next available byte in the buffer. NOS 
contains the current card number in binary 
representation. It is increased by 1, and, 
after it was converted to decimal, it is 
moved into the last four columns of the 
card. The identification ;FILE; is put 
into columns 73-76. Then the card is moved 
into the output buffer, CSP is increased by 
80, and POUS, the counter of the cards in 
BA, is increased by 1. 


If CSP does not point to the end of the 


Output area, the end of the routine is 


reached; otherwise, the four cards con- 
tained in the buffer are written on SYS001. 
CSP is reset to BA, POUS is cleared, and 
the program waits for the end of the write 
Operation before the end of the routine is 
reached. 


RLD -- DY 


This routine updates the relocation and 
position headers of the RLD cards. 


This routine is called when an RLD card 
is found in buffer BO. 


First, the ESID numbers of the first 
entry are updated. The first ESID number, 
the relocation header, is increased by 
SDNO-1 and the second, the position header, 
is set to SDNO. The next entries are han- 
dled in the following manner: 


If the flag byte is on, the four-byte 
entry is skipped. If the flagbyte is off, 
the entry is handled like the first entry. 
If all entries are processed, the routine 
returns to the main routine. 
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MOR -- DZ and EA 


This routine moves the RLD cards out of BO 
into the table space. If the area reserved 
for this purpose is filled, the cards are 
written in records of 1920 bytes onto IXTIN 
following the label table. 


SPEI (the current pointer for the area 
TSB reserved for the RLD cards) is 
increased by 80 and then compared with BO. 
If SPEI*80 is not greater than BO, the RLD 
card is moved into the area, SPEI is 
increased by 80, and the end of this rou- 
tine is reached. 


If SPEI*80 is greater than BO, the cur- 
rent position of TXTIN is noted and the 
file is set to the end of the label table 
or to the end of the last RLD card written 
on TXTIN. Next, the contents of the table 
Space are divided into 1920-byte records 
which are written onto TXTIN. Left over 
cards are moved to the beginning of the 
area TSB and the RLD card in BO is moved 
behind them. The end of the last record 
written on TXTIN is noted and the file is 
reset to the current position in the file 
module.  ZEHLS, which counts the number of 
records put onto TXTIN, is updated and SPEI 
is set to the location of the next availa- 
ble byte in the table space. Next a branch 
is made to the beginning of this routine 
and the next RLD card is processed. 


IXTSYS5 -- EB 


This routine moves the TXI cards written on 
TXTOUT onto SYSO01 behind the ESD cards. 


This routine is called after the END 
card is found in the buffer BO. 


The TXTOUT work file is repositioned to 
the beginning of the TXT cards. They are 
read into buffer B1, and moved by subrou- 
tine MOOK into output buffer BA. If all 
cards are read in and processed (ZAHLS - 
0), the routine returns to the main rou- 
tine. 


RLDSYS -- EC and ED 
This routine moves the RLD cards from the 
table space or TXTIN onto SYS001 behind the 
TXT cards. 


This routine is called by the main rou- 
tine. Two cases have to be distinguished. 


1. If SWI = 0, (i.e., no RLD cards have 
been written on TXTIN) the RLD cards 
contained in the table space are put 
onto SYS001 by subroutine MOOK. When 
all cards have been processed, the 
program branches back to the main rou- 
tine. 


2. In the second case, RLD cards have been 
written on TXTIN by subroutine MOR. 
The file is positioned to the end of 
the last record. The RLD cards still 
contained in the table space are moved 
onto TXTIN (buffer length - 1920) and 
the number of written records is updat- 
ed. Then the file is repositioned to 
the beginning of the RLD cards and the 
cards are moved from TXTIN onto SYS001, 
controlled by the counter of the RLD 
records and the counter of the cards 
contained in the last record. After 
having moved all records, the routine 
returns to the main routine. 
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PHASE PL/IG25 (GENERATION OF ESD CARDS) -- EH 


Ihe function of this phase is to generate 
ESD (External Symbol Dictionary) cards The 
format of ESD cards is shown in Figure 1. 
ESD cards are generated in the following 
cases: 


1. Program: 
One ESD-SD card for the program control 
section including the STATIC storage. 


2. External references: 
One ESD-ER card for each of the follow- 
ing: 


a. Library routine used during object 
time 

b. External procedure referenced by 
this compilation 

c. File name 


3. Entries: 
One ESD-LD card for each entry point of 
the external procedure. 


4. External variables: 
One ESD-SD for each external variable. 


oe ee eee ee ee — -m wo ee '— ae — M Gee R OR i —— —— A AM Ge a —— SS ae eee o ee Gee ew ee A ee w ae — — 


{Multiple punch 

| ESD 

[Number of bytes of information 
|contained in this card 

|ESID number of the first SD or ER 
[on this card 

| |Variable information: 

| [8 positions - name 

| |1 position - Type code to 

| lindicate SD,LD or ER 

| |3 positions - assembled origin 

| |1 position + Blank 

| [3 positions - Length, if SD type. 
| |If an LD type, this field contains 
| |the external symbol identifica- 

| |ETom; 

| |First four characters of the 

| |program name or zeros 

177-80 |Sequential card number 


73-76 
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Figure 1. Format of the ESD Card 

In the first part of this phase (general 
flow charts EH-EI) the external name table 
EXTAB is scanned and the following ESD 
cards are produced: 


1. On finding an entry name with the block 


and level number 0, the ESD-SD card for 
the program is produced. 
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2. If the entry name has the block number 
1 and the level number 0, this is a 
secondary entry point of the external 
procedure and an ESD-LD card is pro- 
duced. 


3. On finding an entry name with a level 
and block number different from 0,0 and 
0,1 an ESD-ER card must be produced. 


4, On finding a file name, an ESD-ER card 
is produced. 


5. Entries for built-in functions are 
skipped. 


6. Other entries are considered as exter- 
nal variables and ESD-SD cards are 
produced. 


If the external variable is a structure 
with a lefthang different from 0, an ESD-SD 
card with a generated name and an ESD-LD 
card with the name of the structure is 
produced. 


If lefthang is 0, only an ESD-SD card is 
generated. 


In the second part of the phase (general 
flow chart ET) the ESD-ER cards for the 
library routines are produced. The library 
bit string in the communication area indi- 
cates which routines are needed during 
object time. 


Appendix XYZ contains a listing of the 
library routines and their corresponding 
internal names in decimal and hexadecimal 
representation. 


Phase Input: 


1. Label table LABTAB on the TXTIN work 
file. The format of the LABTAB entries 
is as follows: 


Bytes 0-1 : Internal name of the label 
or entry name 

Bytes 2-3 : Offset from program begin 

Byte 4 : Block number 


2. External name table EXTAB on the TXTOUT 
work file. 


3. Block table BLTAB in the table space at 
IJKTS. Length of BLTAB: 128 bytes. 


4. Library bit string in the table space 
at IJKTS*128. Length of library bit 
string: 32 bytes. | 
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5. Length of the control section PROGRAM+ 
STATIC STORAGE in the first 4 bytes of 
the TABTAB entry ZTABO5. 


6. Remaining ESD, TXT, and RLD cards and 
the END card which are in a 320-byte 
buffer at BUFF3 of the buffer area. 


7. Information bytes needed by the phase, 
at BUFF3+320. 


Phase Output: 


1. ESD table on SYS001 (TABTAB entry = 
ZTAB16). If the last I/O buffer is not 
full, the remaining ESD cards are 
Stored at BUFF3. The number of remain- 
ing ESD cards is stored at BUFF3+320. 


2. ESID table containing a maximum of 255 
entries. The ESID entries have the 
following format: 


Bytes 0-1 : Internal name 
Byte 2 : ESID number 


The start address of the ESID table is 
Stored at BUFF3+324 


3. Block table containing the lengths of 
DSA's (Dynamic Storage Areas). This 
table, located in the first 128 bytes 
of table space, is not changed by this 
phase. The address of the block table 
is stored in BUFF3+328. 


4. If the number of ESD cards is greater 


than 255, bit 4 in IJKMWC is set to 1 
and phase G31 is called. 


DESCRIPTION OF ROUTINES 


Symbols used in flow charts: 


ABLT : Address of block table 

ALIB : Address of library bit string 
AESID: Address of ESID table 

EXBU1: Input buffer for EXTAB 

EXBU2: Input buffer for EXTAB 

LABU1: Input buffer for LABTAB 
LABU2: Input buffer for LABTAB 

ESBU : ESD output buffer 

RECT : Number of input records required 
CACN : Number of cards in ESD buffer 
BCDP : BCD pointer 

SVAR : ESD variable field 

INITT -= EJ 


— — e ee 


The initialization routine INIT1 determines 
the addresses of the buffers and tables 
used during the phase. The contents of the 
table space (starting address TS) and the 
buffer area (starting address BS) are shown 
in Figure 2. 


PESOS UR TT SERA 1 
[Location |Contents | Length | 
poo Jon }---------- { 
| TS+0 |Block table BLTAB |128 | 
[TS+128 [Library bit string | | 
| | LIBTAB |32 | 
| TS+160 |ESID-table ESIDTAB  |max. 765 | 
[TS+925 | Input buffers for |2 buffer | 
| | EXTAB | 1engths | 
[BS+1BUFFL|Input buffers for |2 buffer | 
| | LABTAB | lengths | 
| BS+3BUFFL|ESD output buffer |320 | 
| BS+3BUFFL|Interphase | | 
| | communication | 20 | 
{+320 | | | 
— Á— T ae Z Z RA NONE qom Elton 4 
| Note: | 
| TS = Table space starting address | 
| BS = Buffer area starting address | 
| BUFFL = Buffer length | 
SDE A AAA MA J 


Contents of the Table Space and 
the Buffer Area 


Figure 2. 


GETEX -- EK 


This subroutine reads one or two records of 
the external name table EXTAB from the 
TXTOUT medium according to the specifi- 
cation in REC1. If only one record is 
required, buffer EXBU2 is moved to EXBU1 
and EXBU2 is filled up. 


GETLA -- EK 


This subroutine reads 2 records of the 
label table LABTAB from the TXTIN work file 
and waits for I/O termination. 


This subroutine moves the internal rep- 

resentation of the external name and the 
ESID number to the ESID table area. The 
output pointer OPT2 is increased by the 

length of the ESID entry. 


ESFIN -- EM 

This subroutine controls the variable field 
in the ESD card, i.e,, columns 17-60. If 
the ESD card is full or if the last ESD 
entry was made, the routine ESMO is called 
in order to move the ESD card into the 
output buffer ESBU. 

SDPRO -- EL 


This subroutine moves the following infor- 
mation into the ESD entry SVAR: 


1. Program name (8 bytes) as given in the 


external name table 
2. Origin = 000 


3. Type of ESD entry = X"00' 
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4. Length of the control section including 
program and STATIC storage. The length 
is contained in the TABTAB entry 
ZTABO2. 


Finally, the origin is increased by the 
length of the section and aligned on 
double-word boundary. The ESID numer is 
increased by 1. The length of the variable 
field in the ESD card is increased by 16 
and routine ESFIN is called in order to 
move the entry into the output buffer. 


ESMO -- EN 


The ESD card produced at ESENT is moved 
into the output buffer ESBU. If the output 
buffer is full, it is written on a work 
file. Otherwise, the output pointer OPT1 
is increased by 80 and the routine returns 
to the main program. 


LDXEC -- EO 


This subroutine stores the LD information 
for the secondary entry points of the 
external procedure in the variable field of 
the ESD card: 


1. External name (8 bytes) 


2. Type code to indicate LD = X'01!' 


3. Assembled origin (3 bytes) which is 
taken from the label table LABTAB by 
means of subroutine LABS. 


4. ESD number which is always X'000001' 


LABS -- EO 


The input parameter for this routine is the 
name of the secondary entry point of the 
external procedure in internal representa- 
tion. This subroutine scans through the 
label table LABTAB, and, on finding the 
corresponding name of the secondary entry 
point, the offset is fetched and stored in 
the ESD card. 


ERCAL -- EP 

This subroutine moves the following infor- 
mation into the variable field of the ESD 
card: 

1. External name 


2. Type code to indicate ER 


3. | Assembled origin 
X'000000*). 


(must always be 


An entry in the ESID table is made and 
the ESID number is increased by 1. 
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SDLDS -- EQ 


If the external structure has a lefthang of 
0, only an ESD-SD card is produced in sub- 
routine SDPRO. Otherwise, an ESD-SD card 
is produced for which an external name must 
be generated, and an ESD-LD card is made 
for the structure name. 


PAD -- ER 


This subroutine generates a name for the 
ESD-SD card of an external structure. The 
user-defined name of the external structure 
must not be longer than 6 characters. If 
it is exactly 6 characters, the leftmost 2 
bytes of the 8-byte name in the ESD card 
are padded with X'5B5B'. If the user- 
defined name is shorther than 6 bytes, it 
is moved right-aligned into the ESD card, 
and the leftmost bytes are padded with 
X'5B'. 


SKIP -- ES 


This subroutine increases the input pointer 
INPT1 by the length of the EXTAB entry. To 
ensure that the second input buffer EXBU2 
is read, the routine waits for completion 
of input from the TXTOUT work file to 
determine if the input pointer is greater 
than EXBU2-30. If the input pointer is 
greater than EXBU2, buffer 2 is moved into 
buffer 1 and the next record is read from 
buffer 2. 


LIBER -- ET 


In the second part of phase G25, the ESD-ER 
cards are produced for the library routines 
needed during object time. The library bit 
string located at IJKMLB in the communi- 
cation region indicates the library rou- 
tines for which ESD cards must be produced. 
The BCD names of the library routines have 
a length of 6 or 7 bytes. The first 3 
characters are always IJK. The variable 
characters are listed in the library table 
and are inserted in the ESD card. 


ERLI -- EU 
This subroutine moves the following infor- 
mation into the variable field of the ESD 
card: 

1. BCD name of the library routine. 


2. Type code to indicate ER 


3. Assembled origin must always be 
x'0000'. 


An entry in the ESID table is made, and 
the ESID number is increased by 1. 
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PHASE PL/IG30 (GENERATION OF TXT AND RLD CARDS) -- FH 


This phas 
for the p 


TXT Cards 
TXT cards 


instructi 


" 
| Column|C 


e generates the TXT and RLD cards 
rogram module. 


(See Figure 1) contain machine 
ons and constants. 


ontents | 


}------ }---------------------------------- i 


I 
| 
| 
I 
| 
| 


Figure 1 


— a €— a W 


RLD cards 
constants 
the const 
ponding T 
reference 
position 
the forma 


The le 
in the RL 
bytes or 
relocatio 
not. If 
must not 
the conti 
for a max 
stants ma 


Load card identification 

(12-2-9). Identifies this as a 
card acceptable to the loader. 
TXT. Identifies the type of load 
card. | 

Blank. 

24-bit start address in storage 
where the information from the 
card is to be loaded (in extended 
card code). 

Blank. 

Number of bytes of text to be 
loaded from the card (in extended 
card code). 

Blank. 

External Symbol Identification 
(ESID.) number, in extended card 
code, assigned to the program 
segment in which the text occurs. 
(Here 01) 

A maximum of 56 bytes of instruc- 
tions and/or constants assembled 
in extended card code. 

Not used by the loader; used for 
identification: the first 4 char- 
acters of the external procedure 
name followed by a sequence num- 
ber. 


è Format of the TXT Card 


are generated for all address 
. They contain the location of 
ant in reference to the corres- 
XT card, the ESID numbers for the 
(relocation header), and the 
(position header). Figure 2 shows 
t of the RLD card. 


ngth of the information to be put 
D card for each constant is 8 

4 bytes depending on whether the 

n and position headers change or 
they do not change, the headers 

be repeated. This is flagged by 
nuation flag bit. The information 
imum number of 13 address con- 

y be contained in one card. 





D nte T T 


—— ————— ———Á———— ZŁ ORA KE AE ZDZ 1 


|Column|Contents | 


[------ i- 


1 


13-16 
17972 


ję [AA A ——— — — — — — — —— — — — — as —— — — — — — — — —— — M — ee "num 


—————————— Á«———————————Á———— —— ——— —— — —É———À———————— it a ig —— 


Figure 2. 


e ET —PÁÁ— rS ] 


Load card identification 
(122-9). Identifies this as a 
card acceptable to the loader. 


RLD. Identifies the type of load 
card. 
Blank. 
Number, in extended card code, of 


bytes of information in the vari- 
able field (card columns 17-72) 
of this card. The range is from 
8 to a maximum of 56. 

Blank. 
Variable field 
code). Consists of the following 
subfields: 


(in extended card 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
. | 
1. Relocation Header. (Two | 
bytes) An ESID with a value | 
of from 01 through 256. | 
Whether or not the value is | 
01 or from 02 through 256 | 
depends on whether the symbol | 
it points to is internal or | 
external to the particular | 
program segment. | 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 





2. Position Header. (Two bytes) 
The ESID assigned to this 
program segment. 

3. Flag Byte (bits 0 through 3 


are not used). This byte 
contains three items: 





a. Size. (Bits 4 and 5) Two 
bits which indicate the 
length (in bytes) of the 
adjusted address cell (AA 
cell) 

a. 00 - one-byte cell 

b. 01 - two-byte cell 

c. 10 - three-byte cell 

d. 11 - four-byte cell 
b. Complement Flag. (Bit 6) 


When this bit is 1, it 
means that the value (or 
address) of the symbol is 
to be subtracted from the 
contents of the AA cell. | 
When this bit is 0, the | 
value of the symbol is to] 
be added to the contents | 
of the AA cell. | 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
! 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
c 


Format of the RLD Card 
of 2) 


(Part 1 
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END_Card 


ere ae im duum mee A dup Com A Gun eee ae Gua a CH A EMO ee CUu» cme AD eee dump eee anam re ee ANA A A A <a M 


ntinuati (Bit | 
7) When this bit is 1, itl 
means that this is one of| 
a series of addresses to 
be adjusted. When this 
bit is 0, this is the 
only AA cell to be 
adjusted or the last in a 
series using the same 
relocation and position 
headers. 


| 
| 
| 
| 
| 
| 
| 
| 
4. Address. The three-byte | 
address of the location of | 

the AA cell. | 

The flag byte and address may| 

be repeated for AA cells as | 
long as the continuation flag| 

bit is on in the current | 
four-byte entry. | 

Not used by the loader; used for | 
identification: the first 4 char-| 
acters of the external procedure | 
name followed by a sequence num- | 
| 


ber. 


Format of the RLD Card 
of 2) 


(Part 2 


The last card to be generated is the END 
Figure 3 shows the format of the 
Load End card. 


C 


p 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


ard. 


r 
|Column 


N 
I 
= 


| AE 


Figure 


If there is a main procedure 


5 
l 


p—— 


a eee ee 1 
Contents 


Load card identification 
(12-2-9). Identifies this as a 
card acceptable to the loader. 


END. Identifies the type of load 
card. 

Blank. 

Address (may be blank), in 


| 
| 
| 
| 
| 
| 
extended card code, of the point | 
in the program segment to which | 
control may be transferred at the| 
end of the loading process. | 
Blank. | 
External Symbol Identification | 
(ESID). (May be blank.) | 
Blank. | 
Used for identification as in the| 


ESD, TXT, and RLD cards. 


| 
! 
! 
| 
! 
| 
! 
| 
! 
| 
| 
| 
| 
| 
| 
| 
| 
! 
| 
| 
| 
I 
1 
1 
| 
I 
| 
| 
I 
i 
| 
| 
| 
te ooo 


3. Format of the Load End Card 


(flagged in 


the communication area), the address 
columns will be set to 0 and the ESID num- 


ber is set to 01. 


In all other cases the 


address columns and columns for the ESID 
number contain blanks. 
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The cards are constructed in an 80-byte 
mask and written on SYS001 in physical 
records of 320 bytes each. The cards for 
the files and the ESD cards of the program 
module are already present on SYS001. All 
cards are used as input for the final out- 
put phase (655). 


There are two modules, 


bles. A module may consist of several 
control sections. 


one for files and 
one for the program and the external varia- 


p 
| ESD - cards 
| TXT cards 
| RLD cards 
| 
MODULE 1 | ( FILES ) 
| 
| 
| 
| END - card 
p=- 
| 
| ESD - cards 
| TXT - cards ( PROGRAM ) 
| RLD - cards 
| 
MODULE2 | 
| 
| 
| 
| END - card 
| 
bad 
General Flow of the Phase -- FH 


The program string is scanned to determine 
whether an element is a machine or an 
assembler instruction. 


For machine instructions the format is 
determined. The instruction is moved 
(according to the format) into the current 
TXT-card mask which is moved into the out- 
put buffer if it is full. 


For assembler instructions the kind of 
instruction is determined first. The cor- 
responding information is inserted in the 
current TXT card. For address constants, 
the current location counter (LOC1) is 
Stored in a save buffer together with the 
corresponding ESID numbers. 


When all TXT cards have been generated, 
i.e., when the END-key is found, the RLD 


cards are generated from the records in the 


save buffer. 


All cards are written on SYS001 in 
320-byte records. 








AM 
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Phase Input/Output 


The input consists of the program string 
and three tables: the ESD table, the 
character-string and the BLOCK table. The 
program string is located on TXTIN, fol- 
lowed by the character-string and is the 
output of phase G15 where it has been des- 
cribed. The program string is read sequen- 
tially using buffers B1 and B2 as input 
buffers with the pointer POI. 


The ESID and BLOCK tables are inserted 
in the table space by the phases G25 and 
G20, respectively. Their addresses are 
located in the second and third word of the 
master table TABTAB. The ESID table is 
restricted to 255 3-byte entries with the 
following format: 


2 1 
PA QURE 1 ES 1 
ESID |INTERNAL ESID| BLOCK |LENGTH| 
| NAME NO | | OF DSA| 
[Spee pese 


The BLOCK table is restricted to a maxi- 
mum of 63 2-byte entries each containing 
the length of a DSA. 


If the save buffer BO is full, it is 
written on TXTOUT intermediately. The 
information is read in again for generation 
of the RLD cards using the input buffers B1 
and B2. 


The output is written on SyS001 just 
behind the ESD cards constructed in phase 
G25. The output consists of TXT cards, RLD 
cards, and the END card. 


For output, two 320-byte buffers are 
used with the pointer CPO. Which of the 
two buffers is used is determined by reg- 
ister ABU and switch AE. One buffer is 
filled while the other is written on 
SYS001. The first buffer is located at 
B3+8, and the second one is at the end of 
the phase. 


If phase C25 does not fill the last 
320-byte record, this record is left in the 
I/O buffer and is filled with TXT cards in 
phase G30. 


Detailed Description 


The scan of the text string is handled as 
in previous phases. It must be determined 
whether an element is a machine instruction 
or an assembler instruction. 


Machine Instructions 
The format is determined first. Then the 
information contained in the instructions 
is inserted (according to the format) in 
the TXT-card mask which is moved into the 
output buffer if it is full. 


1. RR instructions 


a. 

A dept: cial: pee 
| JOP. | | | 
| 88 |C. | OX | OY | 
EN PA IS E 
Format of the instruction. (4 bytes) 
b. 

"SPOSA 1 

OP. | | | 

IC. IX |Y | 
PER ER SEE 


Information inserted in the TXT card (2 
bytes) 


2. RX and RS instructions 


ae 

foe e A Gizie SOŃSK: ATŻG II qe 1 
| lop. | | | | | 
188 |C. | OX | OY | 10 | NAME | 
bosko z CA A EAN ZEG ZARZ J 
Cen a ECCE QUEE qup rw 

[MODIFIER |B |DISPL.| (11 bytes) 

| A eee eee | RZEZ ROSS J 

b. 

[577 poc Wc AW Rh m 


: 
Op. | | | | 
c. |X [Y |B |DISPL.| (4 bytes) 
ewe KU A ct E 


3. SI instructions 


Ae 

[UU pua cet des ee ee 
| lop. | | 

| 88 |C. | 00 | I [KEY |NAME| 
Lo WWW LII IA AAA | 
[52 oer | UN DECRE 1 

[MODIFIER|B |DISPL. | (11 bytes) 
La ==. me Log A J 

bs 

See Mave ee ee 

[Ope | | | | 

IC. | I| B|DISP. | (4 bytes) 
bloc A O AI: 
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4. SS instructions 


de. 
(ii a: ds ds ok. I Pers 1 
|88 |op. |0L1 | OL2| KEY| NAME | 
| Ic. | | | | | 
LE oed Nee Ss METAN eed 
peg eye SZĄ E Wo omar a ct EUN a ga eee | 
[MODIFIER |B |DISPL.| KEY| NAME | 
Las a Esso Les J 
Sore ee WE oe ee M SE 
|MODIFIER |B |DISPL.| (18 bytes) 
bite eee E CEEA 

b. 


(1) (1) (2) (2) 


[-—7--—--T--T--T-T------T-r------ 


|[Op.C.|L1|L2|B| DISPL.|B|DISPL.| (6 BYTES) 


Lee udemdsdueeeeecdedueeend 


For all instructions the location coun- 
ter is adjusted in the same way. 


Abbreviations: 
X, Y are registers, 

B is the base register, 
Op.C. is the operation code, 

I is the immediate constant, 
DISPL is the displacement 


L1,L2 are lengths 


Assembler Instructions 


These instructions must be distinguished in 
the code byte (second byte). 


IE i OO AA A 1 
| Code byte | Instruction | 
|----------- Yo 1 
| C1 | DC AL3 | 
| C2 | DC X | 
| c3 | DS L | 
| CH | LABEL | 
| C5 | PROCEDURE | 
| C6 | END OF BLOCK | 
| C7 | DC X'LENGTH OF DSA' | 
| CA | DC A | 
| CB | DC V | 
icut cio. T — A M MUS J 


The code byte is put into a general 
register and X'CO' is subtracted. The 
result is used as offset in the branch 
table BRAN4 with the corresponding branches 
to subroutines as entries. 


344 


Note: 


ee oe ee ee ee ee ee oe ee ee 





which must not occur. 


Tis 





DC AL3 (DC VL3) 


The location counter 
save buffer together 
ponding ESID number. 
is 01 for the key 10 


ub kad «uto quee EP eS REID ery idee umm 


UP 0 -JDIOFUN .» O 


ERR is an error routine for elements 


is stored in the 

with the corres- 
The ESID number 
(for DC AL3), 


otherwise it has to be taken from the 
ESID table (for DC VL3). 


The leftmost bit of the entry is set to 


1 to flag the length 
bytes). 


of the address (3 


Save buffer:  p-----------------—- 
| CURRENT ESID | 
| LOCATION NO | 
| COUNTER | 
paee 1 


The location counter 


is increased by 3. 


The instruction has the format: 


Ae 
(1) (1) (1) (2) 
fe ci: eee ee ee 1 
|80 |C1 [KEY | NAME | 
A A A AI J 
(2) (3) 
| MODIFIER | OFFSET | (10 bytes) 


The following information is put into 


the TXT-card mask: 


b. 

PA CZA 1 
| OFFSET | 
A EE J 


(3 bytes) 


y 
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Ze 


DC X 


The location counter is increased by 
the length of the constant found in the 
Second halfword and the constant itself 
is moved into the TXT-card mask. 


DS L 
The location counter is increased by 


the length given in the second half- 
word, and, if the length is greater 


than 8, a new TXT card is started, 
otherwise, zeros are inserted. 
LABEL 


This element is skipped by increasing 
the pointer POI by 4. 


PROCE 


This element is not used and, there- 
fore, it is skipped by adding 6 to POI. 


ENDBL 


Adding 4 to POI causes this element to 
be skipped, too. (Same routine as 
LABEL) 


DC F 
This instruction has the format 


— <a ane wa | e — —— — a aes — — "— —— oo 


|80 |C7 |LEV |BLO | 
lDl2md4Ac-ccelloccllol 


The block number BLO is used to find 
the corresponding entry in the BLOCK 
table, where the length of the DSA is 
found in a halfword. This halfword is 
expanded to a fullword by inserting 
leading zeros and the fullword is 
Stored in the TXT card mask. 


The location counter is increased by 4. 
DC À 


The location counter is stored in the 
save buffer together with the ESID 
number 01. The location counter is 
increased by 4. The offset, found in 
the last three bytes of the instruc- 
tion, is expanded to a fullword and 
Stored in the TXT-card mask. 


DC V 

The location counter is stored in the 
save buffer together with the corres- 
ponding ESID number, which is taken 
from the ESID table. 


The location counter is increased by 4. 


The offset, found in the last three 
bytes of the instruction, is expanded 
to a fullword and stored in the TXI- 
card mask. 


END Key 


The END key is directly followed by the 
character string, the length of which is 
found in the communication area. The 
character string is inserted in the current 
TXT-card mask and the mask is written on 
SYS001. 


The save buffer, which might be written 
on TXTOUT intermediately, is read into the 
I/O buffers, and for each entry in the save 
buffer an entry in the current RLD mask is 
inserted. 


When the records of the save buffer have 
been processed, this phase ends by generat- 
ing the END card. 


Abbreviations 

BO, B1, B2, B3 - I/O buffers 

POI - Input pointer 

POU - Output pointer for save 
buffer 

BRANA - Branch Table 

LOC1 - Location Counter 

BUFL - Buffer length 

RLDCOU - Counter for the RLD mask 

TXTCOU - Counter for the TXT mask 

CPO - Pointer for the 320-byte 
buffers 

AE - Switch for the 320-byte 
buffers 

AB1 - Initial address of first 
320-byte buffer 

AB2 - Initial address of second 
320-byte buffer 

TXT - Address of TXT-card mask 

L - Length 

INRE ES EL 


This routine inserts the register in the 
rightmost Y bits of the byte POI+2 into the 
leftmost four bits of POI+2, and the reg- 
ister in the rightmost 4 bits of the byte 
at POI+3 into the rightmost 4 bits of 
POI+2. 


MEX -- FL 


This routine moves a string of length L 
(given in R1) from POI+1 into the TXT-card 
mask at the point denoted by the pointer 
TXTCOU and supervises the TXT-card mask, 
moves it into output if it is full and 
adjusts the starting address and TXTCOU. 


This routine moves a record of length 80 
bytes from the mask initial address TXT to 
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the current output buffer. It adusts the 
pointer CPO and writes the output buffer, 
if full, on SYS001. 


Before moving the card into output, it 
inserts the TXTCOU or RLDCOU in bytes 11 
and 12 of the mask giving the number of 
information bytes in the card. 


The output buffers have a length of 320 
bytes. 


This routine moves the four bytes, consist- 
ing of the location counter and ESID num- 
ber, into OBUF (B0) by means of routine 
MOO. The OBUF is supervised and the output 
pointer is adjusted. 


ELO -- FN 
This routine determines the information to 
be inserted into the RLD mask. This will 


be done by means of an 8-byte mask with the 
following format: 


u a — «— A ee du — WM Wy 


queo TR rs RE NAAA PA NC wey 1 

a | =2R Latag 3 | 
|RELOCATION] POSITION |FLAG |ADDRESS | 
| HEADER | HEADER [BYTE | | 
Z race a ens Lirah dms Laila J 


1. The relocation header is taken from the 
save-buffer where it is the fourth byte 
of each entry (ESID number). 


2. The position header is always X'01', 
because all constants arise in the 
program control section. 


3. The flag byte has to be constructed in 
the following format: | 


bits 0-3 : zeros 


4,5 10 - For DC AL3 and DC VL3 
constants. 
11 - For all other 
constants. 
6 : zero 
7 : 0 = If another header or 


no more instructions 
follow in current card. 
1- For the same headers. 
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4. The address of the DC instruction rela- 
tive to the beginning of the program 
control section. 


ELO inserts this information in the mask 
and sets a switch (SW8) to 1 if the headers 
change and to 0 if they do not. 


MAX -- FO 


This routine inserts the 8-byte mask. It 
determines whether there is room enough to 
insert the information of length 4 (SW8 = 
0) or 3 (SW8 = 1) into the current RLD 
mask. If there is room enough, the mask is 
inserted and counter RLDCOU is increased; 
if not, the RLDCOU is inserted into bytes 
11-12 of the mask (number of information 
bytes in the card) and the mask is written 
on SYS001. Then the 8-byte mask is insert- 
ed into the card in each case, and the 
RLDCOU is updated. 


If SW8 - 0, the last bit of the previous 
flag byte is set to 1 (means continuation). 


RLDCA -- FP 


This routine changes the TXT-card mask to 
an RLD-card mask which is used to generate 
the RLD cards. It reads the save records 
one by one into the I/O buffer B0 and uses 
the pointer POI. For each entry it deter- 
mines the bytes to be inserted by routine 
ELO, inserts them into the card (by MAX) 
and increases POI. This is done until the 
END key X'FF' is found. Then the last RLD 
card is written out by MOSC. 


INLE -- FQ 


This routine inserts the length-1 in the 
byte at POI*3 into one byte together with 
the length-1 at POI*2 if there is any. 


ESI -- FO 


This routine fetches the corresponding ESID 
number from the ESID table by scanning the 
table for the name in the current DCV. 





AN 
w 


— 
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PHASE PL/IG31 (FINAL DIAGNOSTIQ -- GA 


Ihis phase lists the errors that occur message is written on SYSLST, and the mes- 
after phase E25. It terminates the compi- sage 
lation if one or more of these errors occur 
or if neither LINK, SYM, nor DECK was spec- 5E011 JOBSTEP PL/I TERMINATED, LINK OPTION 
ified in the OPTION job control statement. RESET is written on SYSLOG. 
Nhich error has occurred is indicated by 
the bits of byte IJKMWC as follows: The linkage bits in the communication area 
are set off, the files are closed, and the 

Bit Message* compilation is terminated. 

0 5G01I Note: For the tape version, SYSRES is 

1 56021 rewound at the beginning of the phase. 

2 56031 

3 5GOUI 

4 5G05I COPR -- GB 

5 5GO06I 

6 5G07I The current line is written on SYSLST. If 


SYSLOG is not the Same device as SYSLST, 
*For the actual diagnostic message refer to the message 
the DOS/TOS PL/I Programmer's Guide. 

5E01 JOBSTEP PL/I TERMINATED, LINK OPTION 


If no error is detected, all files are RESET 
closed and the compilation is terminated. 
If an error is detected, the corresponding is written on SYSLOG. 
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PHASE PL/IG4O (LISTING OF COMPILER OUTPUT) -- GF ATN 


This phase lists the object code produced 
by the compilation and the constants of the 
static storage. The listing is produced if 
the LISTX option is specified; otherwise, 
the next phase (G55) is called. Figure 1 
shows the format of the object code list- 
ing. 


[orc posue peces ee Ue 1 

| Print | | | 

|Position|Subheader |Contents | 

}-------- }--------- }----------------------| 
2 | LOC. |6 hexadecimal digits 


[representing the cur- 
|rent value of the 
|location counter. 
[The instruction 
|printed in hexadecimal 
[digits containing 
|operation code, 
|registers or lengths, 
land displacements. 
|The internal name is 
listed in the format 


| 

| 

| 
10 | 
| 
| 
| 
| 
| 
| 
| 
| |L'aaaa', where 'a' is 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


OBJECT 
CODE 


31 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

[a hexadecimal digit of| 

[the internal name. | 

40 OP. |Mnemonic operation | 

|code using the Assem- | 

|bler mnemonics. | 

OPERANDS |Up to 35 print posi- | 

|tions containing the | 

|operands of the | 

Jinstruction. | 

|Statement number NN | 

ZERA — —————————MÁ— 

|Note: Registers, lengths, displacements | 

|names, and labels are listed in hexa- | 

[decimal notation. The statement number | 

lis listed in decimal notation. It indi- | 

|cates that the code generated from the | 

| preceding statement number from the | 

| beginning of the program) to this one | 

|belongs to the statement marked by the | 

|statement number. | 
|more than once. 


46 


aq — am — A. m A A A wa GER ee ee nw nn sen PP e nn see aa 


This number may appear 


Figure 1. Format of the Object Code List- 


ing 
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There are two formats for the operands: 


1. If the internal name replaces a 
declared name or a library routine, it 
is listed in the format N'aaaa'-4mmmm, 
where aaaa is the internal name and 
mmmm is the modifier. A zero modifier 
or heading zeros in it are left out. 


2. In all other cases, the format of the 
operands is X'ddd'(B), where ddd is the 
hexadecimal displacement and B is the 
base register. 


In addition, there are some pseudo 
Assembler instructions with the following 
formats which differ from Assembler lan- 
guage: 


1. At the beginning of a block, 'BEGIN OF 
BLOCK NN' is written, where NN is the 
block number. 


2. At the end of a block, ‘END OF BLOCK! 
is written. 


3. For the length of a DSA, the comment 
"LENGTH OF DSA OF BLOCK NN' is written. 


4. At the beginning of the static storage, 
'L'FFFF' STATIC STORAGE" 
is listed starting in column 31 and preced- 


ed by a blank line. 


5. The listing is terminated with "END" in 
columns 40-42. 


Figure 2 shows examples for each type of 
instruction format. 





NS 
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A —————— 
| 000000 L'0102' BEGIN OF BLOCK 01 1 
[000000 O5F0 BALR F,0 | 
[000002 45E0 FOOA BAL E,X'00A' (F) | 
¡000008 00000040 DC A (N' FFFF') | 
|00000C 905A D078 STM 5,A,N'0103'+8 | 
[000010  05EO0 BALR  E,0 l 
¡000012 A60 C002 AH 6,X'002* (C) | 
[000016 O40E - SPM E | 
[000018  0A02 svc 02 | 
| STATEMENT NUMBER 7 | 
[00001A 9216 D080 L'0107' MVI N'0106'+4,X'16' | 
[00001E  05EO0 BALR E,Q0 | 
[000020 41E1 EOOE LA E,X'OOE' (1,E) | 
[000024 03 DC x'03' | 
1000025 000118 DC AL3 (N'0105 *) | 
[000028 00000C80 DC LENGTH OF DSA OF BLOCK 01 | 
J00002C D255 E007 D112 MVC X'007*' (56, E) ,N'0110'+36 | 
[000032 F842 D104 DO80 ZAP N'0111'-7(5) „,N*0110' (3) | 
[000038 94EE 6022 L'0112' NI X'022' (6) , X'EE' l 
[00003C END OF BLOCK | 
| 00003C DS CL0004 | 
| | 
| L'FFFF' STATIC STORAGE | 
[000040 0000300040005000 L'0004' DC x'00003000 40005000" | 
| 60007000 DC Xx'60007000' | 
[00004C 00 L'0119' DC x'00' | 
[00004D 000000 DC VL3 (N*0100') | 
[000050 00000000 "0019" DC V (N*0019*) | 
[000054 00000038 L'0112' DC A (N'0112"') l 
[000058 000060 L'0120' DC AL3 (N'0119 *) | 
| 00005B L'0003' DC C'/$$$ IJXG4O0" | 
| END | 
REPREZE R EEE AE ko LEID uU aA LIEU E PODA OW RTR NS A RZEZ A ÓN 4 
| Note: The preceding listing is not a logical program | 
AAA O Il e ZOZ LI BE PRA O A RODZ ULM O EE 4 
Figure 2. Example of All Instruction Formats 
In some Cases, address constants occur Another input is the BLOCKTABLE, which 


containing the same internal name as their is read into BO during phase G30. 
own label, e.g. 

The output is written onto IJSYSLS via 
two buffers of length 121 bytes each res- 
erved in the 1/0 buffer B4. The buffers 


are addressed via register 11. 


L'0101' DC A(N'0101') 


This is because the internal label name 
occurs twice, once in the program part and 


once in static storage. In the program General Flow of the Phase -- GF 
String, the constant is addressed via this 
name. In the static storage, the program The input is scanned. Each instruction is 


identified and the corresponding print line 
inserted into one of the two print buffers. 
The information is written on IJSYSLS by 
means of routine ZPRNT. When all instruc- 
tions have been listed, i.e., when the end 
key is found, the phase is terminated by 
printing 'END' and calling phase G55. 


String label is addressed. Only one entry 
in the offset table is used for both. This 
is because the offset of the constant is 
inserted into the offset table by phase F75 
and inserted into the text string by phase 
F95. In phases G00 and G01, the offset in 
OFFTAB is replaced by the label offset; in 
phase G15, this offset is inserted into the 
instructions. The program string is read and scanned 
sequentially. The following types of 
instructions are differentiated: 


Phase Input and Output 


Ihe input is taken from the TEXT work file 


1. Machine instructions (key is X'88') 


and consists of the output of phase G15. 2. Assembler instructions (key is X'80') 
The input is read into buffers B1 and B2 
with pointer POI. 3. End key (X'01*) 
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Machine_Instructions. If a machine NE cal aba DE AGORA Ses 1 
instruction is detected, the format is | Instruction] Tables S£| translate Vectors | AN 
determined. This is done by means of the | J |Mnemonics| | « 
code byte which contains a special hexa- p-----------4--------- |--na 1 
decimal key for each instruction. For each | RR | RR1 | RRZ | 
format there are translate tables for the | RX | RX1 | RX2 | 
corresponding mnemonics. The code byte is | RS | SI1 | SI2 | 
translated with a translate vector contain- | SI | SI1 | SI2 | 
ing the offsets in the corresponding table | SS | SS1 [3552 (for X'D.'"') | 
of mnemonics. The mnemonics are moved from | | 1992 (for X‘'F.‘) | 
the mnemonic tables into the corresponding LL-—--------- di nodo M o 4 


entry of the print buffer. The mnemonic 
tables are shown in Figures 4-7. A summary Figure 3. Summary of Mnemonics Tables and 





of these tables is shown in Figure 3. Translate Vectors 
Ga we ee ge Te er a re O MOSS e ee Dan ee ae 
[RR1 0 SPM | 20 LPDR|RR2 X'00' 00 [x'08* 14 |x'17' 28] 
| e BALR| e LNDR| 00 01 | 09 15 | 18 29] 
| e BCTR| œ LCDR] 00 02 | OA 16 | 19 2A| 
| e SCR | e LDR | 00 03 | OB 17 | 1A 28B| 
| e SVC | e CDR | 26 04 | OC 18 | 1B 2C| 
| 5 LPR | 25 ADR | 01 05 | OD 19 | 1C 2D] 
| e LNR | e SDR | 02 06 | OE 1A | 00 2El 
| e ICR | e MDR | 03 07 | OF 1B | OO 2F| 
| e NR | e DDR | 00 08 | 10 1C | 1D 30| 
| e CLR | e LPER| 00 09 | 11 1D | 1E 31| 
| 10 OR | 30 LNER| 04 OA | 12 1E | 29 32 | Figure 4. RR Tables 
| e XR | e LCER| 00 OB | 13 1F | 1F 33| 
| e IR | e LER | 00 oc | 14 20 | 00 34| 
| e CR | e CER | 00 OD | 15 21 | 00 35] 
| e AR | e AER | 00 OE | 28 22 | 00 36| 
| 15 SR | 35 SER | 00 OF | 16 23 | 00 37] Pm 
| e MR | e MER | 05 10 | 00 24 | 20 38] R 
| e DR | e DER | 06 11 | 00 25 | 21 39| 
| + ALR | e SPM | 27 12 | 00 26 | 22 3A| 
| e SLR | e LTR | 07 13 | 00 27 | 23 3B| 
| | 40 LTDR| | | 24  3C|] 
| | © LTER| | | 25 3D] 
La A M ^ E AS Ls Lar J 
le E a ate MM Sect Oe gerne NM CM LED E EUER ERE y WE IEEE ETC 1 
|RX1 0 0000 |25 M |RX2 X'01' 40 |x'16' 59 |x*'00* 72| 
| 1 STH | °D | 02 41 | 17 5A | 00 73| 
| 2 LIA | eAL | 03 42 | 18 5B | OO 74| 
| 3 STC | e SL | 04 43 | 19 5C | OO 75] 
| 4 IC | e STD | 05 44 | 1A 5D | 00 76| 
| 5 EX |30 LD | 06 45 | 1B 5E | 27 77| 
| 6 BAL | e CD | 07 46 | 1C 5F | 28 78| 
| 7 BCT | e AD | 08 47 | 1E 60 | 29 79| 
| 8 BC | e SD | 09 48 | 00 61 | 2A 7A| 
| 9 LH | e MD | - OA 49 | 00 62 | 2B 7B| 
| 10 cH |35 DD | OB 4A | 00 63 | 2C TCI 
| "AH | e AW | OC 4B | 00 64 | | Figure 5. RX Tables 
| e SH | e SW | 0D 4c | 00 65 | | 
| e MH | e STE | 00 4D | 00 66 | | 
| e CVD | e LE | OE 4E | 00 67 | | 
| 15 CVB [40 CE | OF 4F | 1F 68 | | 
| e ST | e. AE | 10 50 | 20 69 | | 
| e M | * SE | 00 51 | 21 6A | | 
| e CL | e NE | 00 52 | 22 6B | | 
| e 0 | e DE | 00 53 | 23 6C | | 
| 20 x [45 | 11 54 | 24 6D | | 
| eL | | 12 55 | 25 6E | I 
| e C | | 13 56 | 26 6F | | 
| * A | | 14 57 | 00 70 | | 
| e S | | 15 58 | 00 71| | 
tu eee ee dla sss dno EI ise So ——Qn d ep eS aa J 
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[- o cm por Tu E p. 1 7 0 WNN FRL ee cu 1 
|SI1 0 0000|SI2 x'00" 80 | |Contents oEIInsbruction | 
| e SRL | 00 81| | Code byte | | 
| e SLL | 00 82| p[-----------4------------------- 
| e SRA | 00 83] | C1 |DC AL3 (DC VL3) | 
| e SLA | 00 84| | C2 [DC x | 
| 5 SRDL| 00 85] | c3 [DS L | 
| e SLDL | 00  86| | Cu | LABEL | 
| e SRDA| 00 87] | C5 | PROCEDURE OR | 
| e SLDA| 01 88] | | STATEMENT NUMBER | 
| e STM | 02 89] | C6 |END OF BLOCK | 
| 10 TM | 03 8A| | C7 [DC X'LENGTH OF DSA' | 
| e MVI | 04  8B| | CA [DC A | 
] e NI | 05 8€] | CB |DC V | 
| e CLI | 06 8D] Uno Li J 
| e OI | 07  8E| 
| 15XI | 08 8F| 
| e LM | 09 90| The code byte is put into a general 
| | OA 91| register and X'CO' is subtracted. The 
| | OB 92| result is used as offset in the branch 
| | 00 93| table BRAN3 with corresponding branches to 
| | 0C 94] subroutines as entries. The format of 
| | OD 95] BRAN3 follows: 
| | OE 96] 
| | OF 97] 
| | 10 98| BRAN3 [---------- 1 
LL--—--------Á--------—-—----4 |B ERR | 0 
IB DC AL3 | 1 
IB DC X | 2 
Figure 6. RS and SI Tables IB DS L | 3 
[B LABEL | 4 
|B PROCE | 5 
[timo PA nn q tn bb IB ENDBL | 6 
SST 0 0000|SS2 X"00* DO | SS3 x'00' F0| |B DCF | 7 
| 1 MVN | 01 D1| 08 FI] |B ERR | 8 
| 2 MVC | 02 D2| 09 F2| [B ERR |. 9 
| 3 MVZ | 03 D3| 0A F3| IB DCA | A 
| 4 NC | 04  DU| 00 F4| {B DCA | B 
| 5 CLC } 05 D5 00 FS] L—————————— J 
| e OC | 06 D6 00 F6| 
| e XC | 07 D7| 00 F7| 
| e MVO | | OB F8] Note: ERR is an error routine for elements 
| e PACK] | OC F9| which must not occur. 
| 10 UNPK| | OD FAJ 
| e ZAP | | OE FBI 1. DC AL3, DC VL3, DC A, and DC V 
| e CP | | OF FC| 
| e AP | | 10 FD| The information contained in the instruc- 
| e SP | | | tion is inserted into the print buffer. 
| 15 MP | | | The print line has the following format: 
| e DP | | | 
pen A xc I A 3 poco qe ve sene pce WODZE CO Oro ia 1 
| LOC. | OBJECT | LABEL | OP. | OPERANDS | 
Figure 7. SS Tables | | CODE | l | | 
------ł--------}---------- $e) 
[000088|000742 [|L'0137'|DC |AL3(N'0140') | 
Besides the mnemonics, the location [00008B]000000  [£'0138*|DC |VL3(N'0138*) | 
counter, the current label, and the oper- [000090/00000806|L'0139"|DC [A (N'0142*) | 
ands are moved into the print buffer. eds. ere a oo od [V (N' 0037 *) | 
Before it is inserted, all the information Lodi mondo ono do din n J 


is translated into EBCDIC by routine TRANS. 
LOC is increased by 3 or 4 corresponding to 
the type of instruction. POI is increased 

Assembler Instructions by 10. 

These instructions must be distinguished in 2. DC X 

the code byte (second byte). The instruc- 

tion codes follow. The information is inserted into the print 
buffer as follows: 
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BOSE ECT OS TES 1 
| Starting | | 
| Print | Contents | 
| Position | | 
po ł----------------------------- 4 
l 2 | Location counter | 
| 10 | Constant, but not more than | 
| | 8 bytes of it | 
| 31 | Label | 
| 40 | DC | 
| 46 | X'CONSTANT' (not more than 8| 
| | bytes) | | 
A rcl A ah ee ts Sd e J 


If the constant has more than 8 bytes, a 
new line is printed for each 8 bytes, but 
without updating the location counter each 
time. The location counter is increased 
by the entire length of the constant. 


3. DSL 


The print line has the following format: 


Column 
LOCATION 2 
LABEL 31 
CODE DS 40 


OPERAND CL followed by the length 46 


LOC is increased by length L, which is 
found in the second half-word. POI is 
increased by 4. 


4. LABEL 


The label is moved into stack LAFI, and 
POI is increased by 4. When the label 
X'FFFF' (denoting the beginning of the 
static storage) is found, the line 


' L'FFFF' STATIC STORAGE 


is printed. 


5. PROCE 


Test whether statement number or not. If 
not, the message 'BEGIN OF BLOCK NN', the 
label, and the location counter are 
inserted into the print buffer. POI is 
increased by 6. 


If there is a statement number, it is 
checked if the number is zero. If it is 
not, it is listed in the form 


STATEMENT NUMBER NNNN 


starting at print position 90. NNNN is 
the statement number translated into a 
decimal value. Leading zeros are left 
out. If an immediately following sta 
tement number has a lower value, it is 
skipped. POI is increased by 4. 
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6. ENDBL 


OQ 


Ihe expression 'END OF BLOCK' and the 
location counter are inserted into the 
print buffer. POI is increased by 4. 


7. DCF 


The length of the corresponding DSA is 
taken from the block table expanded to a 
full-word and inserted at R11+10. The 
message 


' DC LENGTH OF DSA OF BLOCK NN ' 


(where NN is the block number) is listed. 
The location counter and, in some cases, a 
label are also inserted. The location 
counter and POI are increased by 4. 


END key 


When the end key is found, the word END is 
put into the print buffer.  ZPRNT is 
called to print the line. It determines 
whether the DECK and LINK bits are off. 

If both are off, the compilation is termi- 
nated by calling phase G31, which prints 
the message 


5G021 SUCCESSFUL COMPILATION 


closes all files, and calls EOJ. Other- 
wise, the phase is terminated by calling 
phase G55. - 


The routine translates location counter 
LOC into EBCDIC and inserts it into the 
corresponding entries of the print buffer. 


LAB -- GL 


This routine first translates the label 
found in the label field (LAFI) into 
EBCDIC. The label, preceded by L' and 
followed by a quote is moved into the 
print buffer. The label field is then set 
to zero. 


TRANS -- GM 


This routine translates hexadecimal values 
into EBCDIC. The bytes (the number of 
which is given in R2) at O(R1) are trans- 
lated and moved into the print buffer at 
the location given in RO. 


CHAMO -- GM 
This routine complements the half-word at 


POI+<R1>. The half-word is moved into a 
work area to ensure boundary alignment, 


| HIN: 
"T 
N M i x 
| v 
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then loaded into register R2, and restored 
at POI+<R1>. 


TRA -- GN 


This routine translates a string from 
POI+4 of length L (given in R3) into 
EBCDIC and inserts it into the print buf- 
fer at location R11+47. A quote is 
inserted at the end of the translated 
string. 


NAME -- GN 


This routine inserts the name, in the form 
N'aaaa', into the print buffer at the 
location given in RN. It determines 
whether or not the modifier is 0. If it 
is not 0, it inserts the modifier after 
the name. The modifier has no leading 
zeros and is preceded by a * or - sign. 


TRANSL -- GO 
This routine translates the length for SS 
instructions with only one length. It 
takes the length from POI+3 and inserts it 


unpacked into the stack ARBS. Length - 1 
is inserted into the print buffer at 
R11+11. 


TRANLS -- GO 

This routine translates the lengths for SS 
instructions with two lengths. The proce- 
dure is the same as described in TRANSL. 
TRANSR -- GO 

This routine translates the register con- 
tents into EBCDIC and inserts them into 
the print buffer. 

CHAR -- GP 


This routine lists the character string 
with the label L'0003* followed by 


DC C'aaa eee', 
No more than 32 characters are put into 


one line. The location counter is updated 
and printed for each line. 
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This phase provides the final output for 
the Linkage Editor, writes the object cards 
on IJSYSPH and/or writes the external sym- 
bol table on IJSYSLS if LINK,DECK, and/or 
SYM are flagged in the job control switches 
of the communication area within the Super- 
visor Nucleus. 


The address of the communication area is 
inserted into register 1 via the macro 
instruction COMRG. The job control switch- 
es are located in bytes 56-59 of the com- 
munication area, 


Job Control Bytes: 


Byte: 56 Job control byte 

Byte: 57 Linkage control byte 

Byte: 58 Language processor control byte 
Byte: 59 Job duration indicators 

NOIE: 


a) bit 0 of byte 57 denotes LINK if on, 
bj bit 0 of byte 58 denotes DECK if on, 
C) bit 3 of byte 58 denotes SYM if on. 


(If all these bits are off, the compilation 
is terminated previous to this phase.) 


The input of this phase is made up of 
the cards generated in previous phases and 
described there. The cards have been writ- 
ten onto SYS001 in physical records of 320 
bytes and logical records of 80 bytes. 


The first 16 bytes of each card (logical 
record) are fixed while the following 56 
bytes contain information corresponding to 
the type of card. The final 8 bytes (73 - 
80) are used for identification, containing 
the first 4 letters of the name of the 
external procedure and a current number. 


The output for the Linkage Editor is writ- 
ten onto IJSYSLN in physical records of 322 
bytes without overlap. The first two bytes 
of each physical record contain the follow- 
ing information: 


Byte 1: number of logical records in the 
physical one 
Byte 2: length of the logical records. 


Because four logical records of 80 bytes 
(in card-format) are inserted into one 
physical record, the bytes get the follow- 
ing values: 


Byte 1: 4 
Byte 2: 80 
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PHASE PL/IG55 (FINAL OUTPUT) -- HA 


The cards are taken from SYS001 in 
records of 320 bytes and inserted into a 
maSk of 322 bytes. From there they are put 
onto IJSYSLIN by means of routine ZLEDI 
which uses one 322-byte output record in 
the I/O-buffer region. 


Card Output 


The cards are punched as they are written 
onto SYS001. This is done by the routine 
ZPCH. 


The cards are moved into one of the two 
output buffers (length 80 bytes) in the 
I/O-buffer area. The initial address of 
the output buffer is found in register 10. 
The use of two output buffers makes over- 
lapping possible. Then routine ZPCH is 
called to move the card onto IJSYSPH. 


Listing of the External Symbol Table 


The input is scanned for ESD cards. These 
are printed in the following format: 

ROAR 1 -"oho 7 ee ee ee EA 
|SYMBOL| TYPE | ESID | ADDR |LENGTH| ESID | 
I---—-- ł------ ł------ ł------ ł------ ł------ ł 
| * | SD | * | * | * | | 
| * | ER | * | | | | 
| * | ID | Low 3 | * ou 
Peete ee eas >RR=X ===> 1 


[Print |Print [Print |Print |Print [Print | 
|8 Pos.|2 Pos.|2 Pos.]6 Pos.|4 Pos.|2 Pos. | 
PA EPA Ps a eee Ls docete J 


* means 'used in this case'. 


The printing is done by inserting the 
information in one of two 121 byte buffers 
at B5 which are used to process overlapped. 
Then routine ZPRINT is called to print the 
line. 


Listing of the Block Table 


At the end of the phase, the block table is 
listed. The format is of the block table 
is shown below: 


Block Length of DSA Blocktable 


01 01C7 
02 0060 
03 0070 
04 0058 


It contains, besides the block number 
(printed in hexadecimal notation), the 
length of the corresponding DSA (also in 
hexadecimal notation). | 


When all cards have been punched, print- 
ed, or written onto IJSYSLN, the compila- 
tion is terminated. 














PL/I PLM 8 


IBM Confidential 


For this the comment 

5W01T SUCCESSFUL COMPILATION 

is put on IJSYSLS: all files are closed and 
the LINKEDIT bits (bits 0 and 1 of byte 57) 


are set. 


If the compilation is in error, byte 
IJKMWC+1 is set to X'FF' and the message 


5WO21 COMPILATION IN ERROR 
is listed. 


Then the macro END OF JOB (EOJ) is used 
to terminate the compilation. 


Detailed Description 


In this phase the following three options 
are tested: 


a. Output on IJSYSLN (LINK-bit is on) 
b. Output on IJSYSPH (DECK-bit is on) 
c. Output on IJSYSLS (SYM-bit is on) 


The resulting 7 cases 


1. a, b, and c 
2. aand b 

3. aand c 

4. bandc 

5. a 

6. b 

Te C8 


are processed in four special routines: 


PLI for cases 1 and 2 
LINK for cases 3 and 5 
PCH for cases 4 and 6 
PRT for case 7 


Input and Output 


The input consists of the cards written 
onto SYS001 in records of 320 bytes (one 
record containing 4 cards). 


These records are read into the second 
input buffer EBU, moved into the first 
input buffer ABU, and processed there while 
another record is read into EBU. 


Register CPO is used as an input poin- 
ter. 


The output is written onto IJSYSLN, 
IJSYSPH and/or IJSYSLS depending on the 
options specified. While for IJSYSPH and 
IJSYSLS two output buffers are reserved 
(addressed via register 10 or 11, 
respectively), the output on IJSYSLN uses 
only one buffer of 322 bytes. 


The buffers for IJSYSLS are located in 
the last I/O buffer B4 and have a length of 


121 bytes. The buffers for IJSYSPH are 
located in the external I/O buffers B5 and 
B6 and have a length of 80 bytes each. 


The listing of the block table uses the 
table at IJKMBS, which contains the lengths 
of the DSAs. 


In order to test the option bits, the 
address of the corresponding communication 
area is put into register 1 by means of the 
macro COMRG. The first bit of byte 57 is 
the LINK bit, the first bit of byte 58 is 
the DECK bit, and the fourth bit of byte 58 
is the SYM bit. 


When all input has been processed, the 
block table is listed and this phase termi- 
nates the compilation by printing a final 
comment, inserting bits into the communi- 
cation area, and closing all files. The 
final instruction is the macro EOJ. 


GET -- HC 


This routine processes overlapped by moving 
the contents of the second input buffer EBU 
into the first input buffer ABU. It tests 
to determine whether there are any more 
records on SYS001. If there are no more 
records, switch NC1 is set to 1. Other- 
Wise, the next record is read into EBU, and 
the number of records NC is updated. 


PLI -- HC 


This routine puts all input records from 
ABU onto IJSYSLN, punches all cards, and 
prints the ESD table if the SYM switch is 
On. 


The output on IJSYSLN is processed by 
routine LINKS, the punching by PUNCH, and 
the listing by PRINT. 


LNK -- HD 


LNK writes all input records from ABU onto 
IJSYSLN and prints the ESD table if the SYM 
Switch is on. It uses routines LINKS, 
PRINT, and GET. 


PCH += HE 


This routine punches all cards by calling 
routine PUNCH and prints the ESD cards by 
means of routine PRINT. It uses routine 
GET for input. 


PRT -- HF 


This routine prints the external symbol 
table by means of routine ZPRNT, which uses 
two print buffers of length 121, the cur- 
rent address of which is to be found in 
register 11. 
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The information is taken from the cards TRA -- HH 


found in the buffer ABU and inserted into - 
the corresponding slots of the print buf- This routine translates hexadecimal values NL 
fer. (length given in R2) into EBCDIC code and 

inserts the translated string into the 
PRINT -- HG print buffer at the location given in RO. 

The location of the hexadecimal value is 
This routine prints an ESD card in the way given in R1. 
described in PRT. It scans the card and 
prints one line for each ESD entry in the 
card. PRIBLO -- HI 
PUNCH_-- HH This routine prints the rightmost byte in 

register RY (block number) and the halfword 
This routine is used to punch a card locat- at CPO (length of the current block DSA). 
ed at CPO. This is done by moving the card 
into one of the punch buffers (the address 
of which is found in register 10) and call- BLOCKT -- HI 
ing routine ZPCH. 

This routine prints the block table by 
LINKS -- HH means of routine PRIBLO. It inserts the 

subheader and uses CPO as a pointer in the 
This routine moves one record of 322 bytes block table and RY as a counter for the 
from ABO into the link buffer and writes it block numbers. The greatest block number 
onto IJSYSLN by calling routine ZLEDI. is found in IJKMBC. 

"AM: 
NA 
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APPENDIX A. SYNTAX_NOTATION_OF_PL/I_INPUT STREAM 


The metalanguage used in this section must 
not be considered to be of universal signi- 
ficance. It is a combination of the IBM 

syntax notation, the Backus/Naur form and a 
few extensions. The following rules apply: 


e <a series of lower case letters> is the 
common form of metalinguistic variables. 


e ::- means "is defined as". Each metal- 
inguistic definition contains one such 
symbol. 


e { } denotes grouping. 
e | indicates that a choice is to be made. 


e [ | denotes options. Anything enclosed 
in square brackets may appear once or 
not at all. 


e £3 "Combinatorial" brackets indicate 
that the options enclosed by them may 
appear in any order, however not more 
than once. 


e min 1 
If used in connection with { }, the 
enclosed syntactical unit must appear at 
least once. 
If used in connection with combinatorial 
brackets, at least one of the enclosed 
options must appear. 


e Max m 
If used in connection with { }, the 
enclosed syntactical unit must not 
appear more than m times. 
If used in connection with combinatorial 
brackets, a maximum of m of the enclosed 


options may appear. 


e min 1 max m 
Both limitations apply (see preceding 
text). 


e <A SERIES OF CAPITAL LETTERS> indicates 
the internal 3-byte representation of 
the corresponding keyword. 


hex , Where and are hexadecimal 
digits, indicates the literal occurence 
of the hexadecimal digits. 


e All other symbols maintain their origi- 
nal meaning. 


Examples: 
(Note that most of these examples are no 
valid definitions of PL/I statements.) 


«digit» ::= 0|1|2|3|4|5[6]|7]8]9 


Meaning: a digit is defined as the literal 
occurence of a 0,1,2 ese: etc. 


«function reference» ::- «ident» [( expres- 
sion list»)] 


Meaning: a function reference is defined as 
an identifier optionally followed by an 
expression list enclosed in parentheses. 


«replication factor» ::- (min 1 max 3 
{<digit>}) 


Meaning: a replication factor is defined as 
a series of 1 to 3 digits enclosed in 
parentheses. 


<open item> ::= 
<FILE> (<ident>) 
[<page>] 3 


€ [<INPUT>] [<BACKWARDS>] 


Meaning: an open item is defined as the 
internal representation of the keyword 
FILE, followed by a left parenthesis, fol- 
lowed by an identifier, followed by a right 
parenthesis, followed by a list of three 
options which may appear in any order (each 
option not more than once). 
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<A> ::= <links> hex 0003 


NZ 

<arithmetic constant> ::= <decimal fixed constant> | <binary fixed constant> | <decimal 

float constant> | <binary float constant> 

<assign> ::= «left» hex OE «right» 

«assignment statement» ::- «assign» <name> = <expr> 

<B> ::- «links» hex 0001 

«BACKWARDS» ::= «links» hex 0164 

<BEGIN> ::= <left> hex 06 <right> 

<begin statement> ::= <BESIN> 

<binary constant> ::= <binary integer> [. [<binary integer>]] |. <binary integer> 

«binary digit» ::= 0]1 | 

«binary fixed constant» ::- «binary integer» <B> 

«binary float constant» ::- «binary constant» «exponent» <B> 

«binary integer» ::= min 1 («binary digit>} 

<bit string constant> ::= [<replic>] '<binary integer>'<B> 

<blend> ::= <left> hex 07 <right> m 
Nz 


<block> ::= <data character> 


<BY> ::= <links> hex 0010 


<CALL> ::= <left> hex 09 <right> 
<call statement» ::= «CALL» «ident» [(<expression list»)] 


<character string constant» ::- «character string constant key» «data character» 
<character string constant key» «data character» «data character» 


«character string constant key» ::- hex E3 

«CLOSE» ::- «left» hex 30 «right» 

«close list» ::- «file option» | «close list», «file option» 

«close statement» ::- «CLOSE» «close list» 

«COLUMN» ::- «links» hex 012F 

«condition» ::= <FIXEDOVERFLOW> | <UNDERFLOW> | «SIZE» | «ERROR» | <ZERODIVIDE> | 
<ENDFILE> «enclosed ident» | «TRANSMIT» «enclosed ident» | «KEY» «enclosed 
ident» | «RECORD» «enclosed ident» | «ENDPAGE» «enclosed ident» | <OVERFLOW> | 
«CONVERSION» 

<constant> ::- «sterling constant» | «bit string constant» | «character string constant» 


| «binary fixed constant» | «decimal fixed constant» | «binary float constant» | 
«decimal float constant» | 





«CONVERSION? ::- «links» hex 016A 
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«decimal fixed constant» ::= «integer» [. [<integer>]] | . <integer> 


<decimal float constant> ::= <decimal fixed constant> <exponent> 
<DECLARE> ::= <left> hex 40 <right> 
«declare statement» ::= «DECLARE» min 0 («data character>} 

«digit» ::= 0 | 1]| 2 | 3 | 4 | 5 | 6 | 718 | 9 

<DISPLAY> ::= <left> hex 32 <right> 

<display statement> ::= <DISPLAY> <single> [<REPLY> <enclosed name>] 
<DO> ::= «left» hex 12 «right» 


«do statement» ::= «DO» [<while clause» | <q-name> = «specification list>] 


XE» ::= «links» hex 0002 

<EDIT> ::= «links» hex 0055 

<ELSE> ::- «left» hex 11 «right» 
«else statement» ::- «ELSE» 
<enclosed ident» ::- («ident») 
<enclosed name» ::- (<name>) 

<end of block statement» ::- «blend» 
<end of group statement» ::= <grend> 


<end of statement» ::- «eos» «no error» «level» «block» «statement number» | «eos» 
<error> «level» «block» «statement number» «error tail» 


<ENDFILE> ::- «links» hex 0147 

<ENDPAGE> ::- «links» hex 014B 

<ENTRY> ::- «left» hex OB «right» 

Xentry statement» ::- «ENTRY» ((<identifier list»)] 
<eos> ::- hex EA 

«error» ::- hex 80 | hex 40 

<fixedoverflow> ::- «links» hex 0177 hex 40 
<ERROR> ::- links hex 0107 

«error key» ::= hex EB 

«error number» ::- «data character» 


<error tail» ::- «error key» «error number» | «error tail» «error key» «error number» 


«exponent» ::= «E» [+ | -| «integer» 
EN <expr> ::= «constant» | «name» | «function reference» | «single» | «prefix operator» 
(C <expr> | <expr> <infix operator> <expr> 


<expression list> ::= <expr> | <expression list>,<expr> 
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<F> ::= <links> hex 0004 


R 
<FILE> ::= <links> hex 0047 SN. 
<file option> ::= <FILE> <enclosed ident> 
<fixedoverflow> ::= «links» hex 0177 
<FORMAT> ::= <left> hex 35 <right> 
<format element» ::= [<integer>] «format item» | «integer» «format list» 

«format element list» ::- «format element» | «format element list», «format element» 

«format item» ::- <F> (<integer> [,<integer> [, [+ | -] <integer>]]) | «E» (<integer>, 
«integer» [,<integer>]) | <B> [(<integer>)| | <A> [(<integer>)] | «X» 
(<integer>) | <SKIP> [(<integer>)] | <LINE> (<integer>) | <COLUMN> (<integer>) | 
<PAGE> | <R> (<q-name>) 

<format list> ::= (<format element list>) 

<format statement> ::= <FORMAT> <format list> 

<FROM> ::= <links> hex 005A 

«function reference» ::= «ident» [(<expression list»)] 

<GET> ::= «left» hex 33 «right» 

<get statement» ::- «GET» [<file option» | «STRING» «enclosed name»] «input data 
Specification» en 

ON 
<GO> ::= <links> hex 000E NZ 


<goto> ::= <left> hex 0A <right> 
<GOTO> ::= <links> hex 004D 
<goto statement> ::= <goto> <name> 


<grend> ::= <left> hex 13 <right> 


«heading» ::= min 0 («ident»:] 


<ident> ::= <ident key> <data character> <data character> 

<ident key> ::= hex El 

<identifier list> ::= <ident> | <identifier list>, <ident> 

<IF> ::= <left> hex 10 <right> 

<if statement> ::= <IF> <expr> 

<infix operator» ::= + | - | * | / | ** |= | <I> la I <=] = | tl tt la> l nś 
<INPUT> ::= <links> hex 0183 


<input data element> ::= <name> | <input repetitive specification> 





<input data element list> ::= <input data element> | <input data element list>, <input 
data element> 
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<input data list» ::= (<input data element list») 
<input data specification> ::= <input list specification> | <input edit specification> 


<input edit list> ::= <input data list> <format list> | <input edit list> <input data 
list> <format list> 


<input edit specification> ::= <EDIT> <input edit list> 
<input list specification> ::= <LIST> <input data list> 


<input repetitive specification> ::= (<input data element list> <do> <q-name> = 
<specification list>) 


<integer> ::= min 1 (<digit>) 
<INTO> ::= <links> hex 00D9 


<iteration> ::= <expr> [«TO» <expr> [<BY> <expr>] | «BY» <expr> [<FO> <expr>]] [<while 
clause>] 


<KEY> ::= «links» hex 0097 
<KEYFROM> ::= <links> hex 01C9 


<KEYTO> ::= <links> hex 00FD 


<L> ::= <links> hex 0088 

<left> ::= hex E000 

<level> ::= <data character> 
<LINE> 1:= «links» hex 00D8 
<links> ::= hex El 

<LIST> ::= «links» hex 00D6 
<LOCATE> ::= «left» hex 38 «right» 


<locate statement> ::= <LOCATE> <ident> <file option> (<SET> <enclosed name> [<KEYFROM> 
<single>] | [<KEYFROM> <single>] «SET» «enclosed name>} 


<name> ::= <q-name> [((<subscript list»)| 
<NEWPAGE> ::= <links> hex 01C8 
«no error» ::= hex 00 


«nop» ::- «left» hex OD «right» 
«null statement» ::- «nop» 


<ON> ::= «left» hex 22 «right» 
Xon statement» ::- «ON» «condition» [<SYSTEM> | «GO» «TO» «ident» | <GOTO> «ident» 
<OPEN> ::= «left» hex 31 «right» 


<open item» ::- «file option» [<PAGESIZE> «single» | «OUTPUT» | <INPUT>] 
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<open list» ::= «open item» | «open list», «open item» 


D 

<open statement> ::= <OPEN> <open list> 
<OUTPUT> ::= <links> hex 011C 
«output data element> ::= <expr> | «output repetitive specification> 
<output data element list> ::= <output data element> | <output data element list>, 

<output data element> 
«output data list» ::= («output data element list») 
<output data specification» ::- «output list specification» | «output edit specification» 
«output edit list» ::- «output data list» «format list» | «output edit list» «output data 

list» «format list» 
«output edit Specification» ::= «EDIT» «output edit list» 
«output list specification» ::- «LIST» «output data list» 
«output repetitive specification> ::- («output data element list» «do» «q-name» = 

«Specification list» 
<OVERFLOW> ::= «links» hex 0152 
<PAGE> ::- «links» hex 0057 
<PAGESIZE> ::= «links» hex 0159 | PR 
<pence integer» ::- 10 | 11 | [0] «digit» WY 


<pence part» ::= <pence integer» [. [<integer>] ] 

<prefix operator> ::= + p 5 os 

«PROCEDURE? ::= «left» hex 05 «right» 

 Xprocedure statement» ::- «PROCEDURE» [ (<identifier list»)] 

<PUT> ::= <left> hex 34 <right> 

«put statement» ::= «PUT» [<file option >] {{{€[<page>] [<line> <SINGLE>]3| «skip» 
[<SINGLE>] ) «OUTPUT DATA SPECIFICATION>} | £(MIN 1€([<page> [<line> <SINGLE>] 3 | 


«skip» [<SINGLE>]} [<OUTPUT DATA SPECIFICATION>]}}]| «put» «string» «ENCLOSED 
NAME» «OUTPUT DATA SPECIFICATION» 


<q-name> ::- «ident» | <q-name> . «ident» 


XR» ::= <links> hex 000A 
<READ> ::= «left» hex 36 «right» 
«read Statement» ::= «READ» «file option» {{<SET> «enclosed name» | «INTO» «enclosed 


ident») [<KEYTO> «enclosed name> | «KEY» <single>] | [(<KEYTO> «enclosed name> | 
<KEY> <single>] («SET» «enclosed name» | «INTO» «enclosed ident>}} 





<RECORD> ::- «links» hex 0114 


<replic> ::= (min 1 max 3 {<digit>}) 
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4 <REPLY> ::= <links> hex 0105 
( <RETURN> ::= «left» hex 0C «right» 
«return Statement» ::- «RETURN» [<single>] 
<REVERT> ::- «left» hex 21 «right» 
«revert statement» FE <REVERT> <condition> 
<REWRITE> ::= <left> hex 39 <right> 


«rewrite statement» ::= <REWRITE> «file option>$[<KEY> <single>] 
ident>]3 


<right> ::= <data character> <data character> <data character> 
<SET> ::= <links> hex 0018 
<shilling part» ::= [0 | 1] «digit» 
<SIGNAL> ::= <left> hex 20 <right> 
«signal statement» ::= «SIGNAL» «condition» 
«single» ::= (<expr>) 
<SIZE> ::= <links> hex 0052 
<SKIP> ::= <links> hex 005D 
( <specification list» ::- «iteration» | «specification list», 
«statement» ::- «heading» «statement body» «end of statement» 
«statement body» ::- 
«display statement» | 
| <revert Statement» | 


«open statement» | «close statement» | 
«format statement» | «else statement» | 


«null statement» | 
«goto statement» | 
«stop statement» | 


«assignment statement» | 
«return statement» | 
«do statement» | 
«read statement» | 
«begin statement» | 


{<FROM> «enclosed 


«iteration» 


«call statement» | 


«signal statement» 
<if statement» | 
śwrite statement> | 
<end of block 


statement> | <end of group statement> | <procedure statement> | <entry 
statement> | <on statement> | <declare statement> | <get statement> | <put 
statement> | <locate statement> | <rewrite statement> 

<statement number > ::= <data character> <data character> 

«sterling constant» ::= «integer» . <shilling part» . <pence part» 

<STOP> ::= <left> hex 23 «right» 

«stop statement» ::- «STOP» 

«STRING» ::- «links» hex 0113 

<q-name> | «arithmetic constant» | {+ | -) <subscript> | <subscript> 


<subscript> ::= 
(*|*|-) <subscript> 
<subscript list> ::= <subscript> | 


<SYSTEM> ::= <links> hex 011F 





<TO> ::= <links> hex 000F 
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<TRANSMIT> ::= <links> hex 0158 


© 


<UNDERFLOW> ::= <links> hex 0162 
<WHILE> ::= <links> hex 007F 
<while clause> ::= <WHILE> <single> 


<WRITE> ::= <left> hex 37 <right> 


«write statement» ::= «WRITE» «file option» (<FROM> «enclosed ident» [<KEYFROM> <single>] 
| [<KEYFROM> <single>] «FROM» «enclosed ident») 


«X» ::= «links» hex0006 


<ZERODIVIDE> ::- «links» hex 0169 


Zr 
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<a> ::= «links» hex 0003 

«and» ::= hex E205EC 

«arithmetic constant» ::= «decimal fixed constant» | «binary fixed constant» | «decimal 
float constant» | «binary float constant» 

«assign» ::- «left» hex OE «right» 


«assignment statement» ::- «assign» «name» «ist» <expr> 


<b> ::- «links» hex 0001 

<backwards> ::- «links» hex 0164 

<BEGIN> ::= <left> hex 06 <right> 

<begin statement> ::= <BESIN> 

<binary fixed constant» ::= «binary fixed constant key» «length» min 2 (<data character>} 


<binary fixed constant key> ::= hex F9 


de 


«binary float constant» ::- «binary float constant key» «length» min 4 {<data character >) 
<binary float constant key» ::- hex FA 

«bit string constant» ::- «bit string constant key» «length» min 4 («data character>} 
«bit string constant key» ::- hex FB 

«blend» ::- «left» hex 08 «right» 

«branch» ::= «links» hex 0355 


«by» ::= «links» hex 0010 


<CALL> ::= «left» hex 09 «right» 
«call statement» ::- «CALL» «ident» [<lnb> «expression list» <rnb>] 
«cat» ::= hex E203EA 


«character string constant» ::- «character String constant key» «data character» «data 
character» «character string constant key» «data character» «data character» 


«character string constant key» ::- hex E3 

<CLOSE> ::= «left» hex 30 «right» 

«close list» ::- «file option» | «close list» «comma» «file option» 
«close statement» ::- «CLOSE» «close list» 

«col» ::- «links» hex 012F 


«comma» ::= hex E200E8 
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«condition» ::= <fixedoverflow> | <underflow> | «size» | «fieldoverflow» | <endfile> 
<enclosed ident» | «transmit» «enclosed ident» | «key» «enclosed ident» | | 
«record» «enclosed ident» | «endpage» «enclosed ident» | «overflow» | «error» | Ns 
<zerodivide> | <conversion> | | 


«constant» ;:= «sterling constant» | «bit string constant» | < character string constant» 
| «binary fixed constant» | «decimal fixed constant» | «binary float constant» | 
«decimal float constant» | | 


«conversion» ::- «links» hex 016A 


«DECLARE» ::= «left» hex 40 «right» 


<declare statement» ::- «DECLARE» min 0 («data character») 


«decimal fixed constant» ::- «decimal fixed constant key» «length» min 1 («data 
character») 


«decimal fixed constant key» ::- hex F7 


«decimal float constant» ::- «decimal float constant key» «length» min 3 («data 
character>} 


<decimal float constant key> ::= hex F8 
<DISPLAY> ::= <left> hex 3% <right> | 
«display Statement» ::- «DISPLAY» «single» [<reply> «enclosed name>] 
«DO» ::= «left» hex 12 «right» | po 
«do» ::= «links» hex 0054 A 


«do statement» ::= «DO» (<while clause» | <q-name> «ist» «specification list>] 


Ke» ::= <links> hex 0002 

<edit> ::* <links> hex 0055 

<ELSE> ::= «left» hex 11 «right» 

<else statement> ::= <ELSE> 

<enclosed ident» ::= <llb> «ident» xrlb» 
«enclosed name> ::- «llb» «name» <rlb> 
<endfile> ::- «links» hex 0147 

«end of block statement» ::= «blend» 
«end of group statement» us <grend> 
<end of procedure statement> ::= <prend> 


<end of statement> ::= <eos> <no error> <level> <block> <statement number> | <eos> 
<error> <level> <block> <statement number> <error tail> 


<endpage> ::= «links» hex 014B 





<ENTRY> ::= <left> hex OB «right» 


<entry statement> ::= <ENTRY> [<lnb> <identifier list> <rnb>] 
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<eos> ::= hex EA 


<eq> ::= hex E207ED 

<ERROR> ::= <links> hex 0107 

<error> ::= hex 80 | hex 40 

<error key> ::= hex EB 

<error number> ::= <data character> 

<error tail> ::= <error key> <error number> | <error tail> <error key> <error number> 


<constant> | <name> | <function reference> | <single> <prefix operator> <expr> 


<expr> ::= 
| <expr> <infix operator> <expr> 


<expression list> ::= <expr> | <expression list> <comma> <expr> 


<f> ::= <links> hex 0004 

<file> ::= <links> hex 0047 

<file option> ::= <file> <enclosed ident> 

<fixedoverflow> ::= <links> hex 0177 

<FORMAT> ::= <left> hex 35 <right> 

<format element> ::= [<format integer>] <format item> | <format integer> <format list> 


<format element list> ::= <format element> | <format element list> <comma> <format 
element> 


«format integer» ::= «format integer key» «length» min 1 («data character>} 

«format integer key» ::- hex FE 

«format item» ::- «f» «llb» «format integer» [<comma> «format integer» [<comma> [<uplus> 
| «umin»] «format integer>]] <rlb> | «e» «llb» «format integer» «comma» «format 
integer» [<comma> «format integer»] <rlb> | <b> [<llb> «format integer» <rlb>] | 
<a> [<llb> «format integer» <rlb>] | «x» «llb» «format integer» <rlb> | «skip» 
[<11b> «format integer» <rlb>] | «line» «llb» «format integer» <rlb> | «col» 
llb» «integer» <rlb> | «page» | <r> «llb» <q-name> <rlb> 

«format list» ::- «llb» «format element list» <rlb> 

«format statement» ::- «FORMAT» «format list» 

«from» ::- «links» hex 005A 


«function reference» ::= «ident» [<lnb> «expression list» <rnb>] 


<gauche> ::= hex E2 «data character» 
<ge> ::- hex E207F2 
<GET> ::= «left» hex 33 «right» 


Xget statement» ::- «GET» [«file option» | <string> «enclosed name>] <input data 
Specification» 


<goto> ::- «left» hex OA «right» 
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<goto statement> ::= <goto> <name> 
<grent> ::= <left> hex 13 <right> 
<gt> ::= hex E207F0 


<heading> ::= min 0 {<ident>:} 


<ident> ::= <ident key> <data character> <data character> 
<identifier list> ::= <ident> | <identifier list> <comma> <ident> 
<ident key> ::= hex El 

<IF> ::= <left> hex 10 <right> 

<if statement> ::= <IF> <expr> 


<infix operator> ::= <plus> | <minus> | <slash> | <pot> | <star> | <eg> | <lt> | <gt> | 
<ne> | <le> | <ge> | <and> | <or> | <cat> 


<input> ::= <links> hex 0183 
<input data element> ::= <name> | <input repetitive specification> 


<input data element list> ::= <input data element> | <input data element list> <comma> 
<input data element> 


<input data list> ::= <llb> <input data element list> <rlb> 
<input data specification> ::= <input list specification> | <input edit specification> 


<input edit list> ::= <input data list> <format list> | <input edit list> <input data 
list> <format list> | 


<input edit specification> ::= <edit> <input edit list> 
<input list specification> ::= <list> <input data list> 


<input repetitive specification» ::- «llb» <input data element list» «do» <q-name> «ist» 
«specification list» <rlb> 

«into» ::- «links» hex 00D9 

«ist» ::- «gauche» hex FB 


«iteration» ::= <expr> [<to> <expr> [<by> <expr>] | «by» <expr> [<to> <expr>]] [<while 
clause»] 


<key> ::- «links» hex 0097 
<keyfrom> ::= «links» hex 01C9 


<keyto> ::- «links» hex 00FD 


«le» ::- hex E207F1 
«left» ::= hex EO «data character» 


«length» ::- «data character» «data character» 
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są 


«line» ::= «links» hex 0008 


<list> ::- «links» hex 00D6 
«llb» ::= «gauche» hex FD 


<inb> ::- hex E200E6 


«LOCATE» ::= «left» hex 38 «right» 


«locate statement» 


:= «LOCATE» «ident» «file option» f<set> «enclosed name» [<keyfrom> 


«single»] | [<keyfrom> «single»] «set» «enclosed name>} 


«lt» ::= hex E207EF 


«minus» ::- hex E208F4 


<name> ::= «q-name» [<lnb> <subscript list» <rnb>] 


«ne» ::= hex E207EE 


<newpage> ::= <links> hex 0 


<no error> ::= hex 00 


1C8 


<nop> ::= <left> hex 0D <right> 


«not» ::= hex E20AF9 
<null> ::= <links> hex 0356 


<null statement> ::= <nop> 


<ON> ::= <left> hex 22 <right> 


<on statement» ::= «ON» «condition» f<system> | «branch» «ident» | <null>} 


<OPEN> ::= «left» hex 31 «right» 


<open list» ::- «open item» 
«open statement» ::- «OPEN» 


<or> ::= hex E204EB 


<open item» ::- «file option» [<pagesize> «single» | «output» | <input>] 


| «open list» «comma» «open item» 


«open list» 


«output» ::- «links» hex 011C 


<output data element» ::= <expr> | «output repetitive specification» 


«output data element list» 


::= «output data element» | «output data element list» «comma» 


«output data element» 


«output data list» ::- «llb» «output data element list» <rlb> 


«output data specification» 


::- «output list specification» | «output edit specification» 


«output edit list» ::- «output data list» «format list» | «output edit list» «output data 
list» «format list» 
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<output edit specification> ::= <edit> <output edit list> 





<output list specification> ::= <list> <output data list> 


«output repetitive specification» ::= «llb» «output data element list» «do» <q-name> 
«ist» «specification list» <rlb> 


«overflow» ::- «links» hex 0152 


«page» ::- «links» hex 0057 

<pagesize> ::- «links» hex 0159 

<period> ::= «links» hex 0360 

<plus> ::= hex E208F3 

<pot> ::= hex E20AFA 

<prefix operator> ::= <uplus> | <umin> | <not> 

<prend> ::= <left> hex 07 <right> 

<PROCEDURE> ::= <left> hex 05 <right> 

<procedure statement» ::= «PROCEDURE» [<lnb> «identifier list» <rnb>] 

<PUT> ::= <left> hex 34 <right> 

<put statement» ::= «PUT» [<file option>] ((í(f[«page»] [<line> <single>]3| «skip» AN 
[<single>] ] «output data specification> | [(min 1&€[<page>] [<line> <single>]3 | ES 


<skip> [<Single>]} [<output data specification>] }}| «PUT» <string> «enclosed R 
name> <output data specification> 


<q-name> ::= «ident» | <q-name> hex 2B «ident» 


<r> ::- «links» hex 000A 

<READ> ::= «left» hex 36 «right» 

<read statement» ::- «READ» «file option» ff<set> «enclosed name» | «into» «enclosed 
ident») [<keyto> «enclosed name> | «key» <single>] | [<key> «single» | <keyto> 
«enclosed name>] {<set> «enclosed name> | «into» «enclosed ident>}} | 

<record> ::= <links> hex 0114 

'<rlb> ::- «gauche» hex FE 

<rnb> ::= hex E200E7 

<reply> ::= <links> hex 0105 

<RETURN> ::= <left> hex 02 <right> 

<return statement> ::= <RETURN> [<single>] 


<REVERT> ::= <left> hex 21 <right> 


<revert statement> ::= <REVERT> <condition> 





<REWRITE> ::= <left> hex 39 <right> 
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«rewrite statement» ::- <REWRITE> «file option» €[<key> <single>] [<from> «enclosed 
ident>] 3 


<right> ::= <data character> <data character> <data character> 

<rnb> ::= hex E200E7 

<set> ::= <links> hex 0018 

<SIGNAL> ::= <left> hex 20 <right> 

<signal statement> ::= <SIGNAL> <condition> 

<single> ::= <lnb> <expr> <rnb> 

<size> ::= <links> hex 0052 

<skip> ::= <links> hex 005D 

<slash> ::= hex E209F6 

<specification list> ::= <iteration> | <specification list> <specom> <iteration> 

<specom> ::= <gauche> hex FC 

<star> ::= hex E209F5 

<statement> ::= <heading> <statement body> <end of statement> 

<statement body> ::= <null statement> | <assignment statement> | <call statement> | 
<display statement> | <goto statement> | <return statement> | <signal statement> 
| <revert statement> | <stop statement> | <do statement> | <if statement> | 
<open statement> | <close statement> | <read statement> | <write statement> | 
<get statement> | <put statement> | <locate statement> | <rewrite statement> | 
<format statement> | <else statement> | <begin statement> | <end of block 
statement> | <end of procedure statement> | <end of group statement> | 
<procedure statement> | <entry statement> | <on statement> | <declare statement> 

<statement number> ::= <data character> <data character> 

«sterling constant» ::= «sterling constant key» «length» min 6 («data character>} 

«sterling constant key» ::- hex FC 

«STOP» ::= «left» hex 23 «right» 

«stop statement» ::= «STOP» 

«string > ::- «links» hex 0113 


<subscript> ::= <q-name> | «arithmetic constant» | (<uplus> | <umin>} <subscript> | 
<subscript> {<plus> | «minus?» | <star>) <subscript> 


«subscript list» ::= <subscript> | <subscript list» «comma» «subscript» 


«system» ::- «links» hex 011F 


«to» ::- «links» hex 000F 


«transmit» ::- «links» hex 0158 


<umin> ::- hex E20AF8 
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<underf low> ::= «links» hex 0162 


<uplus> ::= hex E20AF7 
«while» ::= «links» hex 007F 
«while clause» ::= [<while> <single>] 


<WRITE> ::= <left> hex 37 <right> 


<write statement> ::= :WRITE> <file option> f<from> <enclosed ident> [<keyfrom> <single>] 
| [<keyfrom> <single>] «from» «enclosed ident>} 


XX» ::= <links> hex 0006 


<zerodivide> ::= <links> hex 0169 
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APPENDIX C. LIBRARY ROUTINES 


= a n eg E ICRA O 1 NAAA Te Ee ee NS A TO 1 
| INT. NAME|MOD. | | |INT. NAME | MOD. | | 
E----r----1NAME | | ----r----|NAME| | 
| HEX. | DEC. | Pos. | DESCRIPTION | | REX. | DEC. | Pos. | DESCRIPTION | 
| | 9371 | | | [4-7 | | 
O aaa eae Oe OPR eae eee { ral ecce ERAN TENE 
|10 |  16|SZCA|MAIN | |43 |  67|VRPM|STERLING TO DECIMAL FIXED | 
|11 |  17|SZCM|MAIN | (44 | 68|VNPM|FIXED NUM. FIELD TO DEC. | 
|12 | 18]SZCN|PROLOGUE | | | | | FIXED | 
[13 |  19|SZCP|GO TO | |45 | 69|FPNM|DEC. FIXED TO FIXED NUM. | 
|14 | 20|SZCS|SIGNAL | | | | | FIELD | 
[15 | 21[SZCT|STOP | |46 | 70|VPRM|DEC. FIXED TO STERLING | 
[16 | 22|SZLM|ENTRY MOVE ROUTINE | | | | | NUM. FIELD | 
|17 | 23|ZWSA|LIBRARY WORK SPACE | [47 | 71| | | 
[18 | 24|TOPM|OPEN | [48 | 72| | | 
|19 | 25|TCLM|CLOSE | 149 | 73 | | 
[1A | 26|TPSM|PAGESIZE | [4a | 74| | | 
| 1B | 27| | | [4B | 75] | | 
10 | 28| | STREAM-DIRECTED LIST INPUT| [uc | 76| | | 
[1D | 29| [INITIAL STRING LIST INPUT | [4D | 77] | | 
|1E | 30] | STRING TRANSMITTED | [4E | 78] | | 
| | | [LIST INPUT | (4F | 79| | 
|1F | 31] | [50 | 80]STMM| TIME | 
|20 | 32|TFDM|STREAM DIRECTOR | [51 | 81|SDTM|DATE | 
|21 | 33|TFMM|FORMAT DECODER | |52 | 82] | | 
|22 | 34|TGDS|STRING DIRECTOR | [53 | 83] | 
[23 | 35]|TSTM|GET/PUT FILE INITIAL | [54 | 84|QQSM|SQUARE ROOT (SHORT) | 
|24 | 36|TGDI|GET STRING INITIAL | |55 | 85|QQLM|SOUARE ROOT (LONG) | 
|25 | 37|TGDO|PUT STRING INITIAL | [56 | 86|QASM|EXPONENTIATION (SHORT) | 
126 | 38] | | [57 | 87|QALM|EXPONENTIATION (LONG) | 
127 | 39|TXRM|EXTENT, FB TO PDI | |58 | 88|QLSA|LOG (SHORT) | 
128 |  40|VBCM| | [59 | 89|QLLA|LOG (LONG) | 
|29 | 41|VTCM|FLOAT TO PDI | [5A |  90|QLSC|LOG2 (SHORT) | 
{2A |  42[VPCM|FIXED DECIMAL TO PDI | |5B | 91|QLLC|LOG2 (LONG) | 
[2B |  43|VFCM|NUM. FIELD FLOAT TO PDI | |5C | 92|QLSB|LOG10 (SHORT) | 
[2C |  44|VECMIE, F TO PDI | [5D | 93|QLLB|LOG10 (LONG) | 
[2D | 45|VGIM|CHAR. STRING TO BIT STRINGI [5E | 94|QSSD|SINE (SHORT) | 
|2E | 46|VIGM|BIT STRING TO CHAR. STRING| [SF | 95|QSLD|SINE (LONG) | 
|2F | 47|TSTR|X, PAGE, SKIP | |60 | 96|QSSC|SINE-DEGREE (SHORT) | 
[30 | 48|TLCM|LINE, COLUMN | |61 | 97[QSLC|SINE-DEGREE (LONG) | 
|31 | 49|VCBM|PDI TO BIN. FIXED | 162 |  98|QSSB|COSINE (SHORT) | 
|32 | 50|VCTM|PDI TO FLOAT | 163 | 99|QSLB|COSINE (LONG) | 
[33 | 51|VCPM|PDI TO FIXED DECIMAL | [64 | 100|QSSA|COSINE-DEGREE (SHORT) | 
[34 | 52|VCFM|PDI TO NUM. FIELD FLOAT | |65 | 101|QSLA|COSINE-DEGREE (LONG) | 
|35 | 53|VCEM|PDI TO E, F | [66 | 102[QTSB|TAN (SHORT) | 
|36 | 54|SYSI|SYSIN | |67 | 103|QTLB|TAN (LONG) | 
|37 | 55|SYSA|SYSPRT | 168 | 108|OTSA|TAN-DEGREE (SHORT) | 
[38 | 56|TCBM|CONSECUTIVE BUFFERED | [69 | 105|QTLA|TAN-DEGREE (LONG) | 
| | | TRANSMITTER | |6A | 106|QCSA|SINH (SHORT) | 
[39 | 57] TCUM|CONSECUTIVE UNBUFFERED | [6B | 107|QCLA|SINH (LONG) | 
| | | | TRANSMITTER | |l6C | 108|0CSB|COSH (SHORT) | 
|3A | 58|TRGM|REGIONAL TRANSMITTER | [6D | 109[QCLB|COSH (LONG) | 
|3B |  59|TDPD|DISPLAY | |6E | 110|ODSA|TANH (SHORT) | 
|3C | 60|TDPR|DISPLAY : REPLY | |6F | 111|]ODLA|TANH (LONG) | 
[3D |  61|TXCF|EOF | |70 | 112|0BSA|ATANH (SHORT) | 
|3E | 62|TXCW|WR LENGTH | |71 | 113|0BLA|ATANH (LONG) | 
[3F | 63|TXCR|ERROPT | [72 | 114|QRSB|ERF (SHORT) | 
[40 | 64|VTBM|BIN. FLOAT TO BIN. FIXED | |73 | 115|QRLB|ERF (LONG) | 
|41 | 65|VBTM|BIN. FIXED TO BIN. FLOAT | [74 [| 116|QRSA|ERFC (SHORT) | 
E |42 | 66|VIIM|BIT STRING TO BIT STRING | |75 | 117|ORLA|ERFC. (LONG) | 
( — —— €—————— J |76 | 118|QNSD|ATAN (SHORT) | 
= ¡A PA E EE E A EE uuum EEEE EEA dJ 


Note: The underlined module names are primary entry points. 
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PZN eee A SONATA PONY SNR NAN MUST 
|INT. NAME|MOD. | 

[----1---~1 NAME | 

| REX. | DEC. | Pos. | DESCRIPTION 

| | [4-7 | 

----i---- PREDZEJ MCN cB ch as pv RUPEE ON USO ae CURE 
[AC | 172| | FIXED 

IAD | 173| |PRECISION 

[AE | 174| | 

[AF | 175| | ADD 

[BO | 176| |MULTIPLY 

[B1 | 177] |DIVIDE 

[B2 | 178| | HIGH 

|B3 | 179| | LOW 

[B4 | 180| | SUM 

|B5 | 181] | PROD 

|B6 | 182| | ALL 

|57 | 183] | ANY 

|B8 | 184] | ADDRESS 

|B9 | 185| | STRING 

[BA | 186] | 

[BB | 187| | 

[BC | 188| | 

IBD | 189] | 

[BE | 190| | 

IBF | 191| | 

ICO | 192| | 

|c1 | 193] | 

|C2 | 194|SDMP| DYNDUMP 

[C3 | 195| | 

[C4 | 196| | 

[C5 | 197| | 

IC6 | 198| | 

IC7 | 199] | 

|C8 | 200|RTSM|FLOOR (FLOAT SHORT) 
|C9 | 201|RTLM|FLOOR (FLOAT LONG) 
[CA | 202|RTBM|FLOOR (BIN. FIXED) 
[CB | 203|RTPM|FLOOR (DEC. FIXED) 
[CC | 204|RVSM|CEIL (FLOAT SHORT) 
[CD | 205|RVLM|CEIL (FLOAT LONG) 
[CE | 206|RVBM|CEIL (BIN. FIXED) 
ICF | 207|RVPM|ceil (DEC. FIXED) 
[DO | 208|RSSM|MOD (FLOAT SHORT) 
|D1 | 209|RSLM|MOD (FLOAT LONG) 
|D2 | 210|RSBM|MOD (BIN.FIXED) 

[D3 | 211|[RSPM|MOD (DEC. FIXED) 
|D4 | 212|RUSM|ROUND (FLOAT SHORT) 
[D5 | 213|RULM|ROUND (FLOAT LONG) 
|D6 | 214|RUBM|ROUND (BIN. FIXED) 
|D7 | 215|RUPM|ROUND (DEC. FIXED) 
[D8 | 216|RWSM|TRUNC (FLOAT SHORT) 
[D9 | 217|RWLM|TRUNC (FLOAT LONG) 
[DA | 218|RWBM|TRUNC (BIN. FIXED) 
[DB | 219|RWPM|TRUNC (DEC. FIXED) 
IDC | 220] [ABS (FLOAT SHORT) 
[DD | 221| [ABS (FLOAT LONG) 
IDE | 222| |ABS (BIN. FIXED) 
IDP | 223] |ABS (DEC. FIXED) 
¡AS o AS Leo O KO la eS ÓW a aa 


PS ATI ds a e o di ML GC EK Z 1 
| INT. NAME | MOD. | | 
E----r----|NAME| | 
| REX. | DEC. | Pos. | DESCRIPTION | 
| | [4-7 | | 
DE: A DO. DETER >= ORMO OSR PRE 1 
[77 | 119|QNLD|ATAN (LONS) | 
|78 | 120|ONSC|ATAN-DEGREE (SHORT) | 
[79 | 121|QNLC|ATAN-DEGREE (LONG) 
|7A | 122|0NSB|ATAN- (X,Y) SHORT) | 
[7B | 123|ONLB|ATAN- (X,Y) (LONG) | 
|7C | 124|ANSA|ATAN-DEGREE (X,Y) | 
|7D | 125|QNLA|ATAN-DEGREE (X,Y) | 
|7E | 126|RBKB|REPEAT BIT | 
|7F | 127|RBKA|BIT CONCATENATION | 
|80 | 128|RBIM|INDEX BIT | 
|81 | 129|RGIM|INDEX CHARACTER | 
|82 | 130| | | 
183 | 131] | | 
|84 | 132|RBBM| BOOL | 
[85 | 133|RGKM|REPEAT CHARACTER | 
[|86 | 134|RMSX|MAX (FLOAT SHORT) | 
|87 | 135|RMLX|MAX (FLOAT LONG) | 
[88 | 136|RMBX|MAX (FIXED BINARY) | 
[89 | 137|RMPX|MAX (FIXED DECIMAL) | 
|8A | 138|RMSN|MIN (FLOAT SHORT) | 
|8B | 139|RMLN|MIN (FLOAT LONG) | 
|8C | 140|RMBN|MIN (FIXED BINARY) | 
(8D | 141|RMPN|MIN (FIXED DECIMAL) | 
[8E | 142| |SUBSTR BII (RIGHT) | 
(SF | 143] |SUBSTR CHAR (RIGHT) | 
[90 | 144| | SUBSTR BII (LEFT) | 
191 | 145] |SUBSTR CHAR (LEFT) | 
|92 | 146|RESM|EXP (FLOAT SHORT + INTEGER) 
|93 | 147|RELM|EXP (FLOAT LONG + INTEGER) | 
[94 | 148|REPM|EXP (DECIMAL + INTEGER) | 
[95 | 149|REBM|EXP (BIN. FIXED) INTEGER | 
|96 | 150|RXSA|EXP (GENERAL SHORT) | 
|97 | 151|RXLM|EXP (GENERAL LONG) | 
[98 | 152] | | 
199 | 153] | | 
|9A | 154] | | 
|9B | 155] | | 
[9C | 156] | | 
[9D | 157| | | 
[9E | 158] | | 
|9F | 159| | | 
jao | 160] | ABS | 
pat | 161] | SIGN | 
IB2 | 162] | FLOOR | 
|A3 | 163] | CEIL | 
[A4 | 164| | UNSPEC 
[A5 | 165| | | 
|A6 | 166] | BIT | 
IA7 | 167] | CHAR | 
IA8 | 168] | | 
|A9 | 169] | BINARY | 
IAA | 170] | DECIMAL | 
IAB | 171| | FLOAT | 
Uaz og dka EG Ae es A a ccu is di dJ 


Note: The underlined module names are primary entry points. 
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DTF TABLES 


b | anu M —— MM ——— A A R a R DA p eee 


000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000016 
000018 
000018 
00001E 
00001F 
000020 
000024 
000028 
00002C 
00002D 
00002E 
00002F 
000030 
000034 
000038 
000040 
0000448 
000048 
00004A 
000050 


000000 
000000 
000001 
000004 
000005 
000008 
00000A 
000000 
000010 
000014 
000016 
000018 
000018 
00001E 
00001F 
000020 
000024 
000028 
000020 
00002D 
00002E 
00002F 
000030 
000034 
000038 
00003A 
00003E 
00003F 
000040 
000048 


FILECDI 


TABAD 


CCWAD 


10A1 


FILECDO1 


TABAD 


CCWAD 
IOA1 


START 


START 
DC 
DC 


0 

X'C2' 

AL3 (TABAD) 
x'01' 


0Dp'0' 
X'000080000000* 
AL1 (0) 

AL1 (0) 

A (CCWAD) 

4x*00' 

V (IJCFZIZO) 
x'02' 

AL1 (1) 

AL1 (2) 

AL1 (2) 

A (IOA1) 

V (IJKTXCF) 
2,I0A1,x'20',80 
0 

0 

X'0000* 


O0p'O* 


0 

X'A2' 

AL3 (TABAD) 
x'01' 

AL3 (0) 
x'0000' 
H'0' 

A (0) 

A (IOA1) 
H'0' 

H'O’ 

0D'0' 
X'000080000000' 
AL1 (0) 

AL1 (0) 

A (CCWAD) 
4x"00' 

V (IJCFZOIO) 
x'0u* 

AL1 (16) 
AL1 (65) 
AL1 (65) 

A (I0A1) 
CL4' ' 

0 

0 

x"00" 

C" 


65,IOA1,X'20',80 


0D'0* 


CARD INPUT 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM BYTE 
RECORD LENGTH 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 


RES. COUNT. COM., STATUS BTS 
LOGICAL UNIT CLASS 
LOGICAL UNIT 

CCW-ADDRESS 

CCB-ST BYTE,CSW CCW ADDR. 
ADDR OF LOGIC MODULE 

DTF TYPE (READER) 
SWITCHES 

NORMAL COMM. CODE 

CNTROL COMM. CODE 

ADDR OF IOAREA1 

EOF ADDRESS 


IOAREA 1 


CARD OUTPUT, DEVICE 1442 
OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM BYTE 
RECORD LENGTH 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 


RES. COUNT,COM. BYTE,STATUS BTS 
LOGICAL UNIT CLASS 
LOGICAL UNIT 

CCW ADDRESS 

CCB-ST BYTE,CSW CCW ADDR. 
ADDR OF LOGIC MODULE 

DTF TYPE = PUNCH 

SWITCHES 

NORMAL COMM. CODE 
CONTROL COMM. CODE 

ADDR. OF DATA IN IOAREA1 
BUCKET 


SWITCH 2 
BLANK FOR EJECT LAST PRG. CARD 


IOAREA 1 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000016 
000018 
000018 
00001E 
00001F 
000020 
000024 
000028 
00002C 
00002D 
00002E 
00002F 
000030 
000034 
000038 
00003A 
00003E 
00003F 
000040 
000048 
000050 


000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000016 
000018 
000018 
00001E 
00001F 
000020 
000024 
000028 
00002C 
00002D 
00002E 
00002F 
000030 
000034 
000038 
00003A 
00003E 
00003F 
000040 
000048 
000050 
0000A0 
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FILECDO2 


TABAD 


CCWAD 
IOA1 


FILECDO3 


TABAD 


CCWAD 


IOA1 


START 


0 

X'A2' 

AL3 (TABAD) 
x'01' 

AL3 (0) 
x'0000' 
H'O' 

A (0) 

A (IOA1) 
H'0' 

H'0' 

0D'0' 
x'000080000000' 
AL1 (0) 

AL1 (0) 

A (CCWAD) 
14x00! 

V (IJCFZOZ2) 
x'04" 

AL1 (16) 
AL1 (65) 
AL1 (65) 

A (IOA1) 
CcL4" ' 

0 

0 

x*01 v 

Cc? e 


65,IOA1,X'20',80 


1,*-9,X'20',1 
OD'o* 


0 

X'A2' 

AL3 (TABAD) 
x'01' 

AL3 (0) 
x'0000' 
H'0' 

A (0) 

A (IOA1) 
H'0' 

H'0' 

OD'0! 
X'000084000400' 
AL1 (0) 

AL1 (0) 

A (CCWAD) 
4x'00' 

V (IJCFZOIĻ) 
x'04" 

AL1 (16) 
AL1 (65) 
AL1 (65) 

A (IOA1) 
CLü* ' 

0 

0 

x'00' 

c ' 


65,I0A1,X'20',80 


1,**8,X'20',80 
CL80' ' | 
OD* 0" 





CARD OUTPUT, 2520B1 
OPEN MASK  - 
TABLE ADDRESS 
FLAG BYTE ONE 
CHAIN ADDRESS 
FLAG BYTE TWO, COMM BYTE 
RECORD LENGTH 


O 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 


RES. COUNT,COM. BYTES,STATUS BTS 
LOGICAL UNIT CLASS 
LOGICAL UNIT 

CCW2 ADDRESS 

CCB-ST BYTE,CCW ADDR. 
ADDR. OF LOGIC MOD 

DTF TYPE (PUNCH) 
SWITCHES 

NORMAL COMM. CODE 
CONTROL COMM. CODE 

ADDR. OF DATA IN IOAREA1 
BUCKET 


SWITCH 2 
BLANK FOR EJECT LAST PRG. CARD 


FOR EJECT LAST PROG. CARD 
IOAREA 1 


23 


a. 


a 


CARD OUTPUT,DEVICE 2540 
OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM BYTE 
RECORD LENGTH 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 


RES. COUNT,COM. BYTE,STATUS BTS 
LOGICAL UNIT CLASS 
LOGICAL UNIT 

CCW ADDRESS 

CCB-ST BYTE,CSW CCW ADDR. 
ADDR OF LOGIC MODULE 

DTF TYPE = PUNCH 

SWITCHES 

NORMAL COMM. CODE 
CONTROL COMM. CODE 

ADDR. OF DATA IN IOAREAT 
BUCKET 


SWITCH 2 
BLANK FOR EJECT LAST PRG. CARD 


FOR PUNCH ERROR RETRY 
AREA FOR SAVE CARD IMAGE 
IOAREA1 
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000000 
000000 
006001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000016 
000018 
000018 
00001E 
00001F 
000020 
000024 
000028 
00002C 
00002D 
00002E 
00002F 
000030 
000034 
000038 
00003A 
00003E 
000040 
000048 


000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000€ 
000010 
000014 
000016 
000018 
00001A 
00001C 
000020 
000020 
000026 
000027 
000028 
00002C 
000030 
000034 
000035 
000036 
000037 
000038 
00003C 
000040 
000042 
000046 
000048 
000050 
000051 


FILEPRR 


TABAD 


CCWAD 
IOA1 


FILEPRP 


TABAD 


CCWAD 


IOA1 


START 


START 


0 

X'A2' 

AL3 (TABAD) 
x*'09' 

AL3 (0) 
X'0000* 
H'00' 

A (0) 

A (IOA1) 
H'0' 

H*0' 

OD'0! 
X¥*000084000400! 
AL1 (0) 

AL1 (0) 

A (CCWAD) 
ux'oo! 

V (IJDFZPZZ) 
Xx'08' 

AL1 (16) 
x'09' 
x'09' 

A (IOA1) 
4X*00' 

0 

0 

2x'00' 


9,10A1,x'20',120 


0D'0" 


0 

X'A2' 

AL3 (TABAD) 
X'0D' 

AL3 (0) 
x"0000" 
gro" 

A (0) 

A (I0A1-1) 
H'O! 

H'O' 

H'O! 

H'O' 


0D'0" 
x'000080000000' 
AL1 (0) 

AL1 (0) 

A (CCWAD) 

LX*00' 

V (IJDFAZZZ) 
x*08' 


A (IOA1) 
4x'00' 
0 
0 
2X'00' 


9,I0A1,x'20',120 


X'00' 
oc'o' 


PRINTER, RECORD ORIENTED 
OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 


RES. CNT, COM. BYTES, STATUS BTS 
LOGICAL UNIT CLASS 

LOGICAL UNIT 

CCW ADDR. 

CCB-ST BYTE,CSW CCW ADDRESS 
ADDRESS OF LOGIC MODULE 

DTF TYPE (PRINTER) 

SWITCHES 

NORMAL COMM. CODE 

CONTROL COMM. CODE 

ADDRESS OF DATA IN IOAREA1 
BUCKET 


NOT USED 


PRINTER WITH PRINT OPTION 
OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 
PAGE SIZE 
CURRENT LINE 


RES. COUNT, COM. BYTES, STATUS BTS 
LOGICAL UNIT CLASS 

LOGICAL UNIT 

CCW ADDR. 

CCB-ST BYTE,CSW CCW ADDRESS 
ADDRESS OF LOGIC MODULE 

DTF TYPE (PRINTER) 

SWITCHES 

NORMAL COMM. CODE 

CONTROL COMM. CODE 

ADDRESS OF DATA IN IOAREA1 
BUCKET 


NOT USED 


CONTROL CHARACTER FIELD 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000010 
000016 
000017 
000018 
00001C 
000020 
000024 
000025 
000026 
000028 
00002A 
00002C 
00002D 
000030 
000038 
00003C 
00003D 
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FILETAUN START 


TABAD 


CCWAD 





DC 
DC 
DC 
DC 


DC 


DC 
DC 
DC 
DC 
DC 


0 . 

x'83 

AL3 (TABAD) 
x*'01' 

AL3 (0) 

X*4600! 

H'Ó* 
x'40000000" 
0D'0* 
x'000082000000' 
AL1 (0) 

AL1 (0) 

ALL (CCWAD) 

4x' 00" 

V (IJFWEZZZ) 
x'10' 

AL1 (32) 

x'0000* 

H'0' 

H'0' 

x'02' 

AL3 (IJKTXCF) 
AOL 
pro! 

AL1 (128) 

AL3 (IJKTXCR) 
IJKTXCF,IJKTXCR 





TAPE UNBUFFERED FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 


CCB 

LOGICAL UNIT CLASS 

LOGICAL UNIT 

CCW ADDRESS 

CCB-ST BYTE,CSW CCW ADDRESS 
ADDR OF LOGICAL MODULE 

DTF TYPE | 
LOGICAL INDICATORS 


RECORD LENGTH 

BLOCKSIZE 

READ OP CODE 

END OF FILE ADDRESS 
CHANNEL PROGRAM 

BLOCK COUNT 

READ ERROR OPTION INDIC. 
READ ERROR ROUTINE 


+ 
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000000  FILEDIUN START 0 DISK UNBUFFERED FILE, NO UPDATE 
000000 DC x'83' OPEN MASK 
000061 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC x'01' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'4600' FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC A (0) 
000010 DC 0D'0' 
000010 TABAD DC X'000082000000" CCB 
000016 DC X'FFFF' CCB-LOGICAL UNIT 
000018 DE A (CCWAD) CCB-CCW ADDRESS 
00001C DC 4X*00' CCB-ST BYTE,CSW CCW ADDRESS 
000020 DC V (IJGWEZZZ) LOGIC MODULE ADDRESS 
000024 DC x'20' DTF TYPE 
000025 DC AL1 (32) OPEN/CLOSE INDICATORS 
000026 DC CL8'FILEDIUN' FILENAME 
00002E DC H'3625' TRACK CAPACITY COUNTER 
000030 DC 7x'00' 
000037 DC x'09' UPPER HEAD LIMIT 
000038 DC H'0' RECORD LENGTH 
00003A DC 14x*00' 
000048 DC X'0000FF00' SEARCH ADDRESS-CCHH 
00004C DC 2x'00' 
00004E DC H'0' MAXIMUM RECORD LENGTH 
000050 DC AL1 (32) VERIFY CHAIN BIT 
000051 DC AL3 (IJKTXCF) EOF ADDRESS 
000054 DC AL1 (128) LOGICAL INDICATORS 
000055 DC AL3 (IJKTXCR) USER'S ERROR ROUTINE 
000058  CCWAD CCW 7,*-18,60,6 SEEK 
000060 CCW X'31',*-24,64,5 SEARCH ID EQUAL 
000068 CCW 8,*-8,0,0 TIC 
000070 CCW 3,*,32,1 WRITE CKD OR READ DATA 
000078 CCW 5,*,32,1 WRITE DATA/READ COUNT 
000080 CCW X'31',*-56,64,5 SEARCH ID EQUAL 
000088 CCW 8,*-8,0,0 TIC 
000090 CCW X'1E*,*+16,48,8 VERIFY 
000098 CCW X'12',**8,0,8 READ COUNT 
0000A0 DC X'0000000001000000* COUNT AREA 

EXTRN IJKTXCF,IJKTXCR 

END 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000018 
000018 
00001E 
000020 
000024 
000028 
000020 
00002D 
00002E 
000036 
000038 
00003F 
000040 
000042 
000050 
000054 
000056 
000058 
000059 
000050 
00005D 
000060 
000068 
000070 
000078 
000080 
000088 
000090 
000098 
0000A0 
0000A8 
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FILEDIUU 


TABAD 


CCWAD 


START 
DC 
DC 
DC 
DC 


"DC 


DC 
DC 
DC 


EXTRN 
END 


0 


X'9B' *. 
AL3 (TABAD) 
X'01*' 

AL3 (0) 
X'4600' 
4:0" 

A (0) 

A (0) 


0D'0' 
X'000082000000' 
X'FFFF' 

A (CCWAD) 

4x*00' 

V (IJGWEZZZ) 
x'20* 

AL1 (32) 
CL8'FILEDIUU' 
H*3625' | 
7X'00* 

x'09' 

H'0' 

14%x*00' 
X'0000FFO00' 
2X'00' 

H'0' 

AL1 (32) 

AL3 (IJKTXCF) 

AL1 (128) 

AL3 (IJKTXCR) 
7,*-18,64,6 
X'31',*-20,60,5 
8,*-8,0,0 
*,32,1 

*,32,1 
31',*-56,60,5 
,*-8,0,0 
X'1E',*+16,18,8 
X'12',*+8,0,8 


, 
, 
[4 
0 


3 
5 
X 
8 


X'0000000001000000' 


IJKTXCF,IJKIXCR 





DISK UNBUFFERED FILE, WITH UPDATE 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 


CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

CCB-ST BYTE,CSW CCW ADDRESS 
LOGIC MODULE ADDRESS 

DTF TYPE 

OPEN/CLOSE INDICATORS 
FILENAME 

TRACK CAPACITY COUNTER 


UPPER HEAD LIMIT 
RECORD LENGTH 


SEARCH ADDRESS-CCHH 


MAXIMUM RECORD LENGTH 
VERIFY CHAIN BIT 

EOF ADDRESS | 
LOGICAL INDICATORS 
USER'S ERROR ROUTINE 
SEEK 

SEARCH ID EQUAL 

TIC 

WRITE CKD OR READ DATA 
WRITE DATA/READ COUNT 
SEARCH ID EQUAL 

TIC 

VERIFY 

READ COUNT 

COUNT AREA 


A N 
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000000 FILETAFI START 0 TAPE FILE FIXED INPUT 
000000 DC x'C2' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC x'01* FLAG BYTE ONE 
000005 DC AL3(0) CHAIN ADDRESS 
000008 DC x'0000" FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC x'u0000000' | 
000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC H'0' REMAINING DATA 
000016 DC H'0' DATA LENGTH 
000018  TABAD DC 0D'0' 
000018 DC X'000082000000' CCB 
00001E DC AL1 (0) LOGICAL UNIT CLASS 
00001F DC AL1 (0) LOGICAL UNIT 
000020 DC ALL (CCWAD) CCW ADDRESS 
000024 DC Lx*00' CCB-ST BYTE,CSW CCW ADDRESS 
000028 DC ^ V(IJFFZZZZ) ADDRESS OF LOGICAL MODULE 
00002C DC x'11' DTF TYPE | 
00002D DC AL1 (8) LOGICAL IOCS SWITCHES 
00002E DC CL8'FILETAFI" FILE NAME 
000036 DC x"0200* 
000038 DC AL1 (0) SWITCH ONE FOR OPEN AND CLOSE 
000039 DC AL3 (0) 
00003C DC AL1 (32) SWITCH TWO FOR OPEN AND CLOSE 
00003D DC AL3 (IJKTXCF) EOF-ADDRESS 
000040 DC F'0' BLOCKCOUNT 
000044 BXH 11,12,24 (15) DEBLOCKING FORWARD 
000048 LA 14,1 (14) INCREASE BLOCKCOUNT BY ONE 
00004C n 2,IJF2-TABAD (1) LOAD USER REGISTER 
000050 CCWAD CCW X'02',IOA1,X'00',0 
000058 DC A (IOA1) ADDRESS OF IOAREA 
00005C  IJF2 DC F'0' DEBLOCKER 1 | 
000060 DC F'0' DEBLOCKER 2 
000064 DC F'0' DEBLOCKER 3 
000068 DC Y (0) | BLOCKSIZE 
00006A DC Y (0) | BLOCKSIZE-1 
00006C DC Y (0) RECSIZE-1 
00006E DC H'0' NOT USED 
000070 DC A (IJKTXCW) WLR-ADDRESS 
000074 DC A (IJKTXCR) ERROR EXIT 
000078 #IOA1 DC 0p'0' 
EXTRN IJKTXCF,IJKTXCW,IJKTXCR 
END 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000016 
000018 
000018 
00001E 
00001F 
000020 
000024 
000028 
00002C 
00002D 
00002E 
000036 
000038 
000039 
00003C 
00003D 
000040 
000044 
000048 
00004C 
000050 
000058 
00005C 
000060 
000064 
000068 
00006A 
00006C 
00006E 
000070 
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FILETAFO START 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

TABAD DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
BXH 
LA 


L 
CCWAD CCW 
DC 
IJF2 DC 
DC 
DC 
DC 
DC 
DC 


IOA1 DC 
END 


0 


X'A2' 


AL3 (TABAD) 
x'01' 

AL3 (0) 
x*0000' 

H'O0' 
X'40000000' 

A (IOA1) 

H'0' 

H'0' 

0D*0' 
X'000080000000' 
AL1 (0) 

AL1 (0) 

ALU (CCWAD) 
üx* 00* 

V (IJFFZZ2Z) 
X111" 

AL1 (0) 
CL8'FILETAFO' 
X'0100* 

AL1 (0) 

AL3 (0) 

AL1 (0) 

AL3 (*) 

F'0' 

11,12,24 (15) 
14,1 (14) 
2,IJF2-TABAD (1) 


X'01',IOA1,X'00'*,0 


A (IOA1) 
A (IOA1) 
F'0' 

A (IOA1- 1) 
Y (0) 

Y (0) 

Y (0) 


0D*0' 


TAPE FILE FIXED OUTPUT 
OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 


CCB 

LOGICAL UNIT CLASS 

LOGICAL UNIT 

CCW ADDRESS 

CCB-ST BYTE,CSW CCW ADDRESS 
ADDRESS OF LOGICAL MODULE 
DTF TYPE 

LOGICAL IOCS SWITCHES 

FILE NAME 


SWITCH ONE FOR OPEN AND CLOSE 


SWITCH TWO FOR OPEN AND CLOSE 
EOF-ADDRESS 

BLOCKCOUNT 

DEBLOCKING FORWARD 

INCREASE BLOCKCOUNT BY ONE 
LOAD USER REGISTER 


DEBLOCKER 1 
DEBLOCKER 2 
DEBLOCKER 3 
BLOCKSIZE 
BLOCKSIZE- 1 
RECSIZE-1 


2 3 


e 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000016 
000018 
00001A 
00001C 
000020 
000020 
000026 
000027 
000028 
00002C 
000030 
000034 
000035 
000036 
00003E 
000040 
000041 
000044 
000045 
000048 
00004C 
000050 
000054 
000058 
000060 
000064 
000068 
00006C 
000070 
000072 
000074 
000076 
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FILETASP 


TABAD 


CCWAD 


IJF2 


IOA1 


START 


0 

X'A2' 

AL3 (TABAD) 
x*OD' 

AL3 (0) 
x'C000' 
H'0' 
X'u0000000' 
A (IOA1) 
H'0' 

H'0' 

H'0' 

H'O" 


0D'0' 
x'000080000000" 
AL1 (0) 

AL1 (0) 

ALU (CCWAD) 
4x*00' 

V (IJFFZ222) 
x'11' 

AL1 (0) 
CL8'FILETASP' 
X'0100* 

AL1 (0) 

AL3 (0) 

AL1 (0) 

AL3 (*) 

F'0' 

11,12,24 (15) 
14,1 (14) 
2,IJF2-TABAD (1) 


X'01',IOA1,X'00',0 


A (IOA1) 

A (IOA1) 
F'0' 

A (IOA1- 1) 
Y (0) 

Y (0) 

Y (0) 
OH'0' 


TAPE STREAM FILE WITH PRINT OPTION 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 
PAGE SIZE 
CURRENT LINE 


CCB 

LOGICAL UNIT CLASS 

LOGICAL UNIT 

CCW ADDRESS 

CCB-ST BYTE,CSW CCW ADDRESS 
ADDRESS OF LOGICAL MODULE 
DTF TYPE 

LOGICAL IOCS SWITCHES 

FILE NAME 


SWITCH ONE FOR OPEN AND CLOSE 


SWITCH TWO FOR OPEN AND CLOSE 


EOF-ADDRESS 

BLOCKCOUNT 

DEBLOCKING FORWARD 
INCREASE BLOCKCOUNT BY ONE 
LOAD USER REGISTER 


DEBLOCKER 1 
DEBLOCKER 2 
DEBLOCKER 3 
BLOCKSIZE 
BLOCKSIZE-1 
RECSIZE-1 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000016 
000018 
000018 
00001E 
00001F 
000020 
000024 
000028 
00002C 
00002D 
00002E 
000036 
000038 
000039 
00003C 
00003D 
000040 
000044 
000048 
00004A 
00004C 
000050 
000058 
00005C 
000060 
000064 
000068 
00006A 
00006C 
00006E 
000070 
000074 
000078 
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FILETAFB 


TABAD 


CCWAD 


IJF2 


IOA1 


START 


DC 
DC 
DC 


0 

X'C2' 

AL3 (TABAD) 
X'05' 
AL3 (0) 
x"4500" 
H'O' 


x'40000000' 


A (IOA1) 
H'0! 
H'0' 
0D'0* 


x'000082000000' 


AL1 (0) 
AL1 (0) 
A (CCWAD) 
1x*00* 


V (ITJFFBZZZ) 


x'11' 
AL1 (8) 


CL8'FILETAFB' 


X'0coo* 
AL1 (0) 
AL3 (0) 
AL1 (32) 


AL3 (IJKTXCF) 


F'o?* 


11,12,24 (15) 


14,0 
0 


2,IJF2-TABAD (1) 
X'OC',IOA1,X'00',0 


A (IOA1) 

A (IOA1) 
F*0' 

A (IOA1) 

Y (0) 

Y (0) 

Y (0) 

H'O" 

V (IJKTXCW) 
V (IJKTXCR) 
0D'0' 
IJKTXCF 


TAPE FILE BACK FIXED RECORDS p 
OPEN MASK e 
TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 


CCB 

LOGICAL UNIT CLASS 

LOGICAL UNIT 

CCW ADDRESS 

CCB-ST. BYTE, CSW CCW ADDRESS 
ADDRESS OF LOGICAL MODULE 

DTF TYPE 

LOGICAL IOCS SWITCHES 

FILE NAME 


SWITCH ONE FOR OPEN AND CLOSE 
SWITCH TWO FOR OPEN AND CLOSE 
EOF-ADDRESS 

BLOCKCOUNT 

DEBLOCKING BACKWARD 

DECREASE BLOCKCOUNT BY ONE 
LOAD USER REGISTER 


ADDRESS OF IOAREA 


DEBLOCKER 1 A 
2 Ni. 7 
3 

BLOCKSIZE 

BLOCKSIZE+1 


RECORDSIZE- 1 


WLR-ADDRESS 
ERROR EXIT 





PL/I PLM 8 


IBM Confidential 


000000 FILETAVI START 0 TAPE INPUT FILE VARIABLE RECORDS 





000000 DC X'C2' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC x'11' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'4500' FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC x"40000000" 
000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC aro" REMAINING DATA 
000016 DC H'0' DATA LENGTH 
000018  TABAD DC 0D'0" 
000018 DC X'000082000000* CCB 
00001E DC AL1 (0) LOGICAL UNIT CLASS 
00001F DC AL1 (0) LOGICAL UNIT 
000020 DC ALU (CCWAD) CCW ADDRESS 
000024 DC 4x'00' CCB-ST BYTE,CSW CCW ADDRESS 
000028 DC V (IJFVZZZZ) ADDRESS OF LOGICAL MODULE 
00002C DC x'11*' DTF TYPE 
00002D DC AL1 (72) LOGICAL IOCS SWITCHES 
00002E DC CL8'FILETAVI' FILE NAME 
000036 DC X'0200' INPUT 
000038 DC AL1 (0) SWITCH ONE FOR OPEN AND CLOSE 
000039 DC AL3 (0) 
00003C DC AL1 (32) SWITCH TWO FOR OPEN AND CLOSE 
00003D DC AL3 (IJKTXCF) EOF-ADDRESS 
000040 DC F'0' BLOCKCOUNT 
000044 NOP 0 (0) 
000048 LA 14,1 (14) INCREASE BLOCKCOUNT BY ONE 
00004C L 2,IJFU-TABAD (1) LOAD USER IOREG 
000050 CCWAD CCW X'02',IOA1,X'00*',0 
000058 DC A (IOA1) ADDRESS OF IOAREA 
00005C IJF3 DC F'o' 
000060 IJF2 DC A (IOA1) DEBLOCKER 3, 
000064 DC 2F'0! 4,5, 
00006€ IJF4 DC A (I0A1+4) ; 
000070 DC E*0* 6 
000074 DC Y (0) BLOCKSIZE 
000076 DC y (0) BLOCKSIZE- 1 
000078 DC Y (0) 
00007A DC H'0' 
00007C DC V (IJKTXCW) WLR-ADDRESS 
000080 DC V (IJKTXCR) ERROR EXIT 
000084 
000088  I0A1 DC OD'0! 
EXTRN IdJKTXCF 
END 
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000000 FILETAVO START 0 TAPE OUTPUT FILE VARIABLE RECORDS 


000000 DC X'A2' OPEN MASK A 
000001 DC AL3 (TABAD) TABLE ADDRESS R 
000004 DC x'11' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'u500* FLAG BYTE TWO, COMM. BYTE 
00000A DC H'O' | RECORD LENGTH 
00000C DC X'40000000! 
000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC H'0' REMAINING DATA 
000016 DC H'O* DATA LENGTH 
000018 TABAD DC 0p'0' 
000018 DC x'000080000000' CCB 
00001E DC AL1 (0) LOGICAL UNIT CLASS 
00001F DC AL1 (0) LOGICAL UNIT 
000020 DC A (CCWAD) CCW ADDRESS 
000024 DC x"0000" CCB-ST BYTE, CSW CCW ADDRESS 
000026 
000028 DC V (IJFVZZZZ) ADDRESS OF LOGICAL MODULE 
00002C DC x'11' DTF TYPE 
00002D DC AL1 (64) LOGICAL IOCS SWITCHES 
00002E DC CL8'FILETAVO' FILE NAME 
000036 DC x'0100' OUTPUT 
000038 DC AL1 (0) SWITCH ONE FOR OPEN AND CLOSE 
000039 DC AL3 (0) USER LABEL ROUTINE 
00003C DC AL1 (0) SWITCH TWO FOR OPEN AND CLOSE 
00003D DC AL3 (*) EOF-ADDRESS 
000040 DC F'0' BLOCKCOUNT 
000044 t 3,IJF3-TABAD (1) 
000048 LA 14,1 (14) INCREASE BLOCKCOUNT BY ONE 
00004C L 2,IJF4-TABAD (1) 
000050  CCWAD CCW X'01',IOA1,X'00',0 
000058 DC A (IOA1) ADDRESS OF IOAREA 
00005C IJF3 DC F'0' ah 
000060  IJF2 DC A (IOA1) DEBLOCKER 3, feu 
000064 DC 2F'0' | 4,5, 
00006C IdF4 DC A (IOA1+4) Ta 
000070 DC For 6 
000074 DC Y (0) BLOCKSIZE-4 
000076 DC Y (0) BLOCKSIZE- 1 
000078 DC Y (0) 
00007A 
000080 IOA1 DC 0p'0' 
END 
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m. 


000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000016 
000018 
000018 
00001E 
00001F 
000020 
000024 
000028 
00002C 
00002D 
00002E 
000036 
000038 
000039 
00003C 
00003D 
000040 
000044 
000048 
00004C 
000050 
000058 
00005C 
000060 
000064 
000066 
000068 
00006A 
00006C 
000070 


FILETAUI 


TABAD 


IJFU 


CCWAD 


IJF2 


IOA1 


START 
DC 
DC 
DC 


0 
Xx EZ” 


AL3 (TABAD) 


x'31' 
AL3 (0) 
X'4500* 
H'0' 


x'40000000' 


A (IOA1) 
H'0' 
H'O" 
0D'0" 


X*000082000000' 


AL1 (0) 
AL1 (0) 


ALU (CCWAD) 


4x*00' 


V (IJFUZZZ2Z) 


x'11' 
AL1 (8) 


CL8'FILETAUI' 
x'0200* 


AL1 (0) 
AL3 (0) 
AL1 (32) 


AL3 (IJKTXCF) 


F'0' 
F'O* 


4,IJF4-TABAD (1) 
2, IJF2-TABAD (1) 
X'00',I10A1,X'00*,0 


A (IOA1) 
A (IOA1) 


14,1 (14) 


Y (0) 
Y (0) 
0 

H'0' 


V (IJKTXCR) 


Op'O* 


IJKTXCR,IJKTXCF 


TAPE INPUT FILE UNDEFINED RECORDS 
OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 

RECORD LENGTH 


BUFFER [ADDRESS 
REMAINING DATA 
DATA LENGTH 


CCB 

LOGICAL UNIT CLASS 

LOGICAL UNIT 

CCW ADDRESS 

CCB-ST. BYTE, CSW CCW ADDRESS 
ADDRESS OF LOGICAL UNIT 

DTF TYPE 

LOGICAL IOCS SWITCHES 

FILE NAME 


SWITCH ONE FOR OPEN ADN CLOSE 


SWITCH TWO FOR OPEN AND CLOSE 
EOF-ADDRESS 

BLOCKCOUNT 

DEBLOCKER 1 

GIVE USER RECSIZE 

LOAD USER IOREG 


DEBLOCKER 2 
CHANGE BLOCKCOUNT 
BLOCKSI ZE 
BLOCKSIZE- 1 


ERROR EXIT 
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000000 FILETAUO START 0 TAPE OUTPUT FILE UNDEFINED RECORDS 


000000 DC X'A2' OPEN MASK de 
000001 DC AL3 (TABAD) TABLE ADDRESS > 
000004 DC x'31' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC X'4500* FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC X'40000000* | 
000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC H'0' REMAINING DATA 
000016 DC H'0' DATA LENGTH 
000018  TABAD DC 0D*0' 
000018 DC X'000080000000' CCB 
00001E DC AL1 (0) LOGICAL UNIT CLASS 
00001F DC AL1 (0) LOGICAL UNIT 
000020 DC AL! (CCWAD) CCW ADDRESS 
000024 DC 4x*00' CCB-ST. BYTE, CSW CCW ADDRESS 
000028 DC V (IJFUZZZZ) ADDRESS OF LOGICAL MODULE 
00002C DC x'11' DTF TYPE 
00002D DC AL1 (0) | LOGICAL IOCS SWITCHES 
00002E DC CL8'FILETAUO" FILE NAME 
000036 DC X'0100* OUTPUT 
000038 DC AL1 (0) SWITCH ONE FOR OPEN AND CLOSE 
000039 DC AL3 (0) | 
00003C DC AL1 (0) SWITCH TWO FOR OPEN AND CLOSE 
00003D DC AL3 (0) EOF-ADDRESS 
000040 DC F'0' BLOCKCOUNT 
000084 . IJFU DC F'0' DEBLOCKER 1 
000048 NOP 0 (0) 
00004C L 2,IJF2-TABAD (1) LOAD USER IOREG 
000050  CCWAD CCW X'01',IOA1,X'00*',0 
000058 DC A (IOA1) 
00005C  IJF2 DC A (IOA1) DEBLOCKER 2 ES 
000060 LA 14, 1 (14) CHANGE BLOCKCOUNT y 
000064 DC Y (0) BLOCKSIZE — 
000066 DC Y (0) BLOCKSIZE- 1 
000068 LR 12,4 PICK UP RECSIZE 
00006A 
000070  IOA1 DC 0D'0* 
END 
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000000  FIDIINFI START 0 DISK FILE 
000000 DC X'C2' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC x'01* FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'0000* FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC x'80000000* 
000010 DC A (IOA1) BUFFER ADDRESS 
000018 DC H'0' REMAINING DATA 
000016 DC H'0' DATA LENGTH 
000018  TABAD DC oD'0' 
000018 DC X'000082000000* CCB 
00001E DC X'FFFF' CCB-LOGICAL UNIT 
000020 DC A (CCWAD) CCB-CCW ADDRESS 
000024 DC 4x*00' XXB-ST BYTE,CSW CCW ADDRESS 
000028 DC V (IJGFIEZZ) ŁOGIC MODULE 
00002C DC x'20' DTF TYPE 
00002D DC AL1 (2) OPEN/CLOSE INDICATOR 
00002E DC CL8'FIDIINFI' FILENAME 
000036 DC 8x'00* 
00003E DC x'08' OPEN COMMUNICATIONS BYTE 
00003F DC 2X'00* 
000041 DC AL3 (*) USER'S LABEL ADDRESS 
000044 DC A (IOA1) ADDRESS OF IOAREA 
000048 DC x'80000000' CCHH ADDR OF USER LABEL TRACK 
00004C DC 6x"'00' 
000052 FILENS DC 2x'00* SEEK ADDRESS-BB 
000054 DC X'0000FFO00' SEARCH ADDRESS-CCHH 
000058 DC x'00' RECORD NUMBER 
000059 DC AL3 (IJKTXCF) EOF ADDRESS 
00005C DC Ux'00* CCHH CONTROL FIELD 
000060 DC AL1 (0) CONTROL FIELD 
000061 DC x'00' SWITCHES 
000062 DC H'0' SIZE OF BLOCK-1 
000064 DC 5x*00' CCHHR BUCKET 
000069 DC AL3 (IJKTXCW) WLERR ADDRESS 
00006C L 2,88 (1) LOAD USER'S IOREG 
000070 DC A (IOA1) DEBLOCKER-INITIAL POINTER 
000074 DC F'0' DEBLOCKER-RECORD SIZE 
000078 DC A (IOA1- 1) DEBLOCKER LIMIT 
00007C DC AL1 (128) LOGICAL INDICATORS 
00007D DC AL3 (IJKTXCR) USER'S ERROR ROUTINE 
000080 | CCWAD CCW 7,*-46,64,6 SEEK 
000088 CCW X'31",*-52,684,5 SEARCH ID EQUAL 
000090 CCW 8,*-8,0,0 TIC 
000098 CCW 6,I0A1,0,0 READ DATA 
0000A0 IOA1 DC 0D*0' 
EXTRN  IJKTXCF,IJKTXCW, IJKTXCR 
END 
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000000  FIDIINVA START 0 DISK FILE = 
000000 DC x'c2¢ OPEN MASK Bos 
000001 DC AL3 (TABAD) TABLE ADDRESS ws 
000004 DC x'11' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS | 
000008 DC x'0000" FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC X'80000000' 
000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC H'O" REMAINING DATA 
000016 DC H*0' DATA LENGTH 
000018  TABAD DC OD'0' 
000018 DC X¥*000082000000! CCB 
00001E DC X'FFFF' CCB-LOGICAL UNIT 
000020 DC A (CCWAD) CCB-CCW ADDRESS 
000024 DC 4x*00' XXB-ST BYTE,CSW CCW ADDRESS 
000028 DC V (IJGVIEZZ) LOGIC MODULE 
00002C DC x'20' DTF TYPE 
00002D DC AL1 (66) OPEN/CLOSE INDICATOR 
00002E DC CL8'FIDIINVA' FILENAME 
000036 DC 8x'00* 
00003E DC x'08' OPEN COMMUNICATIONS BYTE 
00003F DC 2x*'00' 
000041 DC AL3 (*) USER'S LABEL ADDRESS 
000044 DC A (IOA1) ADDRESS OF IOAREA 
000048 DC X'80000000* CCHH ADDR OF USER LABEL TRACK 
00004C DC 6X"00" 
000052  FILENS DC 2x'00* SEEK ADDRESS-BB 
000054 DC X'0000FF00' SEARCH ADDRESS-CCHH 
000058 DC x'00*' RECORD NUMBER 
000059 DC AL3 (IJKTXCF) EOF ADDRESS 
00005C DC 4x100" CCHH CONTROL FIELD 
000060 DC X'FF' CONTROL FIELD PN 
000061 DC x'00' SWITCHES e 
000062 DC H'0' SIZE OF BLOCK-1 -— 
000064 DC 5x*00' CCHHR BUCKET 
000069 DE AL3 (IJKTXCW) WLERR ADDRESS 
00006C L 2,88 (1) LOAD USER'S IOREG 
000070 DC A (IOA1+4) DEBLOCKER-INITIAL POINTER 
000074 DC F'0* DEBLOCKER-RECORD SIZE 
000078 DC A (IOA1- 1) DEBLOCKER LIMIT 
00007C DC ALt (128) LOGICAL INDICATORS 
00007D DC AL3 (IJKTXCR) USER'S ERROR ROUTINE 
000080 . CCWAD CCW 7,*-46,684,6 SEEK 
000088 CCW X'31',*-52,60,5 SEARCH ID EQUAL 
000090 CCW 8,*-8,0,0 TIC 
000098 CCW 6,I0A1,64,0 READ DATA 
0000A0 CCW X'92',**8,0,8 READ COUNT 
0000A8 DC 2F'0' COUNT AREA 
0000B0  IOA1 DC 0D'0" 
EXTRN IJKTXCF,IJKTXCW, IJKTXCR 
END 
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000000 FIDIINUN START 0 DISK FILE 

000000 dc X'c2' OPEN MASK 

000001 DC AL3 (TABAD) TABLE ADDRESS 

000004 DC x'31' FLAG BYTE ONE 

000005 DC AL3 (0) CHAIN ADDRESS 

000008 DC X'0000* FLAG BYTE TWO, COMM. BYTE 
00000A DE H'0' RECORD LENGTH 

00000C DC X'80000000' 

000010 DC A (IOA1) BUFFER ADDRESS 

000014 DC H'O" REMAINING DATA 

000016 DC H'0' DATA LENGTH 

000018  TABAD DE OD'0! 

000018 BE X'000082000000' CCB 

00001E DC X'FFFF' CCB-LOGICAL UNIT 

000020 DE A (CCWAD) CCB-CCW ADDRESS 

000024 DC Lx*00' XXB-ST BYTE,CSW CCW ADDRESS 
000028 DC V (IJGUIEZZ) LOGIC MODULE 

00002C DC x'20' DTF TYPE 

00002D DC AL1 (2) OPEN/CLOSE INDICATOR 
00002E DC CL8'FIDIINUN' FILENAME 

000036 DC 8X'00* 

00003E DC X'08' OPEN COMMUNICATIONS BYTE 
00003F DC 2X'00* 

000041 DC AL3 (*) USER'S LABEL ADDRESS 
000044 DC A (IOA1) ADDRESS OF IOAREA 

000048 DC X*80000000! CCHH ADDR OF USER LABEL TRACK 
00004C DC 6x'00' 

000052 FILENS DC 2x'00' SEEK ADDRESS-BB 

000054 DC X'0000FFO0O' SEARCH ADDRESS-CCHH 
000058 DE x*'00' RECORD NUMBER 

000059 DC AL3 (IJKTXCF) EOF ADDRESS 

00005C DC Lx*00' CCHH CONTROL FIELD 
000060 DC X'FF' CONTROL FIELD 

000061 DC x'00* SWITCHES 

000052 DC H'0' | SIZE OF BLOCK-1 

000064 DC 5x'00' CCHHR BUCKET 

000069 DC 3x*00' 

00006C L 2,88 (1) LOAD USER'S IOREG 

000070 DC A (IOA1) DEBLOCKER-INITIAL POINTER 
000074 L 4,96 (1) 

000078 DC A (IOA1- 1) DEBLOCKER LIMIT 

00007C DC ALT (128) LOGICAL INDICATORS 
00007D DC AL3 (IJKTXCR) USER'S ERROR ROUTINE 
000080 . CCWAD CCW 7,*-46,64,6 SEEK 

000088 CCW X'31',*-52,61,5 SEARCH ID EQUAL 

060090 CCW 8,*-8,0,0 TIC 

000098 CCW 6,I0A1,96,0 READ DATA 

0000A0 CCW X'92',*+8,0,8 READ COUNT 

0000A8 DC 2F'0' COUNT AREA 

0000B0 IOA1 DC OD'0! 


EXTRN IJKTXCF 
EXTRN IJKTXCR 
END 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
000010 
000014 
000016 
000018 
000018 
00001E 
000020 
000024 
000028 
00002C 
00002D 
00002E 
000036 
00003E 
00003F 
000041 
000044 
000048 
00004C 
000052 
000054 
000058 
000059 
00005A 
00005C 
000060 
000061 
000062 
000064 
000069 
00006A 
00006C 
000070 
000074 
000078 
00007C 
00007D 
000080 
000088 
000090 
000098 
0000A0 
0000A8 
000080 
0000B8 
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FIDIOUFI 


TABAD 


FILENS 


CCWAD 


IOA1 


START 


0 
X'A2' 


AL3 (TABAD) 


x'01' 
AL3 (0) 
X'0000' 
H'0' 


X*80000000' 
A (LOA1*8) 


H'0' 
H'0' 
0D'0* 


x'000082000000' 


X'FFFF' 


A (CCWAD) 


Ux'00' 


V (IJGFOEZZ) 


x'20' 
AL1 (0) 


CL8'FIDIOUFI' 


8x'00' 
x'08' 
2X'00' 
AL3 (*) 
A (IOA1) 


x'80000000' 


ex'00' 
2x'C0' 


x'0000rr00' 


x'00' 
X'00' 
H'0' 
4x'00' 
AL1 (0) 
x'00' 
H'0' 
5x'00' 
x'00' 
H'3625' 
2,88 (1) 


A (IOA1*8) 


F'0' 


A (IOA1-1) 

AL1 (128) 

AL3 (IJKTXCR) 

7,*-46, 64,6 
X'31',*-52,64,5 
8,*-8,0,0 

X' 1D' , I0A1,0,0 
X'31',FILENS+2,64,5 
8,*-8,0,0 

30,*,48,1 


0D'0" 


IJKTXCR 
IJKTXCF 





DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 


BUFFER ADDRESS 
REMAINING DATA 
DATA LENGTH 


CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 
LOGIC MODULE 

DIF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 


OPEN COMMUNICATIONS BYTE 


USER'S LABEL ADDRESS 
ADDRESS OF IOAREA | 
CCHH ADDR OF USER LABEL TRACK 


SEEK ADDRESS-BB 
SEARCH ADDRESS-CCHH 
RECORD NUMBER 

KEY LENGTH 

DATA LENGTH 

CCHH CONTROL FIELD 
CONTROL FIELD 
SWITCHES 

SIZE OF BLOCK-1 
CCHHR BUCKET 


TRACK CAPACITY CONSTANT 
LOAD USER'S IOREG 
DEBLOCKER-INITIAL POINTER 
DEBLOCKER-RECORD SIZE 
DBLOCKER LIMIT 

LOGICAL INDICATORS 

USER'S ERROR ROUTINE 

SEEK 

SEARCH ID EQUAL 

TIC 

WRITE COUNT, KEY AND DATA 
SEARCH ID EQUAL 

TIC 


* 


y^ 0$ 
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000000 FIDIOUPR START 0 DISK FILE 
000000 DC X'AO' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 


000004 DC X'ODp' FLAG BYTE ONE 

000005 DC AL3 (0) CHAIN ADDRESS 

000008 DC x'0000' FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 

00000C DC X'80000000' 

000010 DC A (10A1+8) BUFFER ADDRESS 

000014 DC H'0' REMAINING DATA 

000016 DC H'0! DATA LENGTH 

000018 DC H'0' PAGE SIZE 

00001A DC H'0' CURRENT LINE 

00001C 

000020 TABAD DC OD'0! 

000020 DC x'000082000000' CCB 

000026 DE X'FFFF' CCB-LOGICAL UNIT 

000028 DC A (CCWAD) CCB-CCW ADDRESS 

00002C DC 4x'00' XXB-ST BYTE,CSW CCW ADDRESS 
000030 DC V (IJGFOEZZ) LOGIC MODULE 

000034 DC x'20' DTF TYPE 

000035 DC AL1 (0) OPEN/CLOSE INDICATOR 
000036 DC CL8'FIDIOUPR' FILENAME 

00003E DC 8x'00' 

000046 DC x'08' OPEN COMMUNICATIONS BYTE 
000047 DC TR EDO 

000049 DE AL3 (*) USER'S LABEL ADDRESS 
00004C DC A (IOA1) ADDRESS OF IOAREA 

000050 DC X'80000000' CCHH ADDR OF USER LABEL TRACK 
000054 DC 6x'00' 

00005A FILENS DC 2x*00' SEEK ADDRESS-BB 

00005C De X'0000FF00' SEARCH ADDRESS-CCHH 
000060 DC X*00* RECORD NUMBER 

000061 DC X590» KEY LENGTH 

000062 DC Ho”! DATA LENGTH 

000064 DC ux'oo' CCHH CONTROL FIELD 
000068 DC AL1 (0) CONTROL FIELD 

000069 DC x'00" SWITCHES 

00006A DC H'0' SIZE OF BLOCK-1 

00006C DC 5x'00' CCHHR BUCKET 

000071 DC x'00' 

000072 DC H'3625' TRACK CAPACITY CONSTANT 
000074 È 2,88 (1) LOAD USER'S IOREG 

000078 DC A (IOA1+8) DEBLOCKER-INITIAL POINTER 
00007C DC F'O' DEBLOCKER-RECORD SIZE 
000080 DC A (IOA1- 1) DEBLOCKER LIMIT 

000084 DC AL1 (128) LOGICAL INDICATORS 
000085 DE AL3 (IJKTXCR) USER'S ERROR ROUTINE 
000088 CCWAD CCW 7,*-46,64,6 SEEK 

000090 CCW X'31',*-52,64,5 SEARCH ID EQUAL 

000098 CCW 8,*-8,0,0 TIC 

0000A0 CCW X'1D',I10A1,0,0 WRITE COUNT, KEY AND DATA 
0000A8 CCW X'31',FILENS+2,64,5 SEARCH ID EQUAL 

0000B0 CCW 8,*-8,0,0 TIC 

0000B8 CCW 30,*,48,1 

0000C0 IOA1 DC 0D*0* 


EXTRN IJKTXCR 
EXTRN IJKTXCF 
END 
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000000  FIDIOUVA START 0 DISK FILE 

000000 DC RD . OPEN MASK 

000001 DC AL3 (TABAD) TABLE ADDRESS 

000004 DC > de FLAG BYTE ONE 

000005 pe AL3 (0) CHAIN ADDRESS 

000008 DC X'0000' FLAG BYTE TWO, COMM. BYTE 
00000A DC 5 H'O” RECORD LENGTH 

00000C DC X'80000000' 

000010 DC A (I0A1+8) BUFFER ADDRESS 

000014 DC H'O! REMAINING DATA 

000016 DC H'0' DATA LENGTH 

000018  TABAD DC OD'0': 

000018 DC x'000082000000' CCB 

00001E DC X'FFFF' CCB-LOGICAL UNIT 

000020 DC A (CCWAD) CCB-CCW ADDRESS 

000024 DC üx'00' XXB-ST BYTE,CSW CCW ADDRESS 
000028 DC V (IJGVOEZZ) LOGIC MODULE 

00002C DC x t20* : DTF TYPE 

00002D DC AL1 (64) OPEN/CLOSE INDICATOR 

00002E DC CL8'FIDIOUVA' FILENAME 

000036 DC 8x'00' 

00003E DC x'08* OPEN COMMUNICATIONS BYTE 
00003F | DC 2X*00* 

000041 DC AL3 (*) USER'S LABEL ADDRESS 

000044 DC A (IOA1) ADDRESS OF IOAREA 

000048 DC x'80000000' CCHH ADDR OF USER LABEL TRACK 
00004C DC 6x'00* | 

000052 FILENS DC 2X'00* SEEK ADDRESS-BB 

000054 DC X'0000FF00' | SEARCH ADDRESS-CCHH 

000058 DC x'00' RECORD NUMBER 

000059 DC xtoot KEY LENGTH 

00005A DC H'0' DATA LENGTH 

00005C DC 1x*00' CCHH CONTROL FIELD p 
000060 DC X'FF' CONTROL FIELD ( 
000061 DC Xog" SWITCHES NZ 
000062 DC H'0' | SIZE OF BLOCK-1 

000064 DC 5x'00' CCHHR BUCKET 

000069 DC x"00' 

00006A DC H'3625' TRACK CAPACITY CONSTANT 
00006C L 2,88 (1). LOAD USER'S IOREG 

000070 DC A (IOA1* 12) DEBLOCKER-INITIAL POINTER 
000074 DC prot DEBLOCKER-RECORD SIZE 
000078 | DC A (IOA1-1) DEBLOCKER LIMIT 

00007C DC AL1 (128) LOGICAL INDICATORS 

00007D DC AL3 (IJKTXCR) USER*S ERROR ROUTINE 

000080 CCWAD CCW 7,*~46,64,6 SEEK 

000088 CCW X'31',*-52,64,5 SEARCH ID EQUAL 

000090 CCW 8,*-8,0,0 TIC 

000098 CCW X'1D',IOA1,0,0 WRITE COUNT, KEY AND DATA 
0000A0 CCW x'31',FILENS+2,64,5 SEARCH ID EQUAL | 
0000A8 CCW 8,*-8,0,0 TIC 

0000B0 CCW 30,*,48,1 

0000B8 DC F'0' SPACE REMAINING IN OUTPUT AREA 
0000BC DC H'3625' TRACK CAPACITY BUCKET 
0000BE L 3,160 (1) LOAD USER'S VARBLD REGISTER 
0000C2 

0000C8 IOA1 DC OD'0' 


EXTRN IJKTXCR 
EXTRN IJKTXCF 
END 
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000000  FIDIOUUN START 0 DISK FILE 
000000 DG X'A2' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC x'31' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'00008 FLAG BYTE TWO, COMM. BYTE 
00000A DC arto” RECORD LENGTH 
00000C DC X"80000000! 
000010 DC A (IOA1+8) BUFFER ADDRESS 
000014 DC gro! REMAINING DATA 
000016. DC H'0' DATA LENGTH 
000018  TABAD DC 0D'O' 
000018 DC x'000082000000' CCB 
00001E DC X'FFFF' CCB-LOGICAL UNIT 
000020 DC A (CCWAD) CCB-CCW ADDRESS 
000024 DC ux'00* XXB-ST BYTE,CSW CCW ADDRESS 
000028 DC V (IJGUOEZZ) LOGIC MODULE 
00002C DC x'20' DTF TYPE 
00002D DC ALT (0) OPEN/CLOSE INDICATOR 
00002E DC CL8'FIDIOUUN' FILENAME 
000036 DC 8X'00' 
00003E DC x'08' OPEN COMMUNICATIONS BYTE 
00003F DC 2x'00* 
000041 DC AL3 (*) USER'S LABEL ADDRESS 
000044 DC A (IOA1) ADDRESS OF IOAREA 
000048 DC X'80000000* CCHH ADDR OF USER LABEL TRACK 
00004C DC 6x*00' 
000052  FILENS DC 2x'00' SEEK ADDRESS-BB 
000054 DC X'OOOOFFOO! SEARCH ADDRESS-CCHH 
000058 DC x'00* RECORD NUMBER 
000059 DC X'00! KEY LENGTH 
00005A DC H'0' DATA LENGTH 
SS 00005C DC 4x*'00' CCHH CONTROL FIELD 
i. 000060 DC X'FF' CONTROL FIELD 
000061 DC x'00* SWITCHES 

000062 DC HO SIZE OF BLOCK-1 
000064 DC SA OD" CCHHR BUCKET 
000069 DC x'00' 
00006A DC H'3625' TRACK CAPACITY CONSTANT 
00006C L 2,88 (1) LOAD USER'S IOREG 
000070 DC A (IOA148) DEBLOCKER-INITIAL POINTER 
000074 STH 4,66 (1) 
000078 DC A (IOA1-1) DEBLOCKER LIMIT 
00007C DC AL1 (128) LOGICAL INDICATORS 
00007D DC AL3 (IJKTXCR) USER'S ERROR ROUTINE 
000080  CCWAD CCW 7,*-46,64,6 SEEK 
000088 CCW X'31',*-52,64,5 SEARCH ID EQUAL 
000090 CCW 8,*-8,0,0 TIC 
000098 CCW X'1D',IOA1,0,0 WRITE COUNT KEY AND DATA 
0000A0 CCW X'31',FILENS+2,64,5 SEARCH ID EQUAL 
0000A8 CCW 8,*-8,0,0 TIC 
0000B0 CCW 30,*,48,1 | 
0000B8 DC H'3625' TRACK CAPACITY BUCKET 
0000BA 
0000C0 | IOA1 DC OD'0! 


EXTRN IJKTKCR 
EXTRN IJKTXCF 
END 
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000000  FIDIUPFI START 0 DISK FILE — 
000000 DC X'9Ą' OPEN MASK um 
000001 DC AL3 (TABAD) TABLE ADDRESS NZ 
000004 DC x'01' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'0000' FLAG BYTE TWO, COMM. BYTE 
00000A DC gro! o RECORD LENGTH 
00000C DC x'80000000' 
000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC H'O' REMAINING DATA 
000016 DC H'0' DATA LENGTH 
000018  TABAD DC 0D'O' 
000018 DC x'000082000000' CCB 
00001E DC X'FFFF' CCB-LOGICAL UNIT 
000020 DC A (CCWAD) CCB-CCW ADDRESS 
000024 DC üx'00' XXB-ST BYTE,CSW CCW ADDRESS 
000028 DC V (IJKFUEZZ) LOGIC MODULE 
00002C DC x'20*' DTF TYPE 
00002D DC AL1 (2) OPEN/CLOSE INDICATOR 
00002E DC CL8'FIDIUPFI!' FILENAME 
000036 DC 8x'00' 
00003E DC x'08' OPEN COMMUNICATIONS BYTE 
00003F DC 2xX' 00" 
000041 DC AL3 (*) USER'S LABEL ADDRESS 
000044 DC A (IOA1) ADDRESS OF IOAREA 
000048 DC x'80000000* CCHH ADDR OF USER LABEL TRACK 
00004C DC 6x*00' 
000052 FILENS DC 2X'00' SEEK ADDRESS-BB 
000054 DC X'0000FFO00' SEARCH ADDRESS-CCHH 
000058 DC x'00* RECORD NUMBER 
000059 DC AL3 (IJKTXCF) EOF ADDRESS 
00005C DC 4X*00' CCHH CONTROL FIELD 
000060 DC AL1 (0) CONTROL FIELD 
000061 DC x'00* SWITCHES i 
000062 DC H'O! SIZE OF BLOCK-1 Meer 
000064 DC 5x*00* CCHHR BUCKET 
000069 DC AL3 (IJKTXCW) WLERR ADDRESS 
00006C L 2,88 (1) LOAD USER'S IOREG 
000070 DC A (IOA1) DEBLOCKER-INITIAL POINTER 
000074 DC pro! DEBLOCKER-RECORD SIZE 
000078 DC A (IOA1- 1) DEBLOCKER LIMIT 
00007C DC AL1 (128) LOGICAL INDICATORS 
00007D DC AL3 (IJKTXCR) USER'S ERROR ROUTINE 
000080 | CCWAD CCW 7,*-46,64,6 SEEK 
000088 CCW X'31',*-52,64,5 SEARCH ID EQUAL 
000090 CCW 8,*-8,0,0 TIC 
000098 CCW 6,I0A1,0,0 READ DATA 
0000A0 CCW X'31',FILENS*2,61,5 SEARCH ID EQUAL 
0000A8 CCW 8,*-8,0,0 TIC 
0000B0 CCW 6,*,48,1 VERIFY 
0000B8 IOA1 DC 0D*0' 
EXTRN | IJKTXCF,IJKTXCW,IJKTXCR 
END 
E 
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000000  FIDIUPVA START 0 DISK FILE 
000000 DC X'9A' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC x'11' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'0000' FLAG BYTE TWO, COMM. BYTE 
00000A DC H'O" RECORD LENGTH 
00000C DC x'80000000' 
000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC H'0' REMAINING DATA 
000016 DC H'0' DATA LENGTH 
000018  TABAD DC OD'0' 
000018 DC X'000082000000' CCB 
00001E DC X'FFFF' CCB-LOGICAL UNIT 
000020 DC A (CCWAD) CCB-CCW ADDRESS 
000024 DC 4x*00' XXB-ST BYTE,CSW CCW ADDRESS 
000028 DC V (IJGVUEZZ) LOGIC MODULE 
00002C DE x'20' DTF TYPE 
00002D DC AL1 (66) OPEN/CLOSE INDICATOR 
00002E DÓ CL8'FIDIUPVA' FILENAME 
000036 DC 8x"00" 
00003E DC X'08* OPEN COMMUNICATIONS BYTE 
00003F DC 2x'00* 
000041 DC AL3 (*) USER'S LABEL ADDRESS 
000044 DC A (IOA1) ADDRESS OF IOAREA 
000048 DC x'80000000' CCHH ADDR OF USER LABEL TRACK 
00004C DC 6x*00' 
000052  FILENS DC 2x*00' SEEK ADDRESS-BB 
000054 DC X'0000FFOO' SEARCH ADDRESS-CCHH 
000058 DC x'00' RECORD NUMBER 
000059 DE AL3 (IJKTXCF) EOF ADDRESS 
00005C DC Lx*00' CCHH CONTROL FIELD 
000060 DC X'FF' CONTROL FIELD 
000061 DE x'00* SWITCHES 
000062 DC H'0' SIZE OF BLOCK-1 
000064 DC 5x*00' CCHHR BUCKET 
000069 DC AL3 (IJKTXCW) WLERR ADDRESS 
00006C L 2,88 (1) LOAD USER'S IOREG 
000070 DC A (IOA1+4) DEBLOCKER-INITIAL POINTER 
000074 DC F'O' DEBLOCKER-RECORD SIZE 
000078 DC A (IOA1- 1) DEBLOCKER LIMIT 
00007C DC AL1 (128) LOGICAL INDICATORS 
00007D DC AL3 (IJKTXCR) USER'S ERROR ROUTINE 
000080 . CCWAD CCW 7,*-46, 64,6 SEEK 
000088 CCW X'31',*-52,64,5 SEARCH ID EQUAL 
000090 CCW 8,*-8,0,0 TIC 
000098 CCW 6,I0A1,64,0 READ DATA 
0000A0 CCW Xx'92',*+32,0,8 READ COUNT 
0000A8 CCW X'31',FILENS+2,64,5 SEARCH ID EQUAL 
0000B0 CCW 8,*-8,0,0 TIC 
0000B8 CCW 6,*,48,146 VERIFY 
0000C0 DC 2F'0' COUNT AREA 
0000C8 DC 2F'0*' COUNT SAVE AREA 
0000D0 DC 2F*0' COUNT SAVE AREA FOR 21/0 
EXTRN . IJKTXCF,IJKTXCW,IJKTXCR 
000008  IOA1 DC 0D*0* 
END 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
000000 
000010 
000014 
000016 
000018 
000018 
00001E 
000020 
000024 
000028 
00002C 
00002D 
000025 
000036 
00003E 
00003F 
000041 
000044 
000048 
00004C 
000052 
000054 
000058 
000059 
00005C 
000060 
000061 
000062 
000064 
000069 
00006C 
000070 
000074 
000078 
00007C 
00007D 
000080 
000088 
000090 
000098 
0000A0 
0000A8 
0000B0 
0000B8 
000000 
0000C8 
0000D0 


0000D8 
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FIDIUPUN START 


TABAD 


FILENS 


CCWAD 


IOA1 


DC 


0 

X'9A' 

AL3 (TABAD) 
x'31' 

AL3 (0) 
x"0000' 
gro" 
X'80000000* 
A (IOA1) 
H'0' 

Ho" 

0p'0' 


X'000082000000' 


X'FFFF' 

A (CCWAD) 
4X*00' 

V (IJGUUEZZ) 
x'20' 

AL1 (2) 


CL8'FIDIUPUN' 


8x'00' 
x'08' 
2x"00" 

AL3 (*) 

A (IOA1) 
Xx'80000000' 
6x'00' 
2x'00' 
X'0000FF00" 
x*'00' 

AL3 (IJKTXCF) 
4x'00' 
X'FF' 

x'00' 

H'O* 

5x*00' 
3x*'00' 

2,88 (1) 

A (IOA1) 

4,96 (1) 

A (I0A1-1) 
AL1 (128) 
AL3 (IJKTXCR) 
7,*-46, 64,6 


Ay lags re pU.» 


ia 00 
6,10A1,96,0 


X'92*,*432,0,8 
X'31',FILENS*2,60,5 


8,*-8,0,0 
6,*,48, 146 
2F'0' 
2F'0' 
2F'0' 
IJKTXCF 
IJKTXCR 
0D'0* 


DISK FILE 

OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 


BUFFER ADDRESS 
REMAINIG DATA 
DATA LENGTH 


CCB 

CCB-LOGICAL UNIT 

CCB-CCW ADDRESS 

XXB-ST BYTE,CSW CCW ADDRESS 
LOGIC MODULE 

DIF TYPE 

OPEN/CLOSE INDICATOR 
FILENAME 


OPEN COMMUNICATIONS BYTE 


USER'S LABEL ADDRESS 
ADDRESS OF IOAREA 
CCHH ADDR OF USER LABEL TRACK 


SEEK ADDRESS-BB 
SEARCH ADDRESS-CCHH 
RECORD NUMBER 

EOF ADDRESS 

CCHH CONTROL FIELD 
CONTROL FIELD 
SWITCHES 

SIZE OF BLOCK-1 
CCHHR BUCKET 


LOAD USER'S IOREG 
DEBLOCKER-INITIAL POINTER 


DEBLOCKER LIMIT 
LOGICAL INDICATORS 
USER'S ERROR ROUTINE 
SEEK 

SEARCH ID EQUAL 

TIC 

READ DATA 

READ COUNT 

SEARCH ID EQUAL 

TIC | 

VERIFY 

COUNT AREA 

COUNT SAVE AREA 
COUNT SAVE AREA FOR 2I/O 





N 


Ly 
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000000 FIDIINR1 START 0 

000000 DC x'C5' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC Xx'01' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x*'2800' FLAG BYTE TWO, COMM. BYTE 
00000A DC aro" RECORD LENGTH 
000000 DC x'80' DEVICE CODE 
00000D DC AL3 (0) 

000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC x*00' REGIONAL TYPE 
000015 DC AL3 (IJKTXRP) ADDRESSING ROUTINE 
000018 DC A (0) 

00001C DC A (0) 

000020 DC X*0000! LOGICAL UNIT 
000022 ERRBYTE DC x*'0000' ERROR BYTE 
000024 DC H'0' KEY LENGTH 
000026 DC x'00! 

000027 SEEKADR DC 15x'00* 

000036 DC H'10* 

000038 DC 6x'0' 

00003E DC H'10' 

000040 DC 6x'0' 

000046 DC H'10' 

000048  TABAD DC 0p'0' 

000048 DC H'0' FIRST CCB BYTES 
00004A DC x'88' 

00004B DC 5x'0' 

000050 DC AL! (CCAD) CC ADDR IN CCB 
000054 DC Prot 

000058 DC V (IJIFZZZZ) FILE TYPE 
00005C DC AS 

00005D DC B'00000000* 

00005E DC CL8'FIDIINR1' 

000066 DC x'0104" 

000068 DC FO" LABEL ROUTINE ADDRESS 
00006C DC V (IJKTXRM) EXTENT ROUTINE ADDRESS 
000070 DC x'0' 

000071 DC AL3 (ERRBYTE) 

000074 DC H'0' TEST SWITCH 
000076 DC Y (CCWAD=TABAD- 32) POINTER 

000078 DC gro" IJICB2 

00007A DC x'88' 

00007B DC 5x'0' 

000080 DC ALL (FILENZ) 

000084 DC Lx*O' 

000088  FILENZ CCW X'07' , SEEKADR+1,X'00',6 

000090 XI 36 (2) ,C'0' 

000094 DC H'O" MAXIMUM DATA LENGTH 
000096 DC YL1 (FILENO-TABAD- 1) PTR TO READ ID STRING 
000097 DC YL1 (FILEN1-TABAD-1) READ KEY 

000098 DC YL1 (FILEN2-TABAD- 1) WRITE ID 

000099 DC YL1 (FILEN3-TABAD-1) WRITE KEY 
00009A DC YL1 (FILEN4-T4BAD- 1) RZERO 

00009B DC YL1 (FILEN5-T/.BAD- 1) AFTER 

00009C DC H'00' 

00009E DC H'61' RIC CONSTANT 
0000A0 DC p'0' 

0000A8  FILENC CCW X'31',SEEKADR+3,X'40',5 

0000B0 DC 1F*0' 

0000B4 DC H'O' 

0000B6 DC H'0' 

0000B8 CCW X'06',IOA1,X'40',0 

0000C0 DC 1D"0* 

0000C8 CCW X'39' SEEKAD t+3,X'40',4 

0000D0 CCW X'OE',IOA1,X'40', 0 

0000D8 FILENO EQU * 

0000D8 DC x'871814' 
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000049 


000049 
000049 
000049 
000049 
0000DB 
0000E0 
0000E8 
000120 
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FILEN1 
FILEN2 
FILEN3 
FILEN4 
FILENS 


CCWAD 


IOA1 


EQU 
EQU 
EQU 
EQU 
EQU 


CCW 
DC 


EXTRN 
END 


TABAD+ 1 | 

TABAD+ 1 m 
TABAD+ 1 | cod 
TABAD+ 1 

TABAD+ 1 


X'07', SEEKAIR+1,X"40',6 
7D'0' 

OD'O*' 

IJKTXRP 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
00000D 
000010 
000014 
000015 
000018 
00001C 
000020 
000022 
000024 
000026 
000027 
000036 
000038 
00003E 
000040 
000046. 
000048 
000048 
00004A 
00004B 
000050 
000054 
000058 
00005C 
00005D 
00005E 
000066 
000068 
00006C 
000070 
000071 
000074 
000076 
000078 
00007A 
00007B 
00008C 
000084 
000088 
000090 
000094 
000096 
000097 
000098 
000099 
00009A 
00009B 
00009C 
00009E 
0000A0 
0000A8 
0000B0 
0000B4 
0000B6 
0000B8 
0060C0 
0000C8 
0000D0 
000049 
000049 


FIDIONR1 


ERRBYTE 


SEEKADR 


TABAD 


FILENZ 


FILENC 


FILENO 
FILEN1 


START 


0 

X'A5' 

AL3 (TABAD) 
xX'01* 

AL3 (0) 
x'2800' 
H'0' 

X'80' 

AL3 (0) 

A (IOA1) 
X'00* 

AL3 (IJKTXRP) 
A (0) 

A (0) 

Xx'0000* 
x'0000' 
H'O" 

x'00' 
15x*00' 
H'10' 

6x'0' 

H'10' 

6x'0' 

H'10' 

0p'0' 

aro" 

x'88' 

5x'0' 

ALL (CCWAD) 
Fo" 

V (IJIFZZZZ) 
x'22' 
B'10000000* 
CL8'FIDIONR1' 
x'010u* 
pro" 

V (IJKTXRM) 
x'0' 

AL3 (ERRBYTE) 
H'O' 

Y (CCWAD- TABAD-32) 
H'O' 

x'88' 

5x'0' 

ALL (FILENZ) 
Lx*0' 


X'07',SEEKADR* 1,X'00',6 


36 (2) „C'0' 

H'0' 

YL1 (FILENO-TABAD-1) 
YL1 (FILEN1-TABAD- 1) 
YL1 (FILEN2-TABAD- 1) 
YL1 (FILEN3-TABAD-1) 
YL1(FILENU-TABAD- 1) 
YL1 (FILEN5-TABAD-1) 
H'00' 

H'61' 

p'0' 


Xx'31',SEEKADR+3,X'40*,5 


TEO" 

H'O' 

H'O' 
X'06',IOAT1,X'40',0 
1D'0' 


X'39',SEKKADR+3,X'40',4 


X'OE',IOA1,1'40',0 
TABAD+1 
TABAD+ 1 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 

DEVICE CODE 


BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEY LENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 


FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWIICH 
POINTER 
IJICB2 


MAXIMUM DATA LENGTH 
PTR TO READ ID STRING 
READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 


RIC CONSTANT 


Appendix D. DTF Tables 


401 


PL/I PLM 8 


0000D8 
0000D8 
000049 
000049 
000049 
0000DB 
00000 
0000E8 
000120 
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FILEN2 
FILEN3 
FILEN4 
FILENS 
CCWAD 


IOA1 


EQU 


EQU 
EQU 
EQU 


CCW 
DC 


EXTRN 
END 


* 


X'871895' 


TABAD+1 


| TABAD+1 


TABAD+ 1 


X'07' SEEKADR+1,X"40*,6 


"DRO" 
0D'0' 


IJKTXRP 











AB 
n 
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000000 | FIDIOVR1 START 0 

000000 DC X'A5' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC x'01' FLAG BYTE ONE 
000005 DE AL3 (0) CHAIN ADDRESS 
000008 DC x'2800' FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC x'80' DEVICE CODE 
00000D DC AL3 (0) 

000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC x'00' REGIONAL TYPE 
000015 BE AL3 (IJKTXRP) ADDRESSING ROUTINE 
000018 DC A (0) 

00001C DC A (0) 

000020 DC x'0000' LOGICAL UNIT 
000022  ERRBYTE DC x'0000! ERROR BYTE 
000024 DC gro" KEYLENGTH 
000026 DC x*'00' 

000027  SEEKADR DC 15x*00' 

000036 DE H'10' 

000038 DC 6x'0* 

00003E DC H' 10' 

000040 DC 6x'0' 

000046 DC H'10' 

000048  TABAD DC OD'0! 

000048 pc H'0' FIRST CCB BYTES 
00004A De x'88' 

00004B DC 5x'0' 

000050 DC A14 (CCWAD) CCW ADDR IN CCB 
000054 DC pro" 

000058 DC V (IJIFZZZZ) FILE TYPE 
00005C DC PA 

00005D DC B'11000000' 

00005E DC C18'FIDIOVR1*' 

000066 DC x'0104* 

000065 DC F'0' LABEL ROUTINE ADDRESS 
00006C DC V (IJKTXRM) EXTENT ROUTINE ADDRESS 
000070 DC x'0' 

000071 DC A13 (ERRBYTE) 

000074 DC H'0' TEST SWITCH 
000076 DC Y (CCWAD- TABAD-32) POINTER 

000078 DC H'0' TJTCBŹ 

00007A DC x'88' 

00007B DC Dx 0" 

000080 DC ALŲ (FILENZ) 

000084 DC ux'o! 

000088 FILENZ CCW X'07',SEEKADR+1,X'00',6 

000090 XI 36 (2) ,C'0' 

000094 DC H'O" MAXIMUM DATA LENGTH 
000096 DC YL1 (FILEN0-TABAD-1) PIR TO READ ID STRING 
000097 DC YL1 (FILEN1-TABAD- 1) READ KEY 

000098 DC YL1 (FILEN2-TABAD- 1) WRITE ID 

000099 DC YL1 (FILEN3-TABAD- 1) WRITE KEY 
00009A DC YL1 (FILENU-TABAD- 1) RZERO 

00009B DC YL1 (FILEN5-TABAD- 1) AFTER 

00009C DC 1-007 

00009E DC H'61' RIC CONSTANT 
0000A0 DC D'0' 

0000A8  FILENC CCW X'31',SEEKADR+3,X'40',5 

0000B0 DC 1F'0' 

0000B4 DC H'0' 

0000B6 DC H'0' 

0000B8 CCW X'06',IOA1,X'40',0 

0000C0 DC 1D'0' 

0000C8 CCW X'39* SEEKADR+3,X'40',4 

0000D0 CCW X'OE',IOA1,X'40',0 

0000409 . FILENO EQU TABAD+ 1 

000049 FILEN1 EQU TABAD+ 1 
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0000D8 
0000D8 
000049 
000049 


000049. 


0000DE 
0000E0 
-0000E8 
000120 
000148 
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FILEN2 


FILEN3 


FILEN. 


FILENS 


CCWAD 


IOA1 


* 


X'871891871815' 


TABAD+ 1 


TABAD+ 1 


TABAD+1 


X'07', SEEKADR+1,X'40',6 


7D'0' 
5D'0' 
0D'0' 


IJKTXRP 
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000000 FIDIUNR1 START 0 


000000 DC X'9p' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC x'01* FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'2800' FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC x'80' DEVICE CODE 
00000D DC AL3 (0) 
000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC x'00' REGIONAL TYPE 
000015 DC AL3 (IJKTXRP) ADDRESSING ROUTINE 
000018 DC A (0) 
000010 DE A (0) 
000020 DC x'0000' LOGICAL UNIT 
000022  ERRBYTE DC x'0000' ERROR BYTE 
000024 DC H'0' KEY LENGTH 
000026 DC x'00' 
000027  SEEKADR DC 15x'00' 
000036 DC H'10' 
000038 DC 6x'0' 
00003E DC H'10' 
000040 DE 6x'0' 
000046 DC H'10' 
000048 TABAD DC 0D'0' 
000048 DC H'O’ FIRST CCB BYTES 
00004A DC x'88' 
00004B DC 5x'0' 
000050 DC ALL (CCWAD) CCW ADDR IN CCB 
000054 DC F'0' 
000058 DC V (IJIFZZZZ) FILE TYPE 
00005C DC x*22* 
00005D DC B*00000000" 
00005E DC CL8'*FIDIUNR1" 
000066 DC X'0104' 
000068 DC F'0' LABEL ROUTINE ADDRESS 
00006C DC V (IJKTXRM) EXTENT ROUTINE ADDRESS 
000070 DC x'0' 
000071 DC AL3 (ERRBYTE) 
000074 DC H'0' TEST SWITCH 
000076 DC Y (CCWAD-TABAD-32) POINTER 
000078 DC H'0' IJICB2 
00007A DC x'88' 
00007B DC 5x*0' 
000080 DC ALY (FILENZ) 
000084 DC yx to" 
000088 FILENZ CCW X'07', SEEKADR+1,X'00', 6 
000090 XI 36 (2) „C'0' 
000094 DC H'0' MAXIMUM DATA LENGTH 
000096 DC YL1 (FILEN0-TABAD-1) PTR TO READ ID STRING 
000097 DC YL1 (FILEN1-TABAD- 1) READ KEY 
000098 DC YL1 (FILEN2-TABAD-1) WRITE ID 
000099 DC YL1 (FILEN3-TABAD- 1) WRITE KEY 
00009A DC YL1 (FILEN4-TABAD-1) RZERO 
00009B DC YL1 (FILEN5-TABAD- 1) AFTER 
000090 DC H*00' 
00009E DC H'61' RIC CONSTANT 
0000A0 DC p'0' 
0000A8  FILENC CCW X'31',SEEKADR+3,X'40',5 
0000B0 DC 1F'0' 
0000B4 DC H'0' 
0000B6 DC H'0' 
0000B8 CCW X'06',I0A1,x'40',0 
0000C0 DC 1D*0* — 

—  0000C8 CCW X'39', SEEKADR+3,X'40',4 

( 0000D0 CCW X'OE',IOA1,X'40',0 

000008  FILENO EQU * 
0000D8 DC X'871814' 


Appendix D. DTF Tables 405 


PL/I PLM 8 


IBM Confidential 


000049 FILEN1 EQU TABAD+ 1 
0000DB  FILEN2 EQU * AN 
0000DB DC x*'871895* R 
000049 FILEN3 EQU TABAD+ 1 
000049 FILENY EQU TABAD+ 1 
000049 FILENS EQU TABAD+ 1 
0000DE 
0000E0  CCWAD CCW X'07',SEEKADR+1,X'40',6 
0000E8 DC IDO" 
000120 IOA1 DC O0D'O' 
EXTRN  IJKTXRP 
END 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
00000D 
000010 
000014 
000015 
000018 
00001C 
000020 
000022 
000024 
000026 
000027 
000036 
000038 
00003E 
000040 
000046 
000048 
000048 
00004A 
00004B 
000050 
000054 
000058 
00005€ 
00005D 
00005E 
000066 
000068 
00006C 
000070 
000071 
000074 
000076 
000078 
00007A 
00007B 
000080 
000084 
000088 
000090 
000094 
000096 
000097 
000098 
000099 
00009A 
00009B 
00009C 
00009E 
0000A0 
0000A8 
0000B0 
0000B4 
0000B6 
0000B8 
0000C0 
0000C8 
0000D0 
0000D8 
0000D8 


FIDIUVR1 


ERRBYTE 


SEEKADR 


TABAD 


FILENZ 


FILENC 


FILENO 


START 


0 

X'9D' 

AL3 (TABAD) 
x'01' 

AL3 (0) 
X'2800* 
H'0' 

x'80' 

AL3 (0) 

A (IOA1) 
x'00' 

AL3 (IJKTXRP) 
A (0) 

A (0) 
X'0000' 
x'0000' 
H'0' 

x'00' 
15x*00' 
10" 

6x'0' 

H'10' 

6x'0' 

H'10' 

OD'0! 

H'0' 

X'88' 

5x'0' 

ALI (CCWAD) 
F'0' 

V (IJIFZZZZ) 
X'22' 
B'01000000' 
CL8' FIDIUVR1' 
x'0104* 
F'0' 

V (IJKTXRM) 
x'0' 

AL3 (ERRBYTE) 
H'O' 

Y (CCWAD- TABAD- 32 
H'O' 

X'88' 

5x*0' 

ALU (FILENZ) 
üux*'o* 


x'07',SEEKADR+1,X'00',6 


36 (2) ,C'0* 

H'0' 

YL 1 (FILENO-TABAD-1) 
YL1 (FILEN1-TABAD- 1) 
YL1 (FILEN2-TABAD-1) 
YL1 (FILEN3-TABAD-2) 
YL1 (FILEN4-TABAD- 1) 
YL1 (FILEN5-TABAD-1) 
H'00* 

H'61' 

Dro! 
X'31",SEEKADR+3, '40',5 
1F'0' 

H'O' 

H'0' 
X'06',IOA1,x'40',0"' 
1D*0' 


X'39", SEEKADR+3,X'40',4 


X'OE',IOA1,X'40',0 
* 
x'871814' 


OPEN MASK 

TABLE ADDRESS 
FLAG BYTE ONE 
CHAIN ADDRESS 


FLAG BYTE TWO, COMM. BYTE 


RECORD LENGTH 
DEVICE CODE 


BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 


FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 
POINTER 
IJICB2 


MAXIMUM DATA LENGTH 
PTR TO READ ID STRING 
READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 


RIC CONSTANT 
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0000DB 
0000DB 
000049 
000049 


000049 


0000E1 
0000E8 
0000F0 
000128 
000150 
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FILEN1 
FILEN2 


FILEN3 
FILEN4 
FILENS 


CCWAD 


IOA1 


EQU TABAD+ 1 

EQU * | 

DC X'871891871815' 
EQU TABAD+ 1 

EQU .  TABAD+1 

EQU TABAD+ 1 

CCW X'07' ¡SEEKADR+1,'40*,6 
DC 7D'0* 

de 5a'0! 

DC 0D'0' 

EXTRN  IJKTXRP 

END 
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000000 FINDIINR3 START 0 

000000 DC X'C5' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC x'01' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'2800' FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC x'80' DEVICE CODE 
00000D DC AL3 (0) 

000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC X'08' REGIONAL TYPE 
000015 DC AL3 (IJKTXRP) ADDRESSING ROUTINE 
000018 DC A (KEYARG) 

00001C DC A (0) 

000020 DC Xx'0000' LOGICAL UNIT 
000022  ERRBYTE DC x'0000" ERROR BYTE 
000024 DC H'O’ KEY LENGTH 
000026 DC x'00' 

000027  SEEKADR DC 15x'00' 

000036 DC H'10' 

000038 DC 6x'0*' 

00003E DC H' 10* 

000040 DC 6x*0' 

000046 DC H'10' 

000048 . TABAD DC 0D'O' 

000048 DC H'0' FIRST CCB BYTES 
00004A DC x'88' 

00004B DC 5x'0' 

000050 DC ALU (CCWAD) CCW ADDR IN CCB 
000054 DC F'0' 

000058 DC V (IJIFZZZZ) FILE TYPE 
00005C DC X'22' 

00005D DC B'00000000' 

00005E DC CL8'FIDIINR3' 

000066 DC x*0104' 

000068 DC P'0' LABEL ROUTINE ADDRESS 
00006C DC V (IJKTXRM) EXTENT ROUTINE ADDRESS 
000070 DC x'0' 

000071 DC AL3 (ERRBYTE) 

000074 DC H'O0' TEST SWITCH 
000076 DC Y (CCWAD- TABAD-32) POINTER 

000078 DC H'0' IJICB2 

00007A DC x'88' 

00007B DC 5x'0' 

000080 DC ALU (FILENZ) 

000084 DC uxto! 

000088 FILENZ CCW X'07',SEEKADR+1,X'00',6 

000090 XI 36 (2) ,C*0" 

000094 DC aro" MAXIMUM DATA LENGTH 
000096 DC YL1 (FILENO-TABAD- 1) PTR TO READ ID STRING 
000097 DC YL1 (FILEN1-TABAD- 1) READ KEY 

000098 DC YL1 (FILEN2-TABAD-1) WRITE ID 

000099 DC YL1 (FILEN3-TABAD- 1) WRITE KEY 
00009A DC YL1 (FILEN4-TABAD-1) RZERO 

00009B DC YL1(FILEN5-TABAD- 1) AFTER 

00009C DC H'20' 

00009E DC H'61' RIC CONSTANT 
0000A0 DC D'0' 

0000A8 . FILENC CCW X'31',SEEKADR+3,X'40',5 

0000B0 CCW X'29',KEYARG,X'40",0 

0000B8 CCW x'06',IOA1,X'40',0 

0000C0 DC 1D*0' 

0000C8 CCW x'39',SEEKADR+3,X'40',4 

0000D0 CCW X'OE',IOA1,X'U0',0 

000049 FILENO EQU TABAD+ 1 

0000D8  FILEN1 EQU 

0000D8 DC X'8F1814' 

000049 FILEN2 EQU TABAD+1 
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000049 
000049 
000049 
0000DB 
0000E0 
0000E8 
000120 
000120 
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FILEN3 
FILEN4 
FILEN5 


CCWAD 


IOA1 
KEYARG 


EQU 
EQU 
EQU 


CCW 
DC 


DC 
EXTRN 
END 


TABAD+ 1 
TABAD+1 
TABAD+ 1 


X'07',SEEKADR+1,X'40",6 
7D'0" 

0D'0' 

0D'0' 

IJKTXRP 








gi oS 


f 


WY 
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000000  FIDIONR3 START 0 

000000 DC X'A5' OPEN MASK 
000001 DC AL3 (TABAD) TABLE ADDRESS 
000004 DC xt01' FLAG BYTE ONE 
000005 DC AL3 (0) CHAIN ADDRESS 
000008 DC x'2800' FLAG BYTE TWO, COMM. BYTE 
00000A DC H'0' RECORD LENGTH 
00000C DC x'80' DEVICE CODE 
00000D DC AL3 (0) 

000010 DC A (IOA1) BUFFER ADDRESS 
000014 DC x'08' REGIONAL TYPE 
000015 DC AL3 (IJKTXRP) ADDRESSING ROUTINE 
000018 DC A (KEYARG+8) 

00001C DC A (0) 

000020 DC X'0000* LOGICAL UNIT 
000022  ERRBYTE DC x'0000' ERROR BYTE 
000024 DC H'0' KEY LENGTH 
000026 DC X'00' 

000027  SEEKADR DC 15x'00' 

000036 DC H'10' 

000038 DC 6x'0' 

00003E DC H'10° 

000040 DC 6x*0' 

000046 DC H'10° 

000048 TABAD DC 0D'0' 

000048 DC H'0' FIRST CCB BYTES 
00004A DC X'88' 

00004B DC 5x'0' 

000050 DC ALI (CCWAD) CCW ADDR IN CCB 
000054 DC F'O' : 

000058 DC V (IJIFAZZZ) FILE TYPE 
00005C DC x'22* 

00005D DC B'10010000' 

00005E DC CL8'FIDIONR3' 

000066 DE x'0104" 

000068 DC F'0' LABEL ROUTINE ADDRESS 
00006C DC V (IJKTXRM) EXTENT ROUTINE ADDRESS 
000070 DC xo" 

000071 DC AL3 (ERRBYTE) 

000074 DC H'O" TEST SWITCH 
000076 DC Y (CCWAD-TABAD-32) POINTER 

000078 DC H'0' IJICB2 

00007A DC X'88' 

00007B DC 5x'0' 

000080 DC ALL (FILENZ) 

000084 DC 4x'0' 

000088  FILENZ CCW X'07' , SEEKADR+1,X'00',6 

000090 XI 36 (2) ,C'0' 

000094 DC H'0' MAXIMUM DATA LENGTH 
000096 . DC YL1 (FILENO-TABAD-1) PTR TO READ ID STRING 
000097 DC YL1 (FILEN1-TABAD- 1) READ KEY 

000098 DC YL1 (FILEN2-TABAD-1) WRITE ID 

000099 DC YL1 (PILEN3-TABAD- 1) WRITE KEY 
00009A DC YL1 (FILEN4-TABAD-1) RZERO 

00009B DC YL1 (FILENS-TABAD- 1) AFTER 

00009C DC H'20' 

00009E DC H'61' RIC CONSTANT 
0000A0 DC p'o* 

0000A0 £FILENC CCW X'31',SEEKADR+3,X'40',5 

0000B0 DC IF'0' 

0000B4 DC H'0' 

0000B6 DC H'0' 

0000B8 CCW X'06',IOA1,X'40*',0 

0000C0 DC 1D'0' 

0000C8 CCW X'39", SEEKADR+3,X'40',4 

0000D0 CCW X'OE', IOA1+8,X'40',0 

0000D8 CCW X'06',FILENK,X'40',8 

0000E0 CCW X'12',FILENK,X'40',8 
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0000E8 
0000F0 


0000F8 


000100 
000102 
000104 
000109 
000049 
000049 
000049 
000049 
000111 
000111 
000118 
000118 
00011B 
000121 
000128 
000130 
000168 
000168 
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FILENF 
FILENK 
FILENO 
FILEN1 
FILEN2 
FILEN3 
FILENY 


FILEN5 


CCWAD 


IOA1 
KEYARG 


CCW 
CCW 
CCW 
NOPR 
NOPR 


DC 
EQU 


EQU 
EQU 
EQU 
DC 
EQU 
DC 
CCW 
DC 
DC 


EXTRN 
END 


X'31' FILENF,X'40',5 
X*1E',IOA1,x'40*,0 
X'11',CCWAD+32,X'40',3625 


0 


0 


_5x'0' 


8x'0' 

TABAD+ 1 
TABAD+1 
TABAD+ 1 


TABAD*1 
de 


X'C718D752C7 18B5* 
* 

x'C71834* 
X'C718B18718CD' 


X'07' , SEEKADR*1,X'40',6 
7D'0* 

Op'O' 

Op'O' 

IJKTXRP 
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| 000000 
( 000000 


FIDIOVR3 


000001 
000004 
000005 
000008 
00000A 
00000C 
00000D 
000010 
000014 
000015 
000018 
000010 
000020 
000022 
000024 
000026 
000027 
000036 
000038 
00003E 
000040 
000046 
000048 
000048 
00004A 
00004B 
000050 
000054 
000058 
00005C 
00005D 

C 00005E 

: 000066 
000068 
000060 
000070 
000071 
000074 
000076 
000078 
00007A 
00007B 
000080 
000084 
000088 
000090 
000094 
000096 
000097 
000098 
000099 
00009A 
00009B 
00009C 
00009E 
0000A0 
0000A8 
0000B0 
0000B4 
0000B6 
0000B8 
0000C0 

n 0000C8 
C 0000D0 
T 0000D8 
0000E0 


ERRBYTE 


SEEKADR 


TABAD 


FILENZ 


FILENC 


START 


0 
X'A5' 
AL3 (TABAD) 


AL3 (IJKTXRP) 

A (KEYARG* 8) 

A (0) 

X'0000' 

x'0000' 

H'O" 

x'00' 

15x'00" 

H'10' 

6x'0' 

H'10' 

6x'0' 

H'10' 

op'o' 

H'0' 

x'88' 

5x'0' 

ALI (CCWAD) 

F'0' 

C (IJIFAZZZ) 

x'22' 

B'11010000' 
CL8'FIDIOVR3' 
x'0104' 

F'0' 

V (IJKTXRM) 

x'0' 

AL3 (ERRBYTE) 

H'0' 

Y (CCWAD-TABAD- 32) 
H'0' 

x'88' 

5x'0* 

ALU (FILENZ) 

ux'O0* 
X'07',SEEKADR+1,X'00',6 
36 (2) ,C'0' 

H'0' 

YL1 (FILENO-TABAD- 1) 
YL1 (FILEN1-TABAD- 1) 
YL1 (FILEN2-TABAD-1) 
YL1 (FILEN3-TABAD- 1) 
YL1 (FILEN4-TABAD-1) 
YL1 (FILEN5-TABAD- 1) 
H'2' 

H'61' 

p'0' 
X'31',SEEKADR+3,X'40',5 
1F*0' 

aro" 

H'0' 
X'06',IOA1,X'40',0 
1D'0' 

X'39", SEEDADR+3,X'40',4 
X'0E',20A1+8,X'40',0 
X'06',FILENK,X'40',8 
X'12',FILENK,X'40',8 


OPEN MASK 

TABLE ADDRESS 

FLAG BYTE ONE 

CHAIN ADDRESS 

FLAG BYTE TWO, COMM. BYTE 
RECORD LENGTH 

DEVICE CODE 


BUFFER ADDRESS 
REGIONAL TYPE 
ADDRESSING ROUTINE 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 


FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 
POINTER 
IJICB2 


MAXIMUM DATA LENGTH 
PTR TO READ ID STRING 
READ KEY 

WRITE ID 

WRITE KEY 

RZERO 

AFTER 


RIC CONSTANT 
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0000F8 


0000F0 
0000E8 
000100 
000102 
000104 
000109 
000049 
000049 
000049 
000049 
000111 
000111 
000118 
000118 
00011B 
000127 
000128 
000130 
000168 
000190 
000190 
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FILENF 
FILENK 
FILENO 
FILEN1 
FILEN2 
FILEN3 
FILENU 


FILENS 


CCWAD 


IOA1 
KEYARG 


X'31',FILENF,X'40',5 
X'1E',IOA1,X'40',0 
X'11",CCWAD+32,X'40', 3625 
0 

0 

5x'0' 

8x'0' 

TABAD+ 1 

TABAD+ 1 

TABAD+ 1 

TABAD+ 1 

* 


X'C718D752C718B5' 
* 


X'C71834' 
X'C718B18718C9C7183187184D" 


X'07',SEEKADR+1,X'40',6 
7D'0' 

5D'0' 

0D'0* 

0D'0" 

IJKTXRP 





/ 
\ 


Z 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
00000D 
000010 
000014 
000015 
000018 
00001C 
000020 
000022 
000024 
000026 
000027 
000036 
000038 
00003E 
000040 
000046 
000048 
000048 
00004A 
00004B 
000050 
000054 
000058 
00005C 
00005D 
00005E 
000066 
000068 
00006C 
000070 
000071 
000074 
000076 
000078 
00007A 
00007B 
000080 
000084 
000088 
000090 
000094 
000096 
000097 
000098 
000099 
00009A 
00009B 
00009C 
00009E 
0000A0 
0000A8 
0000B0 
0000B8 
0000C0 
0000C8 
0000D0 
0000D8 
0000E0 
0000E8 
0000F0 





FIDIUNR3 


ERRBYTE 


SEEKADR 


TABAD 


FILENZ 


FILENC 


START 


0 

x'9p' OPEN MASK 

AL3 (TABAD) TABLE ADDRESS 
x'01' FLAG BYTE ONE 
AL3 (0) CHAIN ADDRESS 
x'2800' FLAG BYTE TWO, COMM. BYTE 
H'0' RECORD LENGTH 
x'80' DEVICE CODE 
AL3 (0) 

A (I0A1) BUFFER ADDRESS 
x'08* REGIONAL TYPE 


AL3 (IJKTXRP) ADDRESSING ROUTINE 
A (KEYARG+8) 

A (0) 

X'0000' 

X'0000' 

H'O" 

x'00' 

15x*00' 

H'10' 

6x'0' 

H'10' 

6x'0' 

H'10' 

0D'0' 

H'0' 

x'88' 

5x'0' 

ALI (CCWAD) 

F'0' 

V (IJIFAZZZ) 

x'22' 

B'00010000' 
CL8'FIDIUNR3' 
X'010u* 

F'0* 

V (IJKTXRM) 

x'0' 

AL3 (ERRBYTE) 

H'0' 

Y (CCWAD-TABAD- 32) 
H'0' 

X'88' 

5x'0' 

ALU (FILENZ) 

4x*0' 

X'07' , SEEKADR* 1,X* 00'*,6 
36 (2) ,C'0* 

H'0' 

YL1 (FILENO-TABAD- 1) 


LOGICAL UNIT 
ERROR BYTE 
KEYLENGTH 


FIRST CCB BYTES 


CCW ADDR IN CCB 


FILE TYPE 


LABEL ROUTINE ADDRESS 
EXTENT ROUTINE ADDRESS 


TEST SWITCH 
POINTER 
IJICB2 


MAXIMUM DATA LENGTH 
PTR TO READ ID STRING 


YL1 (FILEN1-TABAD- 1) READ KEY 

YL1 (FILEN2-TABAD- 1) WRITE ID 

YL1 (PILEN3-TABAD-1) WRITE KEY 
YL1 (FILEN4-TABAD- 1 RZERO 

YL1 (FILEN5-TABAD-1) AFTER 

H'20' 

H'61' RIC CONSTANT 
p'0' 


X'31',SEEKADR*3,X'U0',5 
X'29',KEYARG*8,X'40',0 
X'06',IOA1,X'40',0 
1D'0' 

X'39", SEEKADR+3,X'40',4 
X'0E',I0A1+8,x'40',0 
X'06',FILENK,X'40',8 
X'12',FILENK,X'40',8 
X'31',FILENF,X'40',5 
X'1E',IOA1,X'40',0 
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0000F8 CCW X'11',CCWAD+32,X'40',3625 
000100 NOPR 0 
000102 NOPR 0 
000104 FILENF DC 5x'0' 
000109 FILENK DC 8x'0' 
000049 FILENO EQU TABAD+ 1 
000111 FILEN1 EQU * 
000111 DC X'8F1814*' 
000049 FILEN2 EQU TABAD+ 1 
000114 — FILEN3 EQU * 
000114 DC X'8F1895' 
000117 FILEN4 EQU * 
000117 DC X'C718D752C7 18B5' 
00011E  FILENS EQU * 
00011E DC X'C71834' 
000121 DC X'C718B18718CD' 
000127 
000128  CCWAD CCW X'7?', SEEKADR+1,X'40', 6 
000130 DC 7D0'0' 
000168  IOA1 DC OD'0! 
000168  KEYARG DC 0D'0' 

EXTRN . IJKTXRP 

END 
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000000 
000000 
000001 
000004 
000005 
000008 
00000A 
00000C 
00000D 
000010 
000014 
000015 
000018 
00001C 
000020 
000022 
000024 
000026 
000027 
000036 
000038 
00003E 
000040 
000046 
000048 
000048 
00004A 
00004B 
000050 
000054 
000058 
00005C 
00005D 
00005E 
000066 
000068 
00006C 
000070 
000071 
000074 
000076 
000078 
00007A 
00007B 
000080 
000084 
000088 
000090 
000094 
000096 
000097 
000098 
000099 
00009A 
00009B 
00009C 
00009E 
0000A0 
0000A8 
0000B0 
0000B8 
0000C0 
0000C8 
0000D0 

^ 0000D8 
C 0000E0 

sA 0000E8 
0000F0 


FIDIUVR3 


ERRBYTE 


SEEKADR 


TABAD 


FILENZ 


FILENC 


START 


0 

x'9p' OPEN MASK 

AL3 (TABAD) TABLE ADDRESS 
x'01' FLAG BYTE ONE 
AL3 (0) CHAIN ADDRESS 
x'2800' FLAG BYTE TWO, COMM. BYTE 
H'0' RECORD LENGTH 
x'80' DEVICE CODE 

AL3 (0) 

A (IOA1) BUFFER ADDRESS 
x'08' REGIONAL TYPE 
AL3 (IJKTXRP) ADDRESSING ROUTINE 
A (KEYARG+8) 

A (0) 

x'0000' LOGICAL UNIT 
x*0000' ERROR BYTE 

H'0' KEYLENGTH 

x'00' 

15'00* 

H' 10' 

6x'0' 

H'10' 

x'0' 

H'10° 

0D*0' 

H'O0' FIRST CCB BYTES 
X'88" 

5x*0' 

ALI (CCWAD) CCW ADDR IN CCB 
pp! 

V (IJIFAZZZ) FILE TYPE 

x'22' 

B'01010000! 

C18'FIDIUVR3' 

x'0104' 

F'O’ LABEL ROUTINE ADDRESS 
C (IJKTXRM) EXTENT ROUTINE ADDRESS 
x'0' 

AL3 (ERRBYTE) 

g'0' TEST SWITCH 

Y (CCWAD-TABAD-32) POINTER 

H'0' IJICB2 

x" 88' 

5x'0' 

ALU (FILENZ) 

4x*0' 


X'07', SEEKARD+1,X'00',6 
36 (2) ,C'0* 

HOS 

YL1 (FILENO-TABAD-1) 


MAXIMUM DATA LENGTH 
PTR TO READ ID STRING 


YL (FILEN1-TABAD- 1) READ KEY 

YL1 (FILEN2-TABAD-1) WRITE ID 

YL1 (FILEN3-TABAD- 1) WRITE KEY 
YL1 (FILEN4-TABAD- 1) RZERO 

YL1 (FILEN5-TABAD- 1) AFTER 

H'20' 

H'61' RIC CONSTANT 
D'O"' 


X'31',SEEKADR+3,X'40',5 
X'29',KEYARG+8,X'40',0 
X'06',IOA1,X'Uu0',0 
1D'0' 
X'39',SEEKADR+3,X'40',4 
X'OE', IOA1+8,X'40',0 
X'06',FILENK,X'40',8 
X'12',FILENK,X'40',8 
X'31',FILENF,X'40',5 
X'1E',IOA1,x'40',0 
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0000F8 
000100 
000102 
000104 
000109 
000049 
000111 
000111 
000049 
000114 
000114 
00011A 
00011A 
000121 
000121 
000124 
000130 
000138 
000170 
000198 
000198 
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FILENF 
FILENK 
FILENO 
FILEN1 


FILEN2 
FILEN3 


FILEN4 


FILENS 
CCWAD 


IOA1 
KEYARG 


CCW 
NOPR 
NOPR 


EQU 


X'11',CCWAD+32,X'40*, 
0 

0 

HKE? 

8x0? 

TABAD+ 1 

* 

X'8rF1814' 

TABAD+1 

* 


_X'8F18918F1815' 


* 
X'C718D752C7 18B5' 

M | 

x'C71834" | 
X'C718B18718C9C7183187184D" 
X'07',SEEKADR+1,X'40',6 
7p'0' 

5Dp'0' - 

OD'0' 

OD'0' 

IJKTXRP 











ABS e... ..... e e e A A e. O EA 9090990909 


ABS, fixed BINATY das 
ABO. fixed decimal. «iso a ales 
ABS; LONG. Tloat 2. 2. zos. iaa as 
AD5,.SHOIt float 4494: 3.99 9 2 4 22 A 
BO = ACG. ord dis ai C NOSa Ca m ale eod GE eters ele 
COMA: cim ada wa aq V E SR WARN CS A RI A SCR 
ACTIO (R5) 
ACTIONO - 31 
ACTIONO - 31 (DOO) 
ACTIONO - 31 (D10) 
ACTIONO - 31(D11) 
ACTIOND2G diu: 99 1 3 9 9 9 ARANA 
ADASSL. 4. ma Tac ———— ARS 
ADASOIT 4:9 AAA RUE Y IRI 
ADBASA asa REA PPM ERE "€ 
ADBASC- 2442. WIN e VE M RE RR 
ADBISA- ia aci es 9 V e AS RN NOR AE CR 
ADBOIWV ENE eRe 
BDBSIPB 43.4. da e .o.o.nn.n.n.on..nnens.so 
ADB SOP? Wes We Siew a 
ADCABÍ: 2d ie. Src reso: RV AUR RENE WWE 
ADCHAP 4555-9599 5: 9,5 Mu aub Ue IRE bee KE 
ADOCHOP: ¿aa v uy RE NUR URS RR RC RUE a 
ADCOBI: 4449 949 AA o en 
RADEON exe: cece arene Sas ape AER WRAK KE EC ete 
ADCOST ia a AE 
22053 1443.16; 


..... |... e e e e e e 09€ 909€ 09 O © © © O O O © © © 


ADD e... |... |. e. 009 00900 9909 9 


ADDARI 
ADDEQ +.oooonnoneononsnarnornernossnoo 
ADDIV ..ooooononooonnonnnrnnnornnoososo 
ADDMU ..oooooooonnnroroncnonnonoonooooo 
ADDNEG ..ooooo.one.n.no..n..os P 
ADDNIG ........ ccce eeeeeoceececeoccoce 
ADDPOL +..oooooonoonoronoanoonconnnnanos» 
ADDRF ...ooooonoor.ooo "P 
ADDSHI 
ADIF .....-..-.-.- ccce eec eee 
ADIOST ....-.e..- ec eee eee ———— 
ADMACO ccccccccccccc ccc ccc cocos c 
ADMULI 
ADMVC cooooonnnonnoenrrennrnn.nonsoo 
ADNEG1 
ADRTLC +..oooooosononnonnrnononoon.on.oono 
ADSECO +..oooororooooonnnoennononoo.oo.. 
ADTEE6 
ADUNA ..ooooo.ooornnnoononnnnnornsos. 

AHSTAB .... cce cece eee ecc cec 


ALIGN e... | e. 9090009090 99009 0990990999 © © 


172, 


e... |. e ae 9009 o O. 0 A O O. O © © © © © © O © 


ALL o..ooooooonnnonnnonnoo.nons»» coonooo.o 
ALLOC ..ooooonononrnnonooononno.nno.oso 
ALLVAR o.oooocooonoonooonooonnnoon.noo.n.o 
ANDO coooononoonnoenononnnrnooonnnososo 
ANDOST +.ooooooononnoooonnnnsssssssaso 
ANEN ..ooooooonnonnnnon.ncon.n.s.nnnonsso 
ANEND ..ooooooocnooroonoononnnnnnor.s» 


ANY 000000000000000000000000000000000000 


BRITITOZ o a a 
ARGADE: $42 3/999 o Guat V ala as 
Array cms naaa a a ue a Gio wd = 
ARRAY; ARRAY. os e 
Array expression begin sssosssocosaccoce 


225 
262 
265 
269 
267 
177 
134 
196 
180 
175 
188 
198 
183 
202 
192 
203 
202 
203 
202 
203 
203 
203 
203 
203 
193 
293 
194 
323 
202 
194 
202 
202 
202 
203 
192 
221 
202 
203 
202 
198 
202 
197 
202 
203 
203 
193 
202 

75 
221 
225 
291 
291 
158 
153 
158 
153 
229 
182 
221 

70 
178 
279 


INDEX 


Atray TAILS 4 9-9 309 9 ox mos o2 D 
Array table Construction aan. canas 141 
ARRCH anda aa UU 
BISROUL-- «uv Gaw aa Ska E E 178 
ARRTAB ...onooe..nonnoncrns...noo DEK 
Array expression end escasas x 281 
ARYTAB ..oooooooo Aaa AAA ws. GA 111 
ASGN 9 Se REY a aaa c n sss 220 
ASKIP unas ———— € wew awa 09219 
BS CODE: AREA AD 289 
Assign label constant ...... EEE ETETETT 274 
Assign label variable ........ PRN 275 
Attribute byte 4.6.4239 POZYT ea EZ 
Attribute table: «dadas eta a RR 107,109 
Attribute table compression ........... 109 
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e We would appreciate your other comments; please give specific page and line references 


where appropriate. If you wish a reply, be sure to include your name and address. 


e Thank you for your cooperation. No postage necessary if mailed in the U.S.A. 
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YOUR COMMENTS PLEASE... 


This SRL bulletin is one of a series which serves as reference sources for systems analysts, 
programmers and operators of IBM systems. Your answers to the questions on the back of this 
form, together with your comments, will help us produce better publications for your use. Each 
reply will be carefully reviewed by the persons responsible for writing and publishing this 
material. All comments and suggestions become the property of IBM. 


Please note: Requests for copies of publications and for assistance in utilizing your IBM sys- 
tem should be directed to your IBM representative or to the IBM sales office serving your 
locality. 
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